Como buscar registros de manera alfanumérica

Desearia me ayuden con mi problema:

*****Tengo generado el siguiente código unicamente para buscar registros numéricos " [cedula ]", pero a medida que lo utilizo no puedo buscar registros de pasaportes extranjeros, tal vez una manera de modificar el código para buscar alfanumericamente o uno independiente para buscar solo registros por texto.****

Private Sub Comando20_Click()
Dim stDocName As String      
    Dim stLinkCriteria As String  
    stDocName = "FORMULARIO_BUSQUEDA_USUARIO_CONSULTAS"      
    stLinkCriteria = "[CEDULA]=" & Me![txtBuscar]
   If Me.txtBuscar <> "" Then
    DoCmd.OpenForm stDocName, , , stLinkCriteria      
    DoCmd.Close acForm, Me.Name
    Else
      MsgBox " Ingrese un Nro. De Cédula ", vbInformation, ""
     Me.txtBuscar.SetFocus
  End If
Exit_Comando20_Click:  
    Exit Sub
Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
End Sub

1 respuesta

Respuesta
2

Si tu campo CEDULA en la tabla lo tienes definido como texto, bastaría cambiar esta línea:

stLinkCriteria = "[CEDULA]=" & Me![txtBuscar]

por esta otra:

stLinkCriteria = "[CEDULA]='" & Me![txtBuscar] & "'"

Un saludo.


Te comento que cambie la línea del código como lo planteaste, pero me sale el error de sintaxis '[CEDULA]=1710101012", un saludo

Fíjate bien cómo lo copias:

Después del signo igual va comilla simple (') y luego comilla doble (") y después del último & va comilla doble-comilla simple-comilla doble

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas