شماره کارت بانکی 16 رقم می باشد و از الگوریتمی خاص برای چک کردن درست بودن آن می توانیم استفاده کنیم که قبلا در مطلب مربوط به کارت بانکی در اکسل توضیح کامل داده ایم. حالا نوبت کارت بانکی در اکسس است .
الگوریتم موجود برای چک کردن صحت کارت بانکی در اکسس
الگوریم موجود که در تابع هم رعایت شده و توسط آن می توانیم درست بودن شماره 16 رقمی کارت بانکی را چک کنیم به شرح ذیل است.
- ابتدا اعدادی که موقعیت زوج دارند را باهم جمع میکنیم .
- اعدادی که موقعیت فرد دارند را در 2 ضرب میکنیم .
- هر کدا از اعداد موقعیت زوج که حاصل ضرب آنها در 2 بزرگتر 18 شد منهای 9 می کنیم.
- عدد حاصله ار مرحله اول را با عدد به دست آمده از مرحله دوم و سوم با هم جمع می کنیم.
- اگر حاصل جمع بر عدد 10 بخش پذیر باشد ، کارت بانکی صحیح است.
چگونه در دیتابیس خود استفاده کنیم
برای اینکه بتوانید از ماژول قرار داده شده برای کنترل صحت کارت بانکی 16 رقمی دراکسس در دیتابیس خود استفاده نمائید ، کافیست مراحل ذیل را دنبال کنید.
- فایلی که در ادامه و ضمیمه این مطلب می باشد دانلود کنید.
- با گرفتن کلید شیفت فایل اکسس را باز کنید
- یک فرم و یک ماژول و یک جدول در دیتابیس وجود دارد.
- باید جدول و ماژول را به دیتابیس خود انتقالدهید.
- از کدهایی که در فرم موجود نوشته شده است را مطابق فایل خود تغییر دهید.
عدم اجازه به خالی گذاشتن فیلد کارت بانکی
گاها پیش می آید که کاربر بدون وارد کردن شماره کارت بانکی از تکست باکش خارج می شود و از آنجا که ما کدها را در رویداد After Update تکست باکس نوشته باشم باید ترتیبی اتخاذ کنیم که اگر خالی به کاربر پیغام مناسبی نمایش دهد.
در رویداد After Update قبل از هرچیز کدهای زیر را وارد کنید
If IsNull(Me.Text0) Or Me.Text0 = "" Then
Me.lblAlarm.Caption = " شماره کارت بانکی وارد نشده "
Me.lblAlarm.BackColor = RGB(60, 203, 244)
Exit Sub
End Ifبا فرض اینکه نام تکست باکس شما Text0 باشد و کنترل دیگری از نوع Label داشته باشید. با نام lblAlarm کدهای بالا به کاربر اطلاع می دهد که تکست باکس مربوط به شماره کارت بانکی در اکسس خالی است.
1 دیدگاه
به گفتگوی ما بپیوندید و دیدگاه خود را با ما در میان بگذارید.
سلام لینک دانلود رایگان تاریخ شمسی در اکسس عالی بود ممنون از لطف شما من نرم افزار انبار و تنخواه شما را استفاده کردم عالی بود استاد فقط نشد آرم تنخواه را برای گزارش گیری عوض کرد و نیاز به تهیه نسخه حرفه ای بود😜