Private Sub Command370_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Please Enter the password to allow access."
strInput = InputBox(Prompt:=strMsg, Title:="Admin Password")
If strInput = "CH1" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
'DoCmd.ApplyFilter , "company = 'PPI -ENGINEERING'"
DoCmd.ApplyFilter , "company = '1'"
DoCmd.Close acForm, Me.Name
'DoCmd.Close acForm, Me.Name
ElseIf strInput = "PW1" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
'DoCmd.ApplyFilter , "company = 'PPI -ENGINEERING'"
DoCmd.ApplyFilter , "company = '1'"
DoCmd.Close acForm, Me.Name
ElseIf strInput = "ew1" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
DoCmd.ApplyFilter , "company = '2'"
DoCmd.Close acForm, Me.Name
ElseIf strInput = "PW2" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
'DoCmd.ApplyFilter , "company = 'PPI -ENGINEERING'"
DoCmd.ApplyFilter , "company = '2'"
DoCmd.Close acForm, Me.Name
ElseIf strInput = "lm1" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
DoCmd.ApplyFilter , "company = '3'"
DoCmd.Close acForm, Me.Name
ElseIf strInput = "mrall" Then
'MsgBox "Password accepted! Welcome! " & "Mike" 'password is correct
DoCmd.OpenForm "issue list"
'DoCmd.ApplyFilter , "company = '3'"
DoCmd.Close acForm, Me.Name
Else 'password is incorrect
MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''issue list''.", vbCritical, "Invalid Password"
Exit Sub
End If
End Sub