Hola a todos , favor si me pueden ayudar con lo siguiente
Tengo una base de datos que tiene 2 tablas llamadas Ingreso1 (Campo = Articulo) e Ingreso2 (Campo = Articulo)
He hecho un form de busqueda de un articulo, este form tiene 2 checkbox y una datagrid
Check 1 hace referencia a Ingreso1
Check 2 hace referencia a Ingreso2
La idea es que al seleccionar el check1 en el data grid me muestre los articulos de la tabla Ingreso1. Que al seleccionar el check2 el data me muestre los articulos de la tabla Ingreso2
Esto es lo que tengo programado por el momento, asi como esta solo me seleciona en una sola tabla, ya tengo conectada con 2 adodc uno para cada tabla.
Dim base As Connection
Dim WithEvents Temp As Recordset
Dim consulta As String, cod As Integer
Private Sub DataGrid1_Click()
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
End Sub
Private Sub Form_Load()
Set base = New Connection
Set Temp = New Recordset
base.Open "dsn=data"
Temp.Open "Ingreso1", base, adOpenStatic, adLockReadOnly
End Sub
Private Sub Text1_Change()
Temp.Close
Set DataGrid1.DataSource = Nothing
consulta = "select Distinct Articulo from Ingreso1 where Articulo like '" & Text1 & "%' "
Temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = Temp
