برنامه هایی که در اکسس نوشته میشه و با افراد سرو کار داره مثل ، نرم افزار مدیریت ورود و خروج پرسنل و یا نرم افزار مدیریت مخاطبین در اکسس نیاز پیدا میکنن که صحت کد ملی در اکسس بررسی بشه که برای این کار کافیه مراحل زیر رو انجام بدین.
بررسی صحت کد ملی در اکسس
- کدهایی که در ادامه نوشته شده را کپی کنید.
- وارد فایل اکسس خود شوید و با زدن کلیدهای Alt +F11 وارد کدنویسی شوید.
- یک ماژول ایجاد کرده و کدهای کپی شده را در آن قرار دهید.
Function ISMELLICODE(CodeMelli As String) As Boolean
Dim first_number As Integer, num As Integer, counter As Integer, s As Integer, r As Integer, i As Integer
If IsNumeric(CodeMelli) And Len(CodeMelli) = 10 Then
first_number = Left(CodeMelli, 1)
For i = 1 To 9
num = Mid(CodeMelli, i, 1)
If num = first_number Then counter = counter + 1
s = s + num * (11 - i)
Next i
r = s Mod 11
If r > 1 Then r = 11 - r
If r = Val(Right(CodeMelli, 1)) And counter < 9 Then ISMELLICODE = True
End If
End Functionبا انجام مراحل بالا یک تابع به فایل اکسس شما اضافه می شود با نام ISMELLICODE و کافیست برای بررسی صحت کدملی وارد شده در اکسس در قسمتهای مختلف به شکل زیر عمل کنید.
فرض می کنیم که فرمی در اکسس داریم که یک تکست باکس با نام Text0 در آن وجود دارد .
- کنترل text0 را انتخاب میکنیم .
- در رویداد BeforUpdate کنترل text0 کدهای زیر را قرار می دهیم.
If IsNull(Me.Text0) Then
MsgBox " کد ملي وارد نشده است"
Exit Sub
End If
If ISMELLICODE(Text0) = False Then
MsgBox "کد ملي وارد شده صحيح نيست"
Cancel = True
End If
بررسی کد ملی در اکسس قسمت کوئری ها
فرض می کنیم در فایل اکسس جدولی با نام tblContacts داریم که در آن فیلدی وجود دارد با نام cCode از نوع متنی که اطلاعات مربوط به کد ملی در آن نگهداری می شود.
حالا می خواهیم کوئری بسازیم که کد ملی وارد شده در جدول tblContacts را بررسی کند:
- به تب Create رفته و روی Query Design کلیک میکنیم .
- از جدول tblContacts فیلد cCode را انتخاب میکنیم تا به نوار فیلدهای کوئری اضافه شود.
- در یک فیلد خالی کوئری عبارت زیر را می نویسیم.
Check: IIf(IsNull([cCode]),"خالی",IIf(ISMELLICODE([cCode]),"صحیح","غلط"))
صحت کد ملی در اکسس ، گزارشات
برای بررسی کدملی در گزارشات کافیست در مرحله قبل کوئری بسازید و گزارش خود را از روی کوئری تنظیم نمائید .
و یا اینکه مانند مرحله قبل در یک فیلد خالی گزارش ، کد ارائه شده را وارد نمائید.
