Access - El botón de Búsqueda no me funciona en el formulario

Tengo tres formularios uno llamado empleado, vacaciones y salario


Sus tablas están sin vincular y estás se llaman trabajadores ,vacaciones y salario


El formulario solo busca la información que está dentro de cada tabla como por ejemplo empleado


Ahí se encuentra la cédula, nombre completo, ocupación y proyecto .



Todos los formularios tienen botones básicos co mmm o guardar registro,borrar registro y buscar.


Este último es el que me falla en todos no solo es en un formulario ,probé con códigos pero algo me falla y no sé que es.


Si alguien me ayuda haciendo el codigo desde el principio para ver en qué estoy fallando o qué me aconseja.


Tengo acceso 2016

Datos publicados:

.- Tres tablas (sin relaciones entre ellas)
.- Tres formularios (uno por tabla)
.- Tres botones ....

De los tres botones dos funcionan en los tres formularios
El tercero que se utilizaría para buscar ¿? no funciona en ninguno.

La versión de Access (para esta funcionalidad) es indiferente.

Falta lo que se programo en los que el botón que no funciona y lo que se ha intentado para hacerlo funcionar, sin esos datos no se puede saber cual es la causa del fallo (ni porque no funciono o lo que se intento).

A mayores tampoco se conoce lo que se desea buscar y donde ¿en su propio formulario o en otro de los externos?.

Mi código sería

Private Sub Buscar_Registro_Click()

Dim consulta As String
If isnull (Me.CmbCampo) Then
Msgbox "Escriba en el campo" ,vbExclamation ,"Aviso"
Me.CmbCampo.SetFocus

Else: Isnull (Me.txtBusqueda)
Msgbox "Escriba para buscar" , vbExclamation,"Aviso"
Me.txtBusqueda.SetFocus

Else

consulta = "Select Cédula, Nombrecompleto,Ocupacion,Proyecto,Fechadeinclusion"

consulta = "FROM Personas"

consulta = consulta & "WHERE" & Me.CmbCampo & "Like '*" & Me.txtBusqueda & "*' "

Me.Lista.Rowsource = consulta


Sub end




Y la información de la tabla no son cajas plegables.
Tienes que escribir un nombre o un número para buscar en la tabla correspondiente.

Si no se entendió me dices para ejemplificarte o no sé.

Lo transcrito no funcionara por diversos motivos.

Personalmente quitaría la declaración de la variable en ese punto, esto es:

Se verrifica que en el objeto 'cmbcampo' existe el valor esperado y de no haberlo
>> mensaje >> foco al objeto >> abortar la ejecución de ese código >> su correspondiente End IF

Si hay lo que se espera continua el código evaluando el objeto 'txtbusqueda' y exactamente lo mismo que antes, solo cambia el destino del foco para obtener el dato indispensable.

Si paso ambas evaluaciones, es el momento de generar el origen de datos
Se dimensiona la variable >> se le asigna contenido >> se le aplica al objeto 'lista' >> fin del proceso

Veamos el contenido de la variable (creada en tres pasos)

Paso uno:
consulta = "Select Cédula, Nombrecompleto,Ocupacion,Proyecto,Fechadeinclusion"
====> Select Cédula, Nombrecompleto,Ocupacion,Proyecto,Fechadeinclusion

Paso dos:
consulta = "FROM Personas"
=====> FROM Personas

Paso tres:
(CmbCampo = 444)
(txtBusqueda ="XYZ")

consulta = consulta & "WHERE" & Me.CmbCampo & "Like '*" & Me.txtBusqueda & "*' "
=====> FROM PersonasWHERE444Like ' '*XYZ*'

Tomate un instante para verificar lo expuesto y ... corrígelo
(debería ser sencillo, es cuestión de modificar el paso dos y añadir los espacios que se han omitido en el paso tres)

Ya lo hice ,pero no me funcionó

Aquí le dejo como me quedó el código porque tuve que cambiar algunas cosas porque no le permitía escribirla exactamente igual como lo escribiste.



Dim consulta As String
If Isnull(Me.CmbCampo) Then
Msgbox "Escriba en el campo" ,(Me.CmbCampo)
Me.CmbCampo.SetFocus
End if



Else: Isnull (Me.txtBusqueda)
Msgbox "Escriba la búsqueda" ,(Me.txtBusqueda)
Me .txtBusqueda.SetFocus

Dim Personas As String
If Isnull (Me.Lista) Then
End if

Selct case "Cédula, Nombrecompleto,Ocupacion, Proyecto, Fechadeinclusion"

FROM Personas


Cmbcampo= 444
txtBusqueda = "XYZ"


FROM PersonasWHERE444Like ' ' * XYZ * '




Cuando tocó el botón me dice que no se encontró el método o el dato miembro y me marca al pronto el (Me.CmbCampo)

También me da un error en el select case.


Trato de no colocarlo pero me muestra en un cuadro de diálogo que sí y si no lo coloco me pone que está mal la sintaxis.

Si de mi respuesta has obtenido ese resultado .... uno de los dos habla el idioma ruso y otro el chino, lo que hace imposible el entendimiento.

Lo elemental -tras el primer análisis- consiste en hacer un esquema de lo que se pretende.

En base a ese esquema (el esqueleto) se le va dando forma, es indispensable diferenciar las manos de los pies y a estos de la cabeza o al vestirlo puedes tener problemas.

Nota;
Esto =====>

Es el contenido que se le va asignando a la variable 'consulta' tras cada asignación (lo mismo que 'MSGBOX consulta'
Por otra parte: no tengo ni las mínima idea de que pinta 'CASE' en esta ensalada.

Te gustaría que te lo mandé y veas el arroz con mango que está quedando XD

Pues la verdad es que no, tal como entiendes las recetas sospecho que seria incomestible.

Prefiero remendar el código original y que disfrutes de una comida.


En la 'ventana de inmediato' (una forma de verificar: código solo valido como demostración)



Los datos son bastante raros, pero son los que has publicado: un valor numérico el primero y un valor de texto (alfanumérico) el segundo.