Clayhead22
Registered User.
- Local time
- Today, 02:37
- Joined
- Feb 22, 2015
- Messages
- 36
Hi All. I think this could be a formatting issue or doing something simple, incorrectly however i am at the end of my tether. Please be so kind to help.
Enter_Username = the name of the text box on the login page.
Also "Profile field" value is a drop down list selection within the table "Users". Table format is "Short Text"
It does not throw up any errors however it does not open the form.
Also just to mention i have ensured i am entering the correct Username and password.
Enter_Username = the name of the text box on the login page.
Also "Profile field" value is a drop down list selection within the table "Users". Table format is "Short Text"
Code:
Dim Useraccess As String
Useraccess = DLookup("Profile", "Users", "Username = '" & Enter_Username & "'")
If Useraccess = "Agent" Then
DoCmd.OpenForm "Agent Dashboard"
It does not throw up any errors however it does not open the form.
Also just to mention i have ensured i am entering the correct Username and password.