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

[reza.rh]

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

[Amir Ghasemiyan]

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

قبل از ارسال سوالتون حتما در انجمن جستجو کنید
فایل تشخیص صحت کد ملی در اکسل (http://forum.exceliran.com/showthread.php/3638-%D9%81%D8%A7%DB%8C%D9%84-%D8%AA%D8%B4%D8%AE%DB%8C%D8%B5-%D8%B5%D8%AD%D8%AA-%DA%A9%D8%AF-%D9%85%D9%84%DB%8C-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D9%84)

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

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 ="نامعتبر"