ms access vba code

[aym2u2]

Pls i use a vba code in ms access to login into my form. but i want if student login it should bring out such student record. pls what are my going to add to the below code to enable each student to login into their form. thank you.

Option Compare Database
Private Sub Command1_Click()
Dim User As String
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempID As String
If IsNull(Me.txtUserName) Then
 MsgBox "Please enter UserName", vb
 Me.txtUserName.SetFocus
ElseIf IsNull(Me.txtPassword) Then
 MsgBox "Please enter Password", vb
 Me.txtPassword.SetFocus
Else
 If (IsNull(DLookup("UserLogin", "t
 MsgBox "Invalid Username or Passwo
 Else
 TempID = Me.txtUserName.Value
 UserName = DLookup("[UserName]", "
 UserLevel = DLookup("[UserType]",
 TempPass = DLookup("[UserPassword]
 UserLogin = DLookup("[UserLogin]",
 DoCmd.Close
 If (TempPass = "password") Then
 MsgBox "Please change Password", v
 DoCmd.OpenForm "frmUserinfo", , ,
 Else
 'open different form according to
 If UserLevel = 1 Then ' for admin
 DoCmd.OpenForm "Admin Form"
 Else
 DoCmd.OpenForm "Navigation Form"
 End If
 End If
 End If
End If
End Sub
Private Sub Form_Load()
Me.txtUserName.SetFocus
End Sub

[ADezii]

Much of your Code is truncated, please repost the Code in its entirety.

[aym2u2]

@ADezii
ok tnx for ur respond i will do that

[aym2u2]

Option Compare Database
 
Private Sub Command1_Click()
Dim User As String
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempID As String
 
If IsNull(Me.txtUserName) Then
 MsgBox "Please enter UserName", vbInformation, "Username required"
 Me.txtUserName.SetFocus
ElseIf IsNull(Me.txtPassword) Then
 MsgBox "Please enter Password", vbInformation, "Password required"
 Me.txtPassword.SetFocus
Else
 If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin = '" & Me.txtUserName.Value & "' And UserPassword = '" & Me.txtPassword.Value & "'"))) Then
 MsgBox "Invalid Username or Password!"
 Else
 TempID = Me.txtUserName.Value
 UserName = DLookup("[UserName]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 UserLevel = DLookup("[UserType]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 TempPass = DLookup("[UserPassword]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 UserLogin = DLookup("[UserLogin]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 DoCmd.Close
 If (TempPass = "password") Then
 MsgBox "Please change Password", vbInformation, "New password required"
 DoCmd.OpenForm "frmUserinfo", , , "[UserLogin] = " & UserLogin
 Else
 'open different form according to user level
 If UserLevel = 1 Then ' for admin
 DoCmd.OpenForm "Admin Form"
 Else
 DoCmd.OpenForm "Navigation Form"
 End If
 
 End If
 End If
End If
End Sub
 
Private Sub Form_Load()
Me.txtUserName.SetFocus
End Sub

[NeoPa]

@Aym2u2.

I've just sent you a PM. Please read it and confirm receipt by clicking on the box.

I omitted to include an injunction to express yourself in proper English where possible. Txtspk is fine for phones but not acceptable here. It's harder to understand and annoying for most who try to read it. Not everyone here is even familiar with it. Many of those that are find it irritating. Our rules prohibit its use explicitly.

PS. Just to be absolutely clear, this is not about how well you speak and understand English. We have no problem with people trying to communicate in English and just not being very good. This is about the unnecessarily abbreviated nature of writing Pls instead of Please; ur instead of you're or you are; etc.

Clearly you are a polite person. I can see that. Also you aren't aware of all our rules so I'm explaining some of them for you in order that you don't upset people and you get more people willing to offer you help.

[NeoPa]

I believe you mentioned elsewhere that you're new to Access and VBA. In that case one of the most helpful tips I can give you is to ensure all variables are properly declared (Require Variable Declaration). This will save you a great deal of unnecessary grief.

[aym2u2]

Firstly, I Create a table tblUser with a UserName, UserLogin, UserSecurity and UserPassword fields. and tblSecurity with SecurityID and SecurityLvl.

Secondly i have a form with ID, FirstName, MiddleName, LastName, Country etc.

So Using the BELOW code only open Form with ID 1, assuming my userLogin is aym2u2, my Password is 1234 and is on ID. 5 in the tblUser what are my going to do to open Form corresponding to ID 5.

Option Compare Database
 
Private Sub Command1_Click()
Dim User As String
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim UserName As String
Dim TempID As String
 
 
If IsNull(Me.txtUserName) Then
 MsgBox "Please enter UserName", vbInformation, "Username required"
 Me.txtUserName.SetFocus
ElseIf IsNull(Me.txtPassword) Then
 MsgBox "Please enter Password", vbInformation, "Password required"
 Me.txtPassword.SetFocus
Else
 If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin = '" & Me.txtUserName.Value & "' And UserPassword = '" & Me.txtPassword.Value & "'"))) Then
 MsgBox "Invalid Username or Password!"
 Else
 TempID = Me.txtUserName.Value
 UserName = DLookup("[UserName]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 UserLevel = DLookup("[UserType]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 TempPass = DLookup("[UserPassword]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 UserLogin = DLookup("[UserLogin]", "tblUser", "[UserLogin] = '" & Me.txtUserName.Value & "'")
 DoCmd.Close
 If (TempPass = "password") Then
 MsgBox "Please change Password", vbInformation, "New password required"
 DoCmd.OpenForm "frmUserinfo", , , "[UserLogin] = " & UserLogin
 Else
 'open different form according to user level
 If UserLevel = 1 Then ' for admin
 DoCmd.OpenForm "Admin Form"
 Else
 DoCmd.OpenForm "Navigation Form"
 End If
 
 End If
 End If
End If
End Sub
 
Private Sub Form_Load()
Me.txtUserName.SetFocus
End Sub

[NeoPa]

Clearly you have no worries about saving yourself unnecessary grief as per my last post. Let me see if I can explain it another way. When experts see code posted without that important line at the top (Option Explicit), as explained in the linked article, they will do one of two things :

1. Advise you that it's very unwise to do anything with such code.
2. Assume you're beyond help and ignore your posts.

So. Not only is it wise to do for your own sake and sanity, it will also increase your chances of anyone bothering to help you when you post.

Ultimately though, it's entirely your call. You have all the relevant information available to you so you can take full responsibility for your choice.