Make vba reference a table

[tharless]

Hello, I am trying to set up username and passwords in my data base(access 2007), I have it set up to accept usernames and passwords using vba, but I had to write the username and password into the code. I would like for it to look at a table I created called Users and determine if the username and password are valid. This is what I have now,
If Username = "Tim" And Password = "Rocks" Then
MsgBox "Access Granted", vbInformation, "ViciLife"
MsgBox "Welcome", vbInformation, "ViciLIfe"
DoCmd.Close
DoCmd.OpenForm "Switchboard"
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.SelectObject acForm, NavPane, True
ElseIf Username = "User" And Password = "Password" Then
MsgBox "Access Granted", vbInformation, "ViciLife"
MsgBox "Welcome", vbInformation, "ViciLIfe"
DoCmd.Close
DoCmd.OpenForm "Switchboard"
DoCmd.LockNavigationPane True
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SelectObject acForm, NavPane, True
RunCommand acCmdWindowHide



Else: MsgBox "Please re-enter your Username and Password."

End If
This is so if tim enters his user name and password the database opens with admin privileges, if the default "user" and "password" are entered the ribbon and nav pane are hidden. I would like to set it up so that instead of the code actually saying username = "tim" and password = "rocks" it would reference the username and password field of my Users table, and if tim and rocks is in the users table( or what is entered in the text boxes) it would perform the rest of the code. Any help would be greatly appreciated.
Also this code is in the button click event of a form with 2 textboxes named "Username" and "Password"

[pbaldy]

If you search here on "login" or "password" you should find numerous examples of this type of thing. It's typically done with either a DLookup() or a recordset to get the values from the table. Here's info on DLookup() syntax if you go that way:

DLookup Usage Samples

[slave138]

First, this method is far from fool-proof as users can get right into the table without any password by opening the DB while holding down SHIFT, but assuming that isn't important to you, I would suggest using the DLookup function:

If Me.txtPassword.Value = DLookup("PWORD", "tblUsers", "UserID=" & Chr(34) & Me.txtUserID.Value & Chr(34)) Then
...
Else
...
End If

[tharless]

First, this method is far from fool-proof as users can get right into the table without any password by opening the DB while holding down SHIFT, but I assuming that isn't important to you, I would suggest using the DLookup function:

The people I am creating the db for do not know enough about access to know about the shift click method, basically just giving them the impression that there is nothing else there but what they see will make it to where they think that is all there is. I'm not going for complete security just the illusion lol, thank you for the code it worked perfect the way I wanted it to, and you made it look too easy, now I feel dumb lol. Thanks again.

[slave138]

Happy to help