Visual Basic - acceso con pasword

hola buenos dias,

tengo un pequeño problema que no veo o no se verlo, tengo una base de datos con usuarios que tengo que acceder con el DNI, pongo el DNI en el text1. i con un command lo ejecuto, peró no hay forma humana que lo consiga., os pongo el codigo haber si veis algo que no hago bien.

Dim db As Database
Dim rs As Recordset
Dim Sql As String

Set db = OpenDatabase(App.Path & "\FILIACIO.mdb")
Sql = "SELECT * FROM Filiacio where DNI LIKE '" & Text1.Text & "'"
Set rs = db.OpenRecordset(Sql, dbOpenSnapshot)

rs.MoveFirst

rs.EOF
If UCase(Trim(rs(0))) = UCase(Trim(Text1.Text)) Then

Form7.Show
Else
Form1.Show
End If
rs.MoveNext


rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Holi

En la sentencia sql cambia LIKE por el signo igual (=).
Saludos

Se encalla en

rs.EOF

lo sigo sin ver, creo que el codigo es correcto, pero algo falla

Grácias

Holi

Porque el recordset solamente tiene un registro, Quita las instrucciones rs.EOF e IF UCase.. y ponlo así:

rs.MoveFirst
IF rs.RecordCount > 0 Then
' el DNI existe
Form7.Show
Else
' El DNI no existe
Form1.Show
End If
Espero que así te funcione.
Saludos

Nicolas, gràcias

Funciona, quando no esta el DNI, se queda encallado en rs.MoveFirst , dice que no hay ningún registro activo.

Voy a ver por donde lo puedo coger.

Gràcias

Holi

Nicolas ya lo tengo

gràcias por todo le he quidato el rs.MoveFirst i funciona,

Holi

Que manera de hablar tonteras estos 2

Mi buen amigo anónimo, despues de ver tu exposición, se ve en tu escritura una fluidez, que ni Quevedo lo haria tan bien, solo me queda decirte; que lo unico que haces insultando es dar a conocer la clase de ser que eres ,por lo menos pon tu nik i tu correo verdadero, por que así indagaremos por el foro, para ver tus magistrales explicaciones y comentarios que das a la comunidad. Personajes como tu tan listos, lo unico que haceis es faltar el respeto a otras personas (porque a ti para llegar a ser persona, te falta dar un paso), haz el flaco favor a toda la comunidad de irte y espero que tu sabiduria te lleve por buen camino y te haga salir de ese submundo en que te encuentras, evitate hacer qualquier tipo de comentarios escritos o poner tu huella en mis post. Por lo que a mi respecta todo queda en un simple mal comentario, sin rencor amigo mio, pero disculpate con Nicolas que el lo único que ha hecho a sido ayudarme que de eso se trata en este foro, AYUDAR, para así aprender.

Hasta la vista amigo Anónimo.

Holi