Hola.
Mira a ver si te sirve este enlace:
http://www.clikear.com/webs/accessbhuo/id.asp?topico=291
Es una modulo VB de Jose Maria Fueyo.
O esta de Eduardo Olaz
Function LetraNif(DNI As Long) As String
Const constrLetra As String = "TRWAGMYFPDXBNJZSQVHLCKE"
LetraNif = Mid(constrLetra, (DNI Mod 23) + 1, 1)
End Function
...hay más...espero que esto te sirva
--
Saludos desde Valladolid
Francisco Javier García Aguado
---
http://www.buho.tk [http://www.clikear.com/webs/accessbhuo/index.html]
http://groups.msn.com/Access2000VisualBasic/
=============================================================
Otras Web Access & VB de miembros del grupo:
www.mcpegasus.net [La Web de McPegasus]
www.juank.tk [La Web de ***@nk]
www.juanmafan.tk [La web de Juan M. Afán de Ribera]
http://perso.wanadoo.es/j.bchea [La Web de Chea]
http://perso.wanadoo.es/rubenvigon [La Web de Rubén Vigón]
=============================================================
"javier" <***@agrovin.com> escribi� en el mensaje news:fea501c3f228$9148d930$***@phx.gbl...
Hola a todos: ¿alguien sabe donde puedo encontrar
programa de validación DNI/NIF/CIF o por lo menos las
reglas de validación?
Un saludo y gracias