نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1

    آخرین بازدید
    2017/06/20
    تاریخ عضویت
    March 2016
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

  2.  

  3. #2


    آخرین بازدید
    22 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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

  4. سپاس ها (1)


  5. #3

    آخرین بازدید
    2017/07/16
    تاریخ عضویت
    June 2015
    محل سکونت
    تهران
    نوشته ها
    4
    امتیاز
    15
    سپاس
    5
    سپاس شده
    5 در 3 پست
    تعیین سطح نشده است

    کد:
    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 ="نامعتبر"
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar Learn.rar اطلاعات (1.37 مگابایت, 235 نمایش)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. مشکل خطای اکسس هنگام دادن خروجی اکسل
    توسط yogishiip در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/12/20, 19:20
  2. لینک کردن یک سلول در اکسل و یک سطر در اکسس
    توسط محمدی68 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/12/17, 13:34
  3. فرم شناور در اکسس
    توسط Ali Parsaei در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/11/25, 13:55
  4. مفاهیم اولیه کنترل خطا در اکسس
    توسط ~M*E*H*D*I~ در انجمن برنامه نویسی در اکسس
    پاسخ ها: 0
    آخرين نوشته: 2014/01/10, 11:39
  5. انتقال اطلاعات از اکسل به اکسس
    توسط lordsherwin در انجمن پیوت تیبل و پايگاه داده - Pivot Table and Database
    پاسخ ها: 0
    آخرين نوشته: 2011/09/10, 15:28

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

اعتبارسنجی کد ملی اکسس

اکسل تابع کد ملی

اعتبار سنجی کد ملب در اکسس

اعتبار سنجی کد ملی اکسس

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است