Anónimo
Alarma en un formulario access
Hola te pido ayuda para un formulario de access.
Me gustaría poner una alarma en un campo especifico.
Te explico.
Estoy creando una base de datos de gestión de almacen. Y en la tabla y formulario de productos tengo un campo de reponer y quería que saltara una alarma cuando reponer sea igual o menor que el stock mínimo.
Si me puedes ayudar te agradezco.
Me gustaría poner una alarma en un campo especifico.
Te explico.
Estoy creando una base de datos de gestión de almacen. Y en la tabla y formulario de productos tengo un campo de reponer y quería que saltara una alarma cuando reponer sea igual o menor que el stock mínimo.
Si me puedes ayudar te agradezco.
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
Esto lleva dos pasos:
1- Ponemos un código general antes de cualquier Sub:
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Dim SoundFile As Variant
2- Después en el evento de Change del TextBox puedes poner
Dim Filters As String
Dim SoundFile As Variant
ActiveSheet.Shapes("StopButton").Visible = False
Filters = "C:\TuRuta\TuSonido.wav"
SoundFile = Application.GetOpenFilename(Filters)
If SoundFile = False Then Exit Sub
Select Case UCase(Right(SoundFile, 3))
If Reponer <= Minimo Then
mciExecute ("play " & SoundFile)
Call PlaySound(SoundFile, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Select
Adáptalo a tus necesidades.
1- Ponemos un código general antes de cualquier Sub:
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Dim SoundFile As Variant
2- Después en el evento de Change del TextBox puedes poner
Dim Filters As String
Dim SoundFile As Variant
ActiveSheet.Shapes("StopButton").Visible = False
Filters = "C:\TuRuta\TuSonido.wav"
SoundFile = Application.GetOpenFilename(Filters)
If SoundFile = False Then Exit Sub
Select Case UCase(Right(SoundFile, 3))
If Reponer <= Minimo Then
mciExecute ("play " & SoundFile)
Call PlaySound(SoundFile, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Select
Adáptalo a tus necesidades.