Option Compare Database
Option Explicit
Private Sub cmdSubmit_Click()
'theDBguy@gmail.com
'2/28/2011
Dim StrMsg As String
' Note: This is message string #1.
StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 1")
If Me.txtNewPwd & "" = "" Then
MsgBox [StrMsg], vbInformation, StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 2")
MsgBox [StrMsg]
Me.txtNewPwd.SetFocus
ElseIf Me.txtConfPwd & "" = "" Then
StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 4")
MsgBox [StrMsg], vbInformation, StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 5")
MsgBox [StrMsg]
Me.txtConfPwd.SetFocus
ElseIf StrComp(Me.txtNewPwd, Me.txtConfPwd, vbBinaryCompare) = 0 Then
StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 6")
MsgBox [StrMsg], vbInformation, "Success!"
CurrentDb.Properties("UserPassword") = Me.txtNewPwd
DoCmd.Close acForm, Me.Name
NewPasswordSet = True
Else
StrMsg = DLookup("MessageString", "[Lookup Message String_Qry]", "[FormName] = '" & Me.Name & "' AND [StringNumber] = 7")
MsgBox [StrMsg], vbExclamation, "Failed!"
Me.txtNewPwd.SetFocus
End If
End Sub