تابع صحت کد ملی در اکسس

[reza.rh]

با سلام خدمت برنامه نویسان حرفه ای من در اکسس مبتدی هستم میخواست بدونم کد آماده هست که بتونه صحت کد ملی رو بررسی کنه و در صورت درست بو ن ادامه و غلط بودن پیغام بفرسته.. با تشکر سینا
منتظر پاسخ شما دوستان هستم

[Amir Ghasemiyan]

سلام دوست عزیز

قبل از ارسال سوالتون حتما در انجمن جستجو کنید
فایل تشخیص صحت کد ملی در اکسل

[میم.حسین.الف]

Dim A As Integer
Dim num As Long
Dim N As Long
Dim C As Integer
Dim L As Integer
A = Right(TCODM.Text, 1)
num = Left(TCODM.Text, 9)
L = 2
For i = 1 To 9
If TCODM.Text = "1111111111" Or TCODM.Text = "2222222222" Or TCODM.Text = "3333333333" Or TCODM.Text = "4444444444" Or TCODM.Text = "5555555555" Or TCODM.Text = "6666666666" Or TCODM.Text = "7777777777" Or TCODM.Text = "8888888888" Or TCODM.Text = "9999999999" Then
A = MsgBox("تمام رقم های کد ملی یکسان است", vbOKOnly + vbExclamation + vbMsgBoxRight, "هشدار")
End If
If TCODM.Text = "1111111111" Or TCODM.Text = "2222222222" Or TCODM.Text = "3333333333" Or TCODM.Text = "4444444444" Or TCODM.Text = "5555555555" Or TCODM.Text = "6666666666" Or TCODM.Text = "7777777777" Or TCODM.Text = "8888888888" Or TCODM.Text = "9999999999" Then Exit For
 
N = num Mod 10
num = num \ 10
Z = N * L
Sum = Sum + Z
L = L + 1
Next
C = Sum Mod 11
If C < 2 And A = C Or C >= 2 And A = 11 - C Then LMSG.Caption = "معتبر" Else LMSG.Caption ="نامعتبر"