PDF de programación - Verificar si un Nif introducido es correcto

Verificar si un Nif introducido es correcto


En este capítulo vamos a realizar todos los pasos para verificar si un NIF introducido es
correcto o no.

Vamos a crear una base de datos nueva.

Crearemos el siguiente formulario.



El siguiente paso será dar nombre a este campo como “nif”



Pere Manel Verdugo Zamora


Página 1

Al Evento “Al perder el enfoque” seleccionaremos el botón que tiene tres puntos (…).



Seleccionaremos “Generador de código” seguido del botón “Aceptar”.



Pere Manel Verdugo Zamora



Página 2

Escribiremos el siguiente código en Visual Básic.

Private Sub nif_LostFocus()
Dim n As Integer, numero As String, num As Integer, letra As String
Dim a As Double, b As Double, c As Double, d As Double
Dim letra1 As String
n = Len(nif)
For a = 1 To n - 1
numero = numero + Mid$(nif, a, 1)
Next a
letra = Mid$(nif, a, n)
a = numero / 23
b = Int(a)
c = b * 23
d = numero - c
If d = 0 Then letra1 = "T"
If d = 1 Then letra1 = "R"
If d = 2 Then letra1 = "W"
If d = 3 Then letra1 = "A"
If d = 4 Then letra1 = "G"
If d = 5 Then letra1 = "M"
If d = 6 Then letra1 = "Y"
If d = 7 Then letra1 = "F"
If d = 8 Then letra1 = "P"
If d = 9 Then letra1 = "D"
If d = 10 Then letra1 = "X"
If d = 11 Then letra1 = "B"
If d = 12 Then letra1 = "N"
If d = 13 Then letra1 = "J"
If d = 14 Then letra1 = "Z"
If d = 15 Then letra1 = "S"
If d = 16 Then letra1 = "Q"
If d = 17 Then letra1 = "V"
If d = 18 Then letra1 = "H"
If d = 19 Then letra1 = "L"
If d = 20 Then letra1 = "C"
If d = 21 Then letra1 = "K"
If d = 22 Then letra1 = "E"
If letra1 = letra Then
MsgBox ("El Nif introducido es correcto")
Else
Beep
MsgBox ("El Nif introducido no es correcto")
End If
End Sub

Pere Manel Verdugo Zamora


Página 3

Vamos a probar el formulario introduciendo tu NIF, seguido de la tecla TAB.



Si lo has introducido correctamente observarás el siguiente mensaje.

El Nif introducido es correcto.



Pere Manel Verdugo Zamora


Página 4