Msg box en access
Tengo una base en access más o menos así:
Tabla productos
Campos
IdProducto 1
NombreProducto zapatos
UnidadesEnExistencia 50
StockMinimo 10 (cada producto tiene diferente stock)
Inserte este código en el formulario en el procedimiento de evento Al Cargar
Private Sub Form_Load()
DoCmd.Maximize
If UnidadesEnExistencia < StockMinimo Then
MsgBox "Conflicto de Existencias de Productos. Pulse el Boton Editar Productos para Verificar", vbOKOnly, "Aviso"
UnidadesEnExistencia.BackColor = 255
UnidadesEnExistencia.SetFocus
Exit Sub
End If
End Sub
Cuando abro mi formulario de productos si el primer producto esta por debajo del mínimo me manda el mensaje requerido. El problema es que solo lo hace si el primer producto esta por debajo de su mínimo por ejemplo:
IdProducto 35
NombreProducto lentes
UnidadesEnExistencia 13
StockMinimo 5 (cada producto tiene diferente stock)
Si el producto 35 esta por debajo de su mínimo asignado no manda ningún mensaje ¿Cuál es el error?
Muchas gracias por la ayuda
Tabla productos
Campos
IdProducto 1
NombreProducto zapatos
UnidadesEnExistencia 50
StockMinimo 10 (cada producto tiene diferente stock)
Inserte este código en el formulario en el procedimiento de evento Al Cargar
Private Sub Form_Load()
DoCmd.Maximize
If UnidadesEnExistencia < StockMinimo Then
MsgBox "Conflicto de Existencias de Productos. Pulse el Boton Editar Productos para Verificar", vbOKOnly, "Aviso"
UnidadesEnExistencia.BackColor = 255
UnidadesEnExistencia.SetFocus
Exit Sub
End If
End Sub
Cuando abro mi formulario de productos si el primer producto esta por debajo del mínimo me manda el mensaje requerido. El problema es que solo lo hace si el primer producto esta por debajo de su mínimo por ejemplo:
IdProducto 35
NombreProducto lentes
UnidadesEnExistencia 13
StockMinimo 5 (cada producto tiene diferente stock)
Si el producto 35 esta por debajo de su mínimo asignado no manda ningún mensaje ¿Cuál es el error?
Muchas gracias por la ayuda
1 Respuesta
Respuesta de exechapur
1