Access - ACCESS- Recargar cuadro de lista

   
Vista:

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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder