Access - ERROR 13 NO COINCIDEN LOS TIPOS

HOLA! soy nueva en esto de access y tengo un codigo para un formulario que funciona como buscador pero sale ese error
*aqui me marca error*
Private Sub txtBuscar_Change()
On Error GoTo txtBuscar_Change_Error 'gestionamos los posibles errores

''Si la caja de texto no tiene nigún texto apareceran todos los empleados
If Me.txtBuscar.Text = "" Then
Me.lstEmpleados.RowSource = "SELECT Empleados.RFC, Empleados.NOMBRE, Empleados.APEIDO P, Empleados.APEIDO M, Empleados.CENTRO, FROM Empleados"
Me.lstEmpleados.Requery


Else

''en caso que tenga algun valor, buscaremos según la opción que tengamos seleccionada
Select Case Me.BuscarPor.Value


''los valores 1, 2 son los valores que tiene el marco de opciones llamado BuscarPor

''en el caso que tengamos selecionado por Nombre
Case Is = 1
Me.lstEmpleados.RowSource = "SELECT Empleados.RFC, Empleados.NOMBRE, Empleados.APEIDO P, Empleados.APEIDO M, Empleados.CENTRO, FROM Empleados WHERE Empleados.NOMBRE LIKE '*" & Trim(Me.txtBuscar.Text) & "*'"

''en el caso que tengamos seleccionado por la Centro
Case Is = 2
Me.lstEmpleados.RowSource = "SELECT Empleados.RFC, Empleados.NOMBRE, Empleados.APEIDO P, Empleados.APEIDO M, Empleados.CENTRO, FROM Empleados WHERE Empleados.CENTRO LIKE '*" & Trim(Me.txtBuscar.Text) & "*'"



End Select
End If

''actualizamos la lista de los Empleados
Me.lstEmpleados.Requery



On Error GoTo 0
Exit Sub

txtBuscar_Change_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure txtBuscar_Change of Documento VBA Form_frmBuscador"
End Sub
Private Sub cmdSalir_Click()
On Error GoTo Err_cmdSalir_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Quit

Exit_cmdSalir_Click:
Exit Sub

Err_cmdSalir_Click:
MsgBox Err.Description
Resume Exit_cmdSalir_Click

End Sub
No se si alguien me pueda ayudar porfiiiiss

Hola.

¿Dónde exactamente te da error?

Un saludo,

Norberto.

lstEmpleados_Click_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure lstEmpleados_Click of Documento VBA Form_frmBuscador"
End Sub

Ahí me marca el error ya le di mil vueltas y no logro entender :(

Hola.

El error no se produce ahí. Cuando se produce un error salta a esa línea a mostrar el mensaje. Comenta la línea On Error Goto... (le pones un apóstrofo (') delante y lo vuelves a ejecutar y el se parará exactamente en la línea que produce el error. Me dices cuál es a ver si te puedo ayudar.

Un saludo,

Norberto.

eso es lo que me sale :(

Hola.

En el primer procedimiento que adjuntas comentas la línea 5


poniéndo un apóstrofo delante para que quede así:


El programa se detendrá en la línea que produce el error y eso es lo que necesito saber.

Un saludo,

Norberto.

ahi marca el error

Hola.

Entiendo que RFC es de tipo texto ya que estás convirtiendo Me.lstEmpleados a string con Str. En este caso este valor debe de estar entre comillas (simples o dobles) de la siguiente manera.


Si funciona, quitas el apóstrofo de delante del On Error...

Las rutinas de detección de errores se ponen cuando ya funciona la aplicación por si ocurre algo anómalo no contemplado. Mientras se está desarroyando impide saber dónde se produce el error y depurarlo.

Un saludo,

Nor.