OK,
So I tried this but i dont know how to get the stored password?
I put the StrComp() into a private sub which i beleive is correct? Not real sure...
I put a Call StrComp in before update on Me.TxtPassword
Yet....how to i get the actual stored password form this code?
I put in red what i dont understand in code below?
Thanks
Code:
Option Compare Database
Private Sub CmdExit_Click()
DoCmd.Close
End Sub
Private Sub CMDLogin_Click()
Dim UserName, Temppass As String
Dim UserLevel, ID As Integer
Dim TempLogin As TempVar
Dim Str1 As String, Str2 As String
Str1 = [TxtPassword]
Str2 = Temppass????
If IsNull(Me.TxtLoginID) Then
Status "Please enter UserID"
Me.TxtLoginID.SetFocus
ElseIf IsNull(Me.TxtPassword) Then
Status "Please enter Password"
Me.TxtPassword.SetFocus
Else
If (IsNull(DLookup("PSWDUserID", "PSWDUserTbl", "UserLogin = '" & Me.TxtLoginID.Value & "' And password = '" & Me.TxtPassword.Value & "'"))) Then
Status "Invalid LoginID or Password!"
TxtLoginID = Null
TxtPassword = Null
Me.TxtLoginID.SetFocus
Else
TempVars!TempLogin = Me.TxtLoginID.Value
UserName = DLookup("[Username]", "PSWDUserTbl", "[UserLogin] = '" & Me.TxtLoginID.Value & "'")
UserLevel = DLookup("[UserSecurity]", "PSWDUserTbl", "[UserLogin] = '" & Me.TxtLoginID.Value & "'")
Temppass = DLookup("[password]", "PSWDUserTbl", "[UserLogin] = '" & Me.TxtLoginID.Value & "'")
ID = DLookup("[PSWDUserID]", "PSWDUserTbl", "[UserLogin] = '" & Me.TxtLoginID.Value & "'")
'DoCmd.Close
If (Temppass = "Password1") Then
DoCmd.Close
MsgBox "Please change Password", vbInformation, "New password requeired"
DoCmd.OpenForm "PSWDChangePasswordFrm", , , "[PSWDUserid] = " & ID
ElseIf IsNull(DLookup("answer1", "PSWDUserTbl", "UserLogin = '" & Me.TxtLoginID.Value & "'")) Or IsNull(DLookup("answer2", "PSWDUserTbl", "UserLogin = '" & Me.TxtLoginID.Value & "'")) Or IsNull(DLookup("answer3", "PSWDUserTbl", "UserLogin = '" & Me.TxtLoginID.Value & "'")) Then
DoCmd.Close
msg = "Your security questions have not been set up. " _
& vbCr & "Do you want to set it up now?"
Style = vbYesNo + vbQuestion
Title = "Set Up Security Question?"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
DoCmd.OpenForm "PSWDChangePasswordFrm", , , "PSWDUserID =" & ID
Exit Sub
End If
If Response = vbNo Then
If UserLevel = 1 Then ' for Developer
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 2 Then ' for Admin
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 3 Then ' for Manager
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 4 Then ' for User
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.OpenForm "Switchboard"
End If
End If
End If
End If
End If
Else
DoCmd.Close
If UserLevel = 1 Then ' for Developer
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 2 Then ' for Admin
DoCmd.ShowToolbar "Ribbon", acToolbarYes
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 3 Then ' for Manager
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.OpenForm "Switchboard"
Else
If UserLevel = 4 Then ' for User
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.OpenForm "Switchboard"
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Load()
Me.TxtLoginID.SetFocus
End Sub
Private Sub Status(S As String)
StatusLabel.Caption = S
StatusLabel.Visible = True
End Sub
Private Sub StrComp()
If Not StrComp(Str1, Str2, 0) = 0 Then
MsgBox "Password Incorrect, Password is case sensitive"
End If
End Sub
Private Sub TxtPassword_BeforeUpdate(Cancel As Integer)
Call StrComp
End Sub