Campos de formularios dependientes
Publicado por Marco Antonio (21 intervenciones) el 09/05/2013 19:13:32
Buenas tardes expertos
Les comparto mi problema
Tengo un formulario llamado PAGOS que tiene los campos (cuadros combinados)
Hotel (ID numerico)
Proveedor (ID texto)
Tengo una tabla llamada Referencias que tiene los campos
ID_Referencias,
Hotel,
Proveedor,
Referencia (Texto)
(Aqui, cada PROVEEDOR tiene una referencia UNICA para cada HOTEL)
Ejemplo:
Hotel1, Proveedor1, Referencia1
Hotel2, Proveedor1, Referencia 2
Hotel3, Proveedor1, Referencia3
Tengo otro formulario llamado DetallesPagos tiene los campos
ID_Detalles,
LineaDeCaputra,
ID_Referencias
Lo que hice fue que en el formulario de PAGOS, inserte un subformulario del formulario Detalles Pago
Lo que quiero hacer es que una vez seleccionado el Hotel y Proveedor en el formulario PAGOS
El campo ID_Referencias del subformulario DetallesPago sea el que le corresponda.
Lo que hice fue poner este codigo en el evento Entrar (subformulario) pero no me jalo
Necesito ayuda
Gracias
Saludos
Les comparto mi problema
Tengo un formulario llamado PAGOS que tiene los campos (cuadros combinados)
Hotel (ID numerico)
Proveedor (ID texto)
Tengo una tabla llamada Referencias que tiene los campos
ID_Referencias,
Hotel,
Proveedor,
Referencia (Texto)
(Aqui, cada PROVEEDOR tiene una referencia UNICA para cada HOTEL)
Ejemplo:
Hotel1, Proveedor1, Referencia1
Hotel2, Proveedor1, Referencia 2
Hotel3, Proveedor1, Referencia3
Tengo otro formulario llamado DetallesPagos tiene los campos
ID_Detalles,
LineaDeCaputra,
ID_Referencias
Lo que hice fue que en el formulario de PAGOS, inserte un subformulario del formulario Detalles Pago
Lo que quiero hacer es que una vez seleccionado el Hotel y Proveedor en el formulario PAGOS
El campo ID_Referencias del subformulario DetallesPago sea el que le corresponda.
Lo que hice fue poner este codigo en el evento Entrar (subformulario) pero no me jalo
1
Me.ID_Referencias.Value = DLookup("ID_Referencias", "Referencias", "ID_Empresa= " & Me.ID_Empresa & " And ID_Proveedor = '" & Me.Clave_ID.Value & "'")
Necesito ayuda
Gracias
Saludos
Valora esta pregunta
0