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.

Publicaciones relacionadas

1 comentario en «Función para extraer la letra del NIF»

  1. Un campo en Acces dónde se calcule la letra de DNI

    Para los inexpertos en Acces nos he muy complicado hacerlo con los datos que ponen Uds. Sería mucho pedir que que alguien hiciera un video-tutorial haciéndolo paso a paso??. Muchas gracias y perdonen la intromisión

    Responder

Deja un comentario

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