توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : تابع صحت کد ملی در اکسس
با سلام خدمت برنامه نویسان حرفه ای من در اکسس مبتدی هستم میخواست بدونم کد آماده هست که بتونه صحت کد ملی رو بررسی کنه و در صورت درست بو ن ادامه و غلط بودن پیغام بفرسته.. با تشکر سینا
منتظر پاسخ شما دوستان هستم
Amir Ghasemiyan
2016/03/25, 01:20
سلام دوست عزیز
قبل از ارسال سوالتون حتما در انجمن جستجو کنید
فایل تشخیص صحت کد ملی در اکسل (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)
میم.حسین.الف
2016/04/15, 01:03
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 ="نامعتبر"
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.