mensajes en access y vb
Publicado por edgar (1 intervención) el 08/02/2010 19:22:10
tengo una base en access mas o menos asi:
TABLA PRODUCTOS
CAMPOS
IdProducto 1
NombreProducto zapatos
UnidadesEnExistencia 50
StockMinimo 10 (cada producto tiene diferente stock)
inserte este codigo 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 minimo me manda el mensaje requerido. el problema es que solo lo hace si el primer producto esta por debajo de su minimo por ejemplo:
IdProducto 35
NombreProducto lentes
UnidadesEnExistencia 13
StockMinimo 5 (cada producto tiene diferente stock)
si el producto 35 esta por debajo de su minimo asignado no manda ningun mensaje ¿Cual es el error en el codigo?
TABLA PRODUCTOS
CAMPOS
IdProducto 1
NombreProducto zapatos
UnidadesEnExistencia 50
StockMinimo 10 (cada producto tiene diferente stock)
inserte este codigo 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 minimo me manda el mensaje requerido. el problema es que solo lo hace si el primer producto esta por debajo de su minimo por ejemplo:
IdProducto 35
NombreProducto lentes
UnidadesEnExistencia 13
StockMinimo 5 (cada producto tiene diferente stock)
si el producto 35 esta por debajo de su minimo asignado no manda ningun mensaje ¿Cual es el error en el codigo?
Valora esta pregunta


0