A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|convert a string containing currency data into a currency or decimal in vb6, no matter the country currency||4||65|
|Protecting vb6 & .Net code Obfuscation||18||183|
|Need Nag Screen for Reboot if system up time is over 14 days||12||81|
|VBA: copy range dynamically based on config sheet v3||6||31|