สามารถกำหนด Input Mask ใน property ของ Field ตอน design table ได้ครับ
เช่นกรณีเลขประจำตัวประชาชนก็พิมพ์
0-0000-00000-00-0
(แล้ว access จะแปลงเป็น 0\-0000\-00000\-00\-0 ให้)

หรือจะกำหนดที่ property ของ textbox ก็ได้

ขอบคุณค่ะ จะลองทำดูนะคะ

เย้ ๆๆๆ ได้แล้วค่ะ ขอบคุณค่ะ

ที่น่าตรวจสอบอีกอันนึงคือ เลขประชาชน 13 หลักที่กรอก ถูกต้องตามหลักการ ของกระทรวงมหาดไทยหรือไม่....(ถ้าสนใจ ก็จะได้นำ Code มาศึกษาดูครับ)

น่าสนใจครับ ขอบคุณล่วงหน้าเลยครับ

ตรวจสอบเลขประชาชน 13 หลักที่กรอก ถูกต้องตามหลักการ ของกระทรวงมหาดไทยครับ....

ชื่อตาราง                                 = OFFICERS
ชื่อฟิลด์ที่ตรวจสอบ                   = PID
-------------------------------------------
ชื่อฟอร์ม                                  = OFFICERS
ชื่อออบเจ็คที่ใช้ (Text Box)        = PID
เหตุการณืที่ใช้                          = LostFocus หรืออย่างอื่น


Private Sub PID_LostFocus()

Dim Cal As Integer
Dim Sum As Integer
Dim Last_Card As Integer
Dim chk As Integer
Dim C2 As Integer
Dim C1 As Integer

num = PID.Text
If Len(Trim(num)) = 13 Then
                    Sum = 0
                    For i = 1 To 12
                        Cal = Mid(Trim(num), i, 1) * (13 - (i - 1))
                        Sum = Sum + Cal
                    Next
                    C1 = 11 - (Sum Mod 11)
                    Last_Card = Right(C1, 1)
                    C2 = Mid(Trim(num), 13, 1)
                    If Last_Card <> C2 Then
                        If (MsgBox("เลขประจำตัวประชาชนผิดพลาด" & Chr(13) & Chr(10) & "ต้องการแก้ไขใหม่หรือไม่", vbYesNo, "ตรวจสอบ) = vbYes) Then
                     
                                    Chk_PID = True
                                    PID.SetFocus
                            Else
                                    FNAME.SetFocus
                            End If
                    Else
                                 FNAME.SetFocus
                    End If
Else
MsgBox "เลขประชาชน 13 หลักมีไม่ครบ", vbOKOnly, "ตรวจสอบ"
Chk_PID = True
PID.SetFocus

End If

End Sub