busqueda con patron

Bien por la aportación de Juanmasp.

Mihura escribió: Bien por la aportación de Juanmasp. Mira a ver la comparación que estás haciendo, te devuelve null porque no encuentra ningún registro que cumpla la condición establecida.

dcmt = InputBox("DNI") ' numero que quiero buscar
y = Right(dcmt, 8) ' le quito el primer caracter de la derecha
s = Left(y, 7) ' le quito el primero de la izquierda
Set r = CurrentDb.OpenRecordset("SELECT [NIF O DNI] From [CLIENTES T] WHERE [nif o dni] like '" & "*" & s & "*" & "'") ' consulta que me devuelve la coincidencia
ju = r.Fields(0) 'cargo la coincidencia en la variable
'luego ya hago el/los condicionales...

Hola toldeman, como bien dices en esto de la programación hay muchos caminos para llegar al mismo destino.

A mi la duda que todavía me queda y después de haberme leído este hilo varias veces es saber el contenido de lo que se guarda en el campo [NIF o DNI], no se si podrias tener todas estas maneras almacenadas 125125 o 0125125 o 125125T o 0125125T.

Si fuera así, esta claro que el Right y el Left que usas podria fallar, por eso yo lo haria de esta otra manera:

Sub test() Dim valor As String dcmt = InputBox("DNI") ' numero que quiero buscar '-- Le quito cualquier letra SI la hubiera-- 'y = Right(dcmt, 8)     ' le quito el primer caracter de la derecha valor = extrae_numeros(dcmt) '-- Le quito el cero de la izquierda SI lo llevara -- 's = Left(y, 7)        ' le quito el primero de la izquierda valor = CStr(CDbl(valor)) ju = Nz(DFirst("[NIF O DNI]", "[CLIENTES T]", "[nif o dni] Like ""*" & valor & "*"""), "No hay valor en la tabla") Debug.Print ju Stop End Sub

Public Function extrae_numeros(cadena) Dim i As Integer Dim res As String For i = 1 To Len(cadena)     On Error Resume Next     If Asc(Mid(cadena, i, 1)) >= 48 And Asc(Mid(cadena, i, 1)) <= 57 Then res = res & Mid(cadena, i, 1) DoEvents Next extrae_numeros = res End Function

Editado por fcoval - 03/Noviembre/2021 a las 09:31