Linking successful login to a form

[ICTkirsten]

Hello, i have created a login page and i have coded it but i do not know to set coding up so that it results in a linked form to open up..( main menu)

I Have added an attachment of the existing coding.

Please could someone help me


Thank you very much

 

[pbaldy]

Use DoCmd.OpenForm where you have the success message box.

 

[ICTkirsten]

Thank you for your swift response.

I am really unfamiliar with access and all my current work is done with the aid of youtube.

You said to use DoCmd.OpenForm
Where abouts in the code should i locate this?

Thanks so much

 

[ICTkirsten]

Private Sub btnOK_Click()

If IsNull(Me.txtUsername) Then
MsgBox "Please enter your username.", vbInformation, "Username Is Required"
Me.txtUsername.SetFocus
Else
If IsNull(Me.TxtPassword) Then
MsgBox "Please enter your password.", vbInformation, "Password Is Required"
Me.TxtPassword.SetFocus
Else
If (IsNull(DLookup("[Username]", "Employee_Login_Details", "[Username] ='" & Me.txtUsername.Value & "' And password = '" & Me.TxtPassword.Value & "'"))) Then
MsgBox "Incorrect username or password. Please try again.", vbInformation, "Incorrect Login Details"
Else
MsgBox "Correct username and password.", vbInformation, "Correct Login Details"
End If
End If
End If
End Sub



this is the current code

 

[pbaldy]

Replace this line:

MsgBox "Correct username and password.", vbInformation, "Correct Login Details"

 

[ICTkirsten]

i have now inputted this but it still doesnt work..


Private Sub btnOK_Click()

If IsNull(Me.txtUsername) Then
MsgBox "Please enter your username.", vbInformation, "Username Is Required"
Me.txtUsername.SetFocus
Else
If IsNull(Me.TxtPassword) Then
MsgBox "Please enter your password.", vbInformation, "Password Is Required"
Me.TxtPassword.SetFocus
Else
If (IsNull(DLookup("[Username]", "Employee_Login_Details", "[Username] ='" & Me.txtUsername.Value & "' And password = '" & Me.TxtPassword.Value & "'"))) Then
MsgBox "Incorrect username or password. Please try again.", vbInformation, "Incorrect Login Details"
Else

DoCmd.OpenForm (MainMenu)
End If
End If
End If
End Sub

 

[ICTkirsten]

sorry didnt mean for such an abrupt presentation of text

 

[ICTkirsten]

my original coding was wrong but i have worked it out and thank you to your added comments everything is working fine now

 

[pbaldy]

No problem, glad you got it sorted.