ChrisHaynes
Technical User
Hi there. I know there has been many posts about this which I have been researching, however can't understand why my code isn't morking.
I am creating a simple logon form for my database. Firstly, I have a user table (tblUsers) containg a 'Username' field and a 'Password' field.
And a logon form containg;
-A username text box ('Username')
-A password text box ('Password')
-A command button (cmd_hardware) which has this code behind it:
Private Sub cmd_hardware_Click()
If Me.Username = DLookup("Username", "tblUsers") And Me.Password = DLookup("Password", "tblUsers") Then
DoCmd.OpenForm "frm_Hardware_home"
DoCmd.Close acForm, "frmLogon"
Forms!frm_Hardware_home!txtLogon = Me!Username
Else
MsgBox "Username/Password not found. Please re-enter.", vbOKOnly & vbCritical, "Access Denied."
Me!Username.SetFocus
End If
End Sub
The command button seemed to be working when I added the first user to the user table (loaded up frm_Hardware_home) and displayed a message box if i entered an incorrect username or password.
However, when I added a second user to the user table, I couldn't logon. But still works for the first record (user) in the user table??
I also tried with a third but also won't logon?
Could anyone help? Apologies again if this problem has been listed before but could not find a solution, and also I know that this isn't the most secure way. I will change the startup up options when it comes down to it.
I am creating a simple logon form for my database. Firstly, I have a user table (tblUsers) containg a 'Username' field and a 'Password' field.
And a logon form containg;
-A username text box ('Username')
-A password text box ('Password')
-A command button (cmd_hardware) which has this code behind it:
Private Sub cmd_hardware_Click()
If Me.Username = DLookup("Username", "tblUsers") And Me.Password = DLookup("Password", "tblUsers") Then
DoCmd.OpenForm "frm_Hardware_home"
DoCmd.Close acForm, "frmLogon"
Forms!frm_Hardware_home!txtLogon = Me!Username
Else
MsgBox "Username/Password not found. Please re-enter.", vbOKOnly & vbCritical, "Access Denied."
Me!Username.SetFocus
End If
End Sub
The command button seemed to be working when I added the first user to the user table (loaded up frm_Hardware_home) and displayed a message box if i entered an incorrect username or password.
However, when I added a second user to the user table, I couldn't logon. But still works for the first record (user) in the user table??
I also tried with a third but also won't logon?
Could anyone help? Apologies again if this problem has been listed before but could not find a solution, and also I know that this isn't the most secure way. I will change the startup up options when it comes down to it.
