ACCESS- Recargar cuadro de lista
Publicado por Jan lewis (1 intervención) el 07/02/2018 14:02:20
Tengo un cuadro combinado y un campo de texto, en el cuadro combinado eligo la opción que deseo buscar y en el cuadro de texto hago la búsqueda, al hacer la búsqueda me muestra los resultados en un cuadro de lista, pero no encuentro la forma para deshacer la búsqueda y me vuelva a mostrar todos los resultados en el cuadro de dialogo.
Este es el código de la búsqueda
Este es el código de la búsqueda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub BtnBusqueda_Click()
Dim Consulta As String
If IsNull(Me.CmbCampo) Then
MsgBox "Seleccione un campo", vbExclamation, "Aviso"
Me.txtBusqueda = Null
Me.CmbCampo.SetFocus
ElseIf IsNull(Me.txtBusqueda) Then
MsgBox "Escriba la busqueda", vbExclamation, "Aviso"
Me.txtBusqueda.SetFocus
Else
Consulta = "SELECT Id,Nombre,Apellido,Fecha_nacimiento,Edad,Lugar_nacimiento,identificacion,Sexo,Estado_civil,Direccion,Numero_hijos,Ocupacion,Tipo_vinculacion,Obra,Codigo_az,Discapacidad,Desplazado,Afrocolombiano,Email,Reingreso"
Consulta = Consulta & " FROM Empleados"
Consulta = Consulta & " WHERE " & Me.CmbCampo & " Like '*" & Me.txtBusqueda & "*'"
Me.Lista.RowSource = Consulta
End If
End Sub
Valora esta pregunta
0