Private Sub เลขประจำตัวประชาชน_BeforeUpdate(Cancel As Integer)
If Not ThaiIDcheck(Me.เลขประจำตัวประชาชน) Then
     Cancel = True
   MsgBox "เลขประจำตัวประชาชนไม่ถูกต้อง"
End If
       If DCount("เลขประจำตัวประชาชน", "ทหารกองเกิน", "เลขประจำตัวประชาชน = '" & Me.เลขประจำตัวประชาชน & "'") > 0 Then
    MsgBox "บุคคลนี้คุณได้รับลงบัญชีทหารแล้ว"
     Cancel = True
   Else
    End If
End Sub

Function ThaiIDcheck(ByVal IDnumber As String) As Boolean
Dim i, x As Integer
If Len(IDnumber) <> 13 Then GoTo chkFalse
For i = 1 To 13
If Not IsNumeric(Mid(IDnumber, i, 1)) Then GoTo chkFalse
Next
If CLng(Left(IDnumber, 1)) = 9 Then GoTo chkFalse 'ราชวงศ์.. ไม่เช็ค
If CLng(Left(IDnumber, 1)) = 0 Then GoTo chkFalse 'เป็นไปไม่ได้
            i = 0
        For J = 1 To 12
            i = i + ((14 - J) * CLng(Mid(IDnumber, J, 1)))
        Next
               x = Right(11 - (i Mod 11), 1)
            ThaiIDcheck = False
            If CInt(Right(IDnumber, 1)) = x Then ThaiIDcheck = True
Exit Function
chkFalse:
    ThaiIDcheck = False
End Function