
VINCULAR CUADRO COMBINADO CON SUBFORMULARIO
Publicado por Hector (27 intervenciones) el 13/09/2021 04:42:29
Hola a todos, buenas noches. Quería pedir de su ayuda con un cuadro combinado que no se como vincular.
Abrí un formulario en blanco y estoy colocando un cuadro combinado CODIGO_ARTICULO_A para buscar por código del articulo, asi que en la hoja de propiedades en origen de la fila busque la tabla artículos y coloque el campo Referencia que seria el código del articulo de esa tabla, luego cree dos subformularios un SUBFORMULARIO FC y un SUBFORMULARIO FV en el origen del control del primero coloque la tabla líneas facturas de compra, y en el otro en el origen del control la tabla Linea facturas de Venta. En estos subformularios solo tengo dos campos en cada uno, uno es Articulo y el otro es Cantidad. Luego coloque este código en el cuadro combinado pero no hace nada. Que me factaria por hacer o que estoy haciendo mal. De antemano muchas gracias
Private Sub CODIGO_ARTICULO_A_Change()
If IsNull([CODIGO_ARTICULO_A]) Then
Me.RecordSource = "select * from [SUBFORMULARIO FC] where Articulo=" & Me.CODIGO_ARTICULO_A.Column(0) & ""
End If
End Sub
Abrí un formulario en blanco y estoy colocando un cuadro combinado CODIGO_ARTICULO_A para buscar por código del articulo, asi que en la hoja de propiedades en origen de la fila busque la tabla artículos y coloque el campo Referencia que seria el código del articulo de esa tabla, luego cree dos subformularios un SUBFORMULARIO FC y un SUBFORMULARIO FV en el origen del control del primero coloque la tabla líneas facturas de compra, y en el otro en el origen del control la tabla Linea facturas de Venta. En estos subformularios solo tengo dos campos en cada uno, uno es Articulo y el otro es Cantidad. Luego coloque este código en el cuadro combinado pero no hace nada. Que me factaria por hacer o que estoy haciendo mal. De antemano muchas gracias
Private Sub CODIGO_ARTICULO_A_Change()
If IsNull([CODIGO_ARTICULO_A]) Then
Me.RecordSource = "select * from [SUBFORMULARIO FC] where Articulo=" & Me.CODIGO_ARTICULO_A.Column(0) & ""
End If
End Sub
Valora esta pregunta


0