Función para extraer la letra del NIF

letra fif en accessCon una sencilla función podemos extraer la letra del Nif, y además con muy poco código.

Os mostramos una función para Access que extrae la letra de un NIF, es una función con muy poco código y efectiva:

Function letranif(dni As Long)
Dim tmp As Long, LACADENA As String
tmp = (dni - (Int(dni / 23) * 23)) + 1
LACADENA = "TRWAGMYFPDXBNJZSQVHLCKE"
letranif = Mid(LACADENA, tmp, 1)
End Function

Un ejemplo:
ponemos la función en un módulo y la llamamos desde el evento "después de actualizar" de un cuadro de texto de cualquier formulario donde tengamos el NIF en cuestión, el código sería:
me.txtNif = me.txtNif & letranif(me.txtNif)

me.txtNif sería el nombre del cuadro de texto.

con ésto, al introducir los números del Nif nos genera la letra y la añade al cuadro de texto del Nif. Ojo, si pones la letra a mano y actualizas te saldrá error, para eso habría que modificar el código para que no actue la función en caso de que pongamos la letra a mano, por ejemplo con una condición.

Truco enviado por Fabian.

Todas las Categorías: