Visual Basic - mensajes en access y vb

Life is soft - evento anual de software empresarial
   
Vista:

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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mensajes en access y vb

Publicado por ChidUng (44 intervenciones) el 09/02/2010 21:31:22
Genera un RecordSet udando esta consulta:

SQL= "select * FROM Tabla WHERE UnidadesEnExistencia< StockMinimo "

Esta Consulta te dará los productos con existencias menores al Stock, sea cual sea.

Te recomiendo vacies este recordSer en un GRid, un listbox, incluso en un TextBox. porque si usas un Msgbox, tendrías que meterlo en un bucle para que te indique de cada articulo cuales estan por debajo de stock

Saldos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar