Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
Private Sub txtOwnersWord_Validate(Cancel As Boolean) Const I_SAY_SO = False Const PROC_NAME = "txtOwnersWord_Validate" gMyEH.StartRoutine mMODULE_NAME & "." & PROC_NAME On Error GoTo Err_txtOwnersWord_Validate If IsOurAreaWordValid(gstrOwners, "") Then gstrMBMessage = "This is the first login for the [" & gstrOwners & _ "] account since a " & vbCrLf & "password reset. A new password must be entered now." gintMBType = vbOKOnly Beep Call MsgBox(gstrMBMessage, gintMBType, "Validation Error") Load frmChngWrd frmChngWrd.txtUserName = gstrOwners frmChngWrd.Show vbModal If frmChngWrd.mblnIsPasswordChanged Then gstrOwners = frmChngWrd.txtUserName txtDBOwnerName = gstrOwners gstrDBOwnerPwd = frmChngWrd.txtNewPassword chkChngWrd = 0 End If Unload frmChngWrd End If 'If the user has entered a password for the db owner then of course the 'user wants to login in the db owner. If Not txtOwnersWord = "" And Not chkAcceptOwner = 1 Then chkAcceptOwner = 1 End If If I_SAY_SO Then Cancel = True End If Exit_txtOwnersWord_Validate: On Error GoTo Err_txtOwnersWord_Validate gMyEH.EndRoutine mMODULE_NAME & "." & PROC_NAME Exit Sub Err_txtOwnersWord_Validate: gMyEH.Raise Err.Number, _ Source:=mMODULE_NAME & "." & PROC_NAME Resume Exit_txtOwnersWord_Validate End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.