VBA Access: Validar NIF/CIF/NIE

Lo mejor de internet al alcance de un click

VBA Access: Validar NIF/CIF/NIE

A continuación os pongo las funciones necesarias para la validación de NIE,NIF y CIF en Access.

Función isNIFCIFNIE

Esta función es a la que se llama desde un botón o evento para validar el contenido. Identifica si es un NIF;NIE o CIF para validarlo de forma correcta.

 

13 comentarios

  1. Alberto Garcia dice:

    escribeme por el formulario de contacto de la web

  2. AIDA dice:

    ¿Me podrías echar un cable?
    Estoy buscando Isnumeric y no encuentro el código para meterlo en un módulo.

    Veo que es una función que tiene access a partir de la versión 2007

  3. Alberto Garcia dice:

    Tienes que buscar en internet las funcionaes isnumeric() y stringbuilder() para tener en una clase o modulo aparte definidas.

  4. AIDA dice:

    Hola:

    Me salta error en las siguientes líneas:
    De la función isNIFCIFNIE:

    If Len(aux) >= 7 And IsNumeric(aux) Then

    If valor <> aux Then ‘ comparamos las letras

    y en la función testCIF:

    If Len(valor) < 9 Or Not IsNumeric(Mid(valor, 2, 7)) Then

    Y del StringBuilder:
    If newLen <= totalLength Then

    While totalLength < newLen

    buffer = left(buffer, curLength) & Text & Space(totalLength – newLen)

    parece que no están definidas lt, gt, amp

  5. Alberto Garcia dice:

    A mi si me desbloquea. Ya lo siento.

  6. Luis Rivera dice:

    Lo he compartido con Google+ Porque no tengo Facebook, Aún así, no se desbloquea.

    saludos.

  7. Alberto Garcia dice:

    Tienes que desbloquear compartiendo con los botones de facebook..

  8. Luis Rivera dice:

    Hola Alberto,

    Me sale un mensaje en esta web “Este contenido está bloqueado”. Me he logueado pero no nada.

    Un saludo.

  9. Alberto Garcia dice:

    No tengo ningún ejemplo. Ya lo siento.

  10. LUIS MARIA GUARDIA ULLATE dice:

    Buenos días.
    Estoy diseñando una base de datos y no consigo hacer funcionar las funciones.
    Tienes algún ejemplo en el que podría ver la base de datos como lo has diseñado.
    no consigo hacerlo funcionar.
    ¿Me lo podrías enviar por email?

    Gracias.
    Un saludo.

  11. Alberto Garcia dice:

    He realizado unos cambios que creo que ya no hará falta la función testNIE. Con lo cual con las nuevas funciones valida los NIF, NIE, y CIF.

  12. Alberto Garcia dice:

    He incorporado la función testNIF. La función testNIE esta pendiente de desarrollo.

  13. Kazzuya dice:

    Faltan las funciones testNIE y testNIF.

    Un saludo.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Conoce cómo se procesan los datos de tus comentarios.