Saber si hay un DNI o CIF en un campo de texto
Necesito saber como he de hacer para conocer la existencia de un DNI o CIF en una cadena de caracteres.
He de comprobar que hay como mínimo 9 caracteres en el campo y si no existen indicar a través de un texBox que no es posible realizar la operación.
1 respuesta
Prueba esto, a ver si es lo que buscas:
En el evento antes de actualizar de tu cuadro de texto, le programas este código:
Private Sub txtDNI_BeforeUpdate(Cancel As Integer) If Len(me.txtDNI)<>9 Then MsgBox "El valor introducido no tiene los 9 caracteres requeridos para un DNI/CIF",vbInformation."Error" Cancel =True End If End Sub
Si además quieres validarlo, aquí tienes una BD con los códigos necesarios para ello:
http://siliconproject.com.ar/neckkito/index.php/component/content/article/95-ejemplos-explicados/ejemplos-de-codigo/236-comprobar-cif-s-y-numeros-de-cuenta
Saludos
Visítanos: http://nksvaccessolutions.com/Foro/
Me esta dando error de sintaxis esto:
MsgBox "El valor introducido no tiene los 9 caracteres requeridos para un DNI/CIF",vbInformation."Error"
Sí, fallo mío, cambia el punto por una coma:
VbInformation,"Error"
Saludos
Visítanos: http://nksvaccessolutions.com/Foro/
Funciona perfectamente, es un proceso de facturacion y si no existe el DNI/CIF ha de abortar el proceso de Facturacion. Que tendria que añadir para que se saliese del proceso
En tu proceso de facturación, añade al principio:
If Nz(Me.txtDNI,"")="" Then Exit Sub
