Before creating a Login Form, you need to set up a user table that can verify the login ID and password on the Login Form. The step of creating Login Form can be followed below:
Create a table tblSecurity with a SecurityID and SecurityLevel field and add admin for SecurityID =1 and user for SecurityID =2
Create a table tblUser with a UserName, UserLogin, UserSecurity and UserPassword fields. Remember to add an input mask on the password field so that passwords are not blatantly visible in the table.
I choose to display the type of user rather than just the raw number of the User’s security level by using the Lookup options in the design view. This way the UserType field is a number corresponding to the User’s security level because it refers to the SecurityID in the tblSecurity but displays the user’s UserType in text (admin, user etc.). You can create the UserType field from the Lookup Wizard on the dropdown of Data Type column.
Create a Login Form from the Dialog form design. Then customize the form to your liking.
Create two text boxes in the Login Form as txtUserName with label Login Name and txtPassword with label Password
Under the “On Click Event” of the Cancel button, add the Embedded Macro with a QuitAccess command to exit the program or Access application
Create a Navigation and Admin Form area to reroute your users to the appropriate area of your database application.
Under On Click Event of the OK button, add the VBA code below under the Event Procedure
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
Set the Login Form to display immediately when the Access Database is opened. Go to File->Options and select the Current Database option from the list. Then set the Login Form as the display form.
It should be noted that while this login procedure is helpful to have permissions and different roles withing your Access database and may be needed for our Remote Desktop Hosting – it is not necessary for any hosted Access Web App or Sharepoint Application since you can use the Sharepoint user roles and login procedures rather than handling it within the Access Database itself.