Validation Using Code

[Eranka]

HI



Len([Text4])>=8 And Like "*[0-9]*" And Like "*[a-z]*" And Like "*[@=.^_$%!#&'`{|}*?~/-]*"


above is the validation rule i used for a form. is there is a way to implement the above validation rule using vba code? if so how to do it?

appreciate your help.

Thanks in advance

[ranman256]

why test for all this? Isnt it EVERY character on the keyboard?
just test for : >=8

[Eranka]

Hi

its for a password filed. i want user to user password which consist of letter,number and special characters.

[Minty]

Have a read here for some examples of testing password complexity : https://access-programmers.co.uk/for...d.php?t=283490

[isladogs]

Hi

its for a password filed. i want user to user password which consist of letter,number and special characters.

Eranka
Use the before update event to test for those criteria
However I've already answered this exact question in detail as part of your previous thread about password validation.
https://www.accessforums.net/showthr...956#post398956
In fact in that thread you said you had tried it and that it 'worked great'
Perhaps you have forgotten!

[orange]

I see Colin has responded, but I found and adjusted some vba regex that might be useful to someone.

' ----------------------------------------------------------------
' Procedure Name: ValidateUserPassword
' Purpose: Validate user supplied password. Must be 8 or more chars in length.
'          Must start with letter or digit.
'          Must contain an Upper and Lower case char, a Digit and a special character.
'          Uses Regex --so needs a reference to scripting runtime
'  --base found on internet----
' Procedure Kind: Function
' Procedure Access: Private
' Parameter s (String):
' Return Type: Boolean
' Author: Jack
' Date: 12-Jun-18
' ----------------------------------------------------------------
Private Function ValidateUserPassword(s As String) As Boolean

    Dim strPattern As String

    strPattern = "(?=^.{8,}$)(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?!.*\s)[0-9a-zA-Z!*^?](?=.*[\+\-\_\\\`\/\,\;\:\!\~\@\#\$\%\&\^\}\{\[\]\.])"

    With CreateObject("VBScript.RegExp")
        .Global = False
        .MultiLine = False
        .IgnoreCase = False
        .Pattern = strPattern
        ValidateUserPassword = .Test(s)
    End With

End Function

Here is my test routine

Sub valpwd()
'test routine
    Dim i As Integer
    Dim Valstring(7) As String
10  Valstring(0) = "Abc88+"     ' too short false
20  Valstring(1) = "AbcDEfg#"   ' no digit  false
30  Valstring(2) = "ABCD1234_"  ' no lower case false
40  Valstring(3) = "abcd1234_"  ' no upper case false
50  Valstring(4) = "abCD1873"   ' no special char false
60  Valstring(5) = "AcBd7#w1-%" ' valid true
70  Valstring(6) = "12BcZ,.;:"  ' valid true
80  Valstring(7) = "$2BcZ,.@8"  ' must start with letter or digit false

90  For i = 0 To 7
100     Debug.Print i & "  " & Valstring(i) & " " & ValidateUserPassword(Valstring(i))
110 Next i
End Sub

And here is the output:

0  Abc88+ False
1  AbcDEfg# False
2  ABCD1234_ False
3  abcd1234_ False
4  abCD1873 False
5  AcBd7#w1-% True
6  12BcZ,.;: True
7  $2BcZ,.@8 False

[Eranka]

Hi Ridders


sorry i really forgot. small thing

Private Sub Command7_Click()Dim StrSQL As String
Dim rec As String
Dim but As String
Dim Ic As String


Ic = DLookup("[QuestionAnswer]", "tblUser", "[ID] = " & Me.UserLogin)


If IsNull(Me.Text10) Then
 MsgBox "Answer Cannot Be Empty"
 Me.Text10.SetFocus
ElseIf IsNull(Me.Text4) Then
 MsgBox "Password Cannot Be Empty"
 Me.Text4.SetFocus
ElseIf DCount("*", "tblUser", "[UserPassword]= '" & Me.Text4 & "'") Then  '> 0 Then
 MsgBox "Please set a new password. OLD PASSWORD CANNOT BE REUSED !!! "
ElseIf (Text10.Value = Ic) Then
'ElseIf (Text10.Value <> Ic) Then
 'MsgBox "Your answer could not be verified, please try again. If Not Please Contact The Administrator  "
'Else
StrSQL = "INSERT INTO tblUser (UserPassword) " & "VALUES ('" & Me.Text4 & "')"
'DoCmd.RunCommand acCmdSaveRecord
'CurrentDb.Execute "Update tblUser SET Pdate = Date() WHERE ID = " & Me.UserLogin
MsgBox " Password Of " & Me.Text2 & " Updated Successfully !!!"
rec = Me.Text2
but = "Password Update"
CurrentDb.Execute "INSERT INTO ActivityLog (User, Form_Name, Record_ID,Record_Name,Activity_Date,Activity_Time)" & " VALUES ('" & rec & "','" & but & "','" & Me.UserLogin & "','" & Me.Text2 & "',Now(),Now())"
DoCmd.Close
DoCmd.OpenForm "Login"
Else
MsgBox "Your answer you provided could not be verified, please try again. If Not Please Contact The Administrator  "
End If
End Sub

above is the button click method im using. is there is way to call below method inside above code instead of calling inside beforeupdate event.

ValidatePwd Text4

[isladogs]

No. Use the before update event for your textbox for validation