กำหนดให้ user ตั้งรหัสผ่านตามที่กำหนดไว้

[naekkhung]

บังคับให้ User ตั้งรหัสผ่านตัวอักษร 8 ตัว โดยต้องมีตัวอักษรกับตัวเลข  รวมกันได้ 8 ตัวอักษร ต้องทำยังไงครับ

[สันติสุข]

ที่ BeforeUpdate event procedure ของเท็กซ์บ็อกซ์ที่ใส่รหัสผ่าน ให้ใส่โค้ด

If     Not(nz(Me.ชื่อเท็กซ์บ็อกซ์รหัสผ่าน) like "[A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9][A-Z0-9]") _
Or   Not(nz(Me.ชื่อเท็กซ์บ็อกซ์รหัสผ่าน) like "*[A-Z]*") _
Or   Not(nz(Me.ชื่อเท็กซ์บ็อกซ์รหัสผ่าน) like "*[0-9]*") Then
   Cancel = True
   MsgBox "รหัสผ่านต้องเป็นตัวอักษรภาษาอังกฤษผสมตัวเลขให้ได้ความยาว 8 ตัวอักษร"
End If

[naekkhung]

ขอบคุณอ.สันติสุขมากครับ

[naekkhung]

อ.สันติสุข ขอถามเพิ่มครับถ้าเราจะบังคับให้มีอักขระพิเศษด้วยต้องทำยังไงครับ

[สันติสุข]

ใส่ function procedure ที่ตรวจข้อความ T (ในที่นี้หมายถึง รหัสผ่าน) ข้างล่างนี้ ลงใน Module ที่มีอยู่แล้ว หรือสร้างใหม่ก็ได้  ถ้าตรวจสอบผ่าน ก็แปลว่า รหัสผ่านนั้นครบเงื่อนไข 4 ข้อดังนี้ 1.ความยาว 8 ตัวอักษร 2.มีตัวเลข 0-9 3.มีตัวอักษร a-z, A-Z 4.มีตัวอักษรพิเศษ

โค๊ด: [Select]

Public Function IsValidPSW(T As String) As Boolean

Dim II As Integer
Dim IsNum As Boolean, IsChr As Boolean, IsSpc As Boolean

If Len(์T) <> 8 Then IsValidPSW = False: Exit Function

IsNum = False: IsChr = False: IsSpc = False
For II = 1 To 8
    Select Case Asc(Mid(T, II, 1))
        Case 48 To 57: IsNum = True
        Case 65 To 90, 97 To 122: IsChr = True
        Case 33 To 47, 58 To 64, 91 To 96, 123 To 126: IsSpc = True
        Case Else: IsValidPSW = False: Exit Function
    End Select
Next II
IsValidPSW = IsNum And IsChr And IsSpc
End Function

เวลาจะตรวจสอบก็เขียนว่า
If Not IsValidPSW(nz(Me.ชื่อเท็กซ์บ็อกซ์รหัสผ่าน)) then
   Cancel = True
   MsgBox "รหัสผ่านต้องเป็นตัวอักษรภาษาอังกฤษผสมตัวเลขและอักขระพิเศษให้ได้ความยาว 8 ตัวอักษร"
End If

[naekkhung]

ขอบพระคุณอาจารย์มากๆครับ