Create a log-in screen

[DMFisher]

I am looking to create a log-in screen for staff to enter their Username and Password to access a certain form.

Their log-in details are saved in a table called tbl_Staff_Name (Column 7 = Username, Column 8 = Password)
When they log-in i want them to be able to access the form Splashpage

Does anybody know the quickest / best way to do this?

 

[dmt32]

Hi,
have a look here:Excel Userform Login - Online PC Learning

and see if any help to you.

Dave

 

[DMFisher]

I Currently have the following code which is working perfectly... is it now possible to have code that opens a certain form dependent on the username entered?

Public Sub Login()

On Error GoTo ErrorHandler:


If IsNull([cboUser]) = True Then 'Check UserName
MsgBox "Username is required"

ElseIf IsNull([txtPassword]) = True Then 'Check Password
MsgBox "Password is required"

Else

'Compare value of txtPassword with the saved Password in tblUser
If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
strUser = Me.cboUser.Value 'Set the value of strUser declared as Global Variable
strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") 'set the value of strRole declared as Global Variable
DoCmd.Close acForm, "frmLogin", acSaveNo
DoCmd.OpenForm "frmMenu", acNormal, "", "", , acNormal

Else
MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
intLogAttempt = intLogAttempt + 1
txtPassword.SetFocus

End If

End If

'Check if the user has 3 wrong log-in attempts and close the application
If intLogAttempt = 3 Then
MsgBox "You do not have access to this database.Please contact admin." & vbCrLf & vbCrLf & _
"Application will exit.", vbCritical, "Restricted Access!"
Application.Quit
End If

ErrorHandler:


End Sub