Private Sub Password_AfterUpdate()
' written by EMAD
If IsNull(Me.Password) Then
Me.Password.Value = "password"
MsgBox "password must contain at least 8 characters, password will be reset to password", vbOKOnly
Exit Sub
End If
On Error GoTo error
If Len(Me.Password) < 8 Then
Me.Password.Value = "password"
MsgBox "password must contain at least 8 characters, password will be reset to password", vbOKOnly
Exit Sub
End If
Dim N0, N1, N2, N3, N4, N5, N6, N7, N8, N9 As String
N0 = InStr(Me.Password, "0")
N1 = InStr(Me.Password, "1")
N2 = InStr(Me.Password, "2")
N3 = InStr(Me.Password, "3")
N4 = InStr(Me.Password, "4")
N5 = InStr(Me.Password, "5")
N6 = InStr(Me.Password, "6")
N7 = InStr(Me.Password, "7")
N8 = InStr(Me.Password, "8")
N9 = InStr(Me.Password, "9")
If (N0 + N1 + N2 + N3 + N4 + N5 + N6 + N7 + N8 + N9) = 0 Then
Me.Password.Value = "password"
MsgBox "password must contain at least one numeric value, password will be reset to password", vbOKOnly
Exit Sub
End If
Dim CA, CB, CC, CD, CE, CF, CG, CH, CI, CJ, CK, CL, CM, CN, CO, CP, CQ, CR, CS, CT, CU, CV, CW, CX, CY, CZ As String
CA = InStr(Me.Password, "A")
CB = InStr(Me.Password, "B")
CC = InStr(Me.Password, "C")
CD = InStr(Me.Password, "D")
CE = InStr(Me.Password, "E")
CF = InStr(Me.Password, "F")
CG = InStr(Me.Password, "G")
CH = InStr(Me.Password, "H")
CI = InStr(Me.Password, "I")
CJ = InStr(Me.Password, "J")
CK = InStr(Me.Password, "K")
CL = InStr(Me.Password, "L")
CM = InStr(Me.Password, "M")
CN = InStr(Me.Password, "N")
CO = InStr(Me.Password, "O")
CP = InStr(Me.Password, "P")
CQ = InStr(Me.Password, "Q")
CR = InStr(Me.Password, "R")
CS = InStr(Me.Password, "S")
CT = InStr(Me.Password, "T")
CU = InStr(Me.Password, "U")
CV = InStr(Me.Password, "V")
CW = InStr(Me.Password, "W")
CX = InStr(Me.Password, "X")
CY = InStr(Me.Password, "Y")
CZ = InStr(Me.Password, "Z")
If (CA + CB + CC + CD + CE + CF + CG + CH + CI + CJ + CK + CL + CM + CN + CO + CP + CQ + CR + CS + CT + CU + CV + CW + CX + CY + CZ) = 0 Then
Me.Password.Value = "password"
MsgBox "Password must contain at least one upper letter,password reset to password", vbOKOnly
Exit Sub
End If
Dim Sa, Sb, Sc, Sd, Se, Sf, Sg, Sh, Si, Sj, Sk, Sl, Sm, Sn, So, Sp, Sq, Sr, Ss, St, Su, Sv, Sw, Sx, Sy, Sz As String
Sa = InStr(Me.Password, "a")
Sb = InStr(Me.Password, "b")
Sc = InStr(Me.Password, "c")
Sd = InStr(Me.Password, "d")
Se = InStr(Me.Password, "e")
Sf = InStr(Me.Password, "f")
Sg = InStr(Me.Password, "g")
Sh = InStr(Me.Password, "h")
Si = InStr(Me.Password, "i")
Sj = InStr(Me.Password, "j")
Sk = InStr(Me.Password, "k")
Sl = InStr(Me.Password, "l")
Sm = InStr(Me.Password, "m")
Sn = InStr(Me.Password, "n")
So = InStr(Me.Password, "o")
Sp = InStr(Me.Password, "p")
Sq = InStr(Me.Password, "q")
Sr = InStr(Me.Password, "r")
Ss = InStr(Me.Password, "s")
St = InStr(Me.Password, "t")
Su = InStr(Me.Password, "u")
Sv = InStr(Me.Password, "v")
Sw = InStr(Me.Password, "w")
Sx = InStr(Me.Password, "x")
Sy = InStr(Me.Password, "y")
Sz = InStr(Me.Password, "z")
If (Sa + Sb + Sc + Sd + Se + Sf + Sg + Sh + Si + Sj + Sk + Sl + Sm + Sn + So + Sp + Sq + Sr + Ss + St + Su + Sv + Sw + Sx + Sy + Sz) = 0 Then
Me.Password.Value = "password"
MsgBox "Password must contain at least one lower letter,password reset to password", vbOKOnly
Exit Sub
End If
error:
End Sub