Access - formularios

 
Vista:

formularios

Publicado por Bernardo Quíñónez (1 intervención) el 01/09/2007 19:54:00
Hola que tal?
Tengo un problema en el siguente punto:
Tengo dos tablas: stock y Caja, en stock se carga toda la lista de mis productos y en caja los productos se son vendidos al cliente; lo que yo quiero es que cuando mi usuario este cargando mi tabla caja al ingresar el codigo del producto me traiga automaticamente el producto y el precio unitario de la tabla stock..

Como podria resolver ese problema?
Desde ya muchas gracias!
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:formularios

Publicado por Enrique (1299 intervenciones) el 01/09/2007 20:46:53
Hola:
Como estas en el formulario conectado a la Tabla Caja, no están disponibles los datos de la Tabla Stock, por lo que hay que traerse esos datos mediante Recordset. En el editor de VBA del formulario, entra en el menú Herramientas / Referencias y marca la casilla de: Microsoft DAO 3.6 Object Library e incluye este Procedimiento de Evento en el Formulario:

Private Sub CodProducto_AfterUpdate()
On Error Resume Next
Dim TablaStock As DAO.Recordset
Set TablaStock = CurrentDb.OpenRecordset("Stock")
TablaStock.FindFirst "CodProducto='" & Me.CodProducto & "'"
If Not TablaStock.NoMatch Then 'Si el cod. producto existe
Me.Producto = TablaStock!Producto
Me.Precio = TablaStock!Precio
Me.Cantidad.SetFocus 'el Foco vá al campo siguiente a Precio
Else 'Si el cod. producto no existe
MsgBox "Producto no encontrado en la Tabla.", vbInformation, "Aviso"
End If
TablaStock.Close: Set TablaStock = Nothing
End Sub

En el supuesto de que tu Codigo Producto en la Tabla sea de tipo Numérico, cambia:
TablaStock.FindFirst "CodProducto='" & Me.CodProducto & "'"
por :
TablaStock.FindFirst "CodProducto=" & Me.CodProducto

Saludos y Suerte.
Enrique
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