Ayuda con error 2001
Publicado por Antonio (38 intervenciones) el 06/12/2008 22:15:06
Hola , he adaptado a mis necesidades una instruccion que me facilitaron, pero a la hora de ejecutarla me sale error 2001 Cancelo la operacion anterior, no encuentro donde podra estar el error, la instruccion es la siguiente:
Dim stLinkCriteria As String, strDNI
strDNI = InputBox("INTRODUCE NUMERO DE DNI o NIE A BUSCAR", "CONSULTAS DE DNI/NIE")
If Nz(strDNI, "") <> "" Then
stLinkCriteria = "DNIA Like '*" & strDNI & "*' Or DNIB Like '*" & strDNI & "*' Or DNIC Like '*" & strDNI & "*' Or DNID Like '*" & strDNI & "*'"
If DCount("DNI", "[TABLA1]", stLinkCriteria) <> 0 Then
DoCmd.OpenForm "FormDNI", , , stLinkCriteria
Else
MsgBox "EL DNI INTRODUCIDO NO ESTA REGISTRADO"
End If
Else
MsgBox "NO HA INTRODUCIDO UN DATO VALIDO"
End If
Esta instruccion la tengo puesta en un boton, que al precionarlo introduzco un numero de dni y al aceptar es cuando sale el error quedando marcado el parrafo ( If DCount("DNI", "[TABLA1]", stLinkCriteria) <> 0 Then), la busqueda es para 4 numeros de dni.
Saludos
Dim stLinkCriteria As String, strDNI
strDNI = InputBox("INTRODUCE NUMERO DE DNI o NIE A BUSCAR", "CONSULTAS DE DNI/NIE")
If Nz(strDNI, "") <> "" Then
stLinkCriteria = "DNIA Like '*" & strDNI & "*' Or DNIB Like '*" & strDNI & "*' Or DNIC Like '*" & strDNI & "*' Or DNID Like '*" & strDNI & "*'"
If DCount("DNI", "[TABLA1]", stLinkCriteria) <> 0 Then
DoCmd.OpenForm "FormDNI", , , stLinkCriteria
Else
MsgBox "EL DNI INTRODUCIDO NO ESTA REGISTRADO"
End If
Else
MsgBox "NO HA INTRODUCIDO UN DATO VALIDO"
End If
Esta instruccion la tengo puesta en un boton, que al precionarlo introduzco un numero de dni y al aceptar es cuando sale el error quedando marcado el parrafo ( If DCount("DNI", "[TABLA1]", stLinkCriteria) <> 0 Then), la busqueda es para 4 numeros de dni.
Saludos
Valora esta pregunta


0