HI!
I am a student and I am preparing my BECHALOR thesis. I am constructing and manipulating a library database. My problem is this:
I've a table named tblUsers that have this fields:
UserName—–Text
Password——Text
Access——–Number(1 for student and o for admin)
ID—————-Autonumber
I've also created a login form witch contain a combo box named Combo21 that displays all the UserNames , a textbox named Password and a button named Login.
That I want my code to do is to control
1- if the username is entered
2- if the password is entered
3- to control if the password entered match with the username and only if this condition is true to open Form Student_Menu if the [Access].[tblUsers]=1 or open Form Admin_Menu if the [Access].[tblUsers]=0.
My problem is with the VBA syntax or smth else because I have a clear idea of what to do but I can't express it in VBA code.
Hope that my explanation was understandable!! I would appreciate any replies.Thanks in avance!!

Thanks for posting here, but I meant for you to post the code you are using.

Again, you need to define for me what is not working. You need to explain what is is you do and what happens when you do it. Without that I can't help you. And when I ask specific questions, make sure you answer them.

What you might try is zipping up a copy of your database and attaching to a post here.

Hi,

I will assume you have the passwords and user names in the same table.

I believe the code may go something like this.

Private Sub cmd21_Click
If txtPassword.Text = "mypassword" Then
Beep
Beep
lblPromp.Caption = "Succesful Login" 'If you want the user to know
Else
lblPrompt.Caption = "Wrong Password-Try Again"
txtPassword.Text = "" 'Erase the Password attempt
txtPassword.SetFocus 'Put the focus back on the text box
End If
End Sub

I hope this helps,

Rob

Should be lblPromp.Caption
I couldn't find a edit answer button.
I noticed I made a typo. Sorry.
Rob

Hi ans sorry about that code. It won't work. I don't know what I was thinking. I got mixed up with Visula basic.

Try this, I tested this and it works.

Private Sub cmdLogin_Click()
If UserPassword = DLookup("UserPassword", "tblUsers", "UserID") Then
Beep
Beep
Else
MsgBox "Wrong Password-Try again"
UserPassword = ""
UserPassword.SetFocus
End If
End Sub

Now you can add this line after Beep Beep
Docmd.OpenForm,, "FormStudentMenu"

I just used UserID as an Autonumber field and on the form I put a combo box like ypu did with UserNames.

The row source for cboUsernames is SELECT UserID, UserName FROM tblUsers ORDER BY UserName;
ColumnCount 2
Bound Column 1
Column Widthts 0",2"


This should work well. I didn't bother with the 1 and 0 values. I don't think you need it. Just my opinion.

Good luck with you BA

Rob

should be DoCmd Capital Cmd
Sorry about the typo.

I just noticed you are opening 1 of 2 different forms. You might need to isolate Usernames for Admin? Not sure about that curveball I just saw.

You may have to add a line of code after the DLookup function = 1
DoCmd.OpenForm "frmName" Or DLookup function =2
DoCmd.OpenForm "OtherfrmName"
I'm not sure, Maybe Scott can solve this.

The OP first posted on my blog on Login Security. I asked that he move here since its more suited to followups. I have asked repeatedly that he be more specific in what he needs. He posted a copy of the code he was using. But he has yet to define what about that code was not working or what error messages he has been getting.

Without more specifics, we cannot help.