La siempre fastidiosa comprobacion o averiguacion del NIF y las que no tenemos ni idea de VBA (que Dios castigue)

07/07/2003 - 20:46 por Laura McNee | Informe spam
He encontrado en Google una rutina en VBA enviada por Sendo hace unos meses.
Algo más o menos así:

Function LetraDNI( lDNI as long) as String
Dm sLetras as string
sLetras = "TRWAGMYFPDXBNJZSQVHLCKE"
LetraDNI = Mid(sLetras, (lDNI Mod 23) + 1, 1)
end function

Una, que es cotilla por naturaleza, ha observado esta mañana en mi banco
(sí, no os lo he dicho, pero yo soy JPMorgan disfrazao de lagarterana) que
el chico (macizo todo él) que me atendió, introdujo el número de mi DNI en
una casilla en blanco (un txtBox), que traía al lado un botón_de_comando en
que decía NIF, y al pulsarlo apareció, tomáticamente, junto al número del
DNI y en la misma casilla, la letra correspondiente. Inmediatamente apareció
mi nombre, mi domicilio, mi talla de sujet... digo mi cuenta, mis tarjetas,
mi... en fin. El macizo me dijo que todo funcionaba bajo Oracle, pero yo
creo que a alguien se le habría ocurrido hacer un algo así en Access.

¿Me equivoco?
:-)'
 

Leer las respuestas

#1 Eva Etxebeste
07/07/2003 - 21:44 | Informe spam
A qué oficina dices que has ido?????? :)=''''''' ;)

Bue, el botón de comando que ha pulsado el macizo seguramente haría algo
como (suponiendo que el txtbox donde se introduce el numerico sea txtDNI):

txtDNI = txtDNI & LetraDNI(txtDNI)

Con las comprobaciones oportunas para no ir concatenando letra del DNI hasta
donde se plantan los nabos, claro...

Y después una búsqueda por su fichero de clientes en base al famoso DNI y un
refresco de la pantalla con los datos encontrados. Aro, que si al macizo le
toca un DNI de los repetidos (que los hay, fíjese usté) pues hubiera quedado
muy macizo, pero con una cara de pan.

Tú prueba que sale, y si no, ñusea las dudas :)
Eva Etxebeste
[MS MVP]


"Laura McNee" escribió en el mensaje
news:becf6h$3r7$
He encontrado en Google una rutina en VBA enviada por Sendo hace unos


meses.
Algo más o menos así:

Function LetraDNI( lDNI as long) as String
Dm sLetras as string
sLetras = "TRWAGMYFPDXBNJZSQVHLCKE"
LetraDNI = Mid(sLetras, (lDNI Mod 23) + 1, 1)
end function

Una, que es cotilla por naturaleza, ha observado esta mañana en mi banco
(sí, no os lo he dicho, pero yo soy JPMorgan disfrazao de lagarterana) que
el chico (macizo todo él) que me atendió, introdujo el número de mi DNI en
una casilla en blanco (un txtBox), que traía al lado un botón_de_comando


en
que decía NIF, y al pulsarlo apareció, tomáticamente, junto al número del
DNI y en la misma casilla, la letra correspondiente. Inmediatamente


apareció
mi nombre, mi domicilio, mi talla de sujet... digo mi cuenta, mis


tarjetas,
mi... en fin. El macizo me dijo que todo funcionaba bajo Oracle, pero yo
creo que a alguien se le habría ocurrido hacer un algo así en Access.

¿Me equivoco?
:-)'


Preguntas similares