¿Cómo buscar dato de un textbox en dos tablas de access y mostrar resultados en listbox?
Quisiera ver la posibilidad de que me ayudarán a saber como buscar un dato en en dos tablas distintas y colocar los resultados en un listbox de excel. Esto lo he podido hacer pero solo consultando una tabla, me gustaría saber como encontrar datos en más de una tabla, agradezco sus comentarios.
Este es el código que manejo:
Gracias nuevamente. Saludos amigos.
Private Sub UserForm_Initialize() Conexion With ListBox1 .ColumnCount = 5 .ColumnWidths = "100;50;150" End With End Sub Sub Conexion() Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=C:\BDatos.accdb" .Open End With End Sub Private Sub TextBox1_Change() If TextBox1.Text = "" Then ListBox1.Clear Exit Sub Else Buscar End If End Sub Sub Buscar() Set Rs = New ADODB.Recordset SQL = "Select * From Base Where ID Like '%" & UCase(Trim(TextBox1)) & "%'" With Rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open SQL, Cnn, , , adCmdText End With ListBox1.Clear Do While Rs.EOF = False ListBox1. AddItem Rs. Fields("ID") ListBox1. List(ListBox1.ListCount - 1, 1) = Rs. Fields("Nombre") ListBox1. List(ListBox1.ListCount - 1, 2) = Rs. Fields("Apellido") ListBox1. List(ListBox1.ListCount - 1, 3) = Rs. Fields("Edad") Rs. MoveNext Loop Rs.Close Set Rs = Nothing End Sub