Problema con codigo.
Usuario1984
Quiero aprender a utilizar mejor access y tengo un problema con el
código siguiente. Es de un ejercicio de un libro que sirve para
empezar a programar en access 2000 pero yo estoy utilizando access
2003. El problema es que funciona bien pero solo con el primer
registro de la PrimeraTabla. Cuando pones el nombre de usuario y
contraseña del primer registro de la tabla sale el mensaje
"Enhorabuena..." Si introduces cualquier otro dato erroneo o correcto
siempre da el mensaje "Lo siento...."
El código es el siguiente. Saludos. Roberto.
Sub Logon()
'Declaración de variables
Dim NombreDeUsuario
Dim Contraseña
Dim qresult1
Dim qresult2
'Definición de variables
NombreDeUsuario = InputBox("Está programando en Access." & Chr(13) &
Chr(13) & "Por favor introduzca su nombre de usuario")
Contraseña = InputBox("Lo está haciendo bien" & Chr(13) & Chr(13) &
"Por favor introduzca ahora su contraseña")
'Ejecución de la consulta
qresult1 = DLookup("[NombreDeUsuario]", "PrimeraTabla",
"[NombreDeUsuario]=NombreDeUsuario")
qresult2 = DLookup("[Contraseña]", "PrimeraTabla",
"[Contraseña]=Contraseña")
'Procesado lógico
If NombreDeUsuario = qresult1 And Contraseña = qresult2 Then
MsgBox "Enhorabuena, ha sido identificado y puede continuar"
Else
MsgBox "Lo siento, hay un problema con su identificación.
Intentelo de nuevo otra vez."
End If
End Sub