رسالة التحقق من الصحة او قناع الإدخال

[nogom]

السلام عليك ورحمة الله وبركاته

اخواني عندي فورم فيه بيانات المورد ومن ضمنها الجوال والرقم الضريبي

اريد في حقل الحوال اذا كتب اقل من 10 ارقام مرفق معها مفتاح الدولة تظهر رسالة ( يجب ان يحتوي رقم الجوال على عشرة ارقام )

وفي حقل الرقم الضريبي اذا كان اقل من عشرة ارقام او اكثر من عشرة ارقام تظهر رسالة ( يجب ان يتكون الرقم الضريبي من 10 ارقام ) 

ايضا اريد اذا كتب في الحقل احرف تظهر رسالة يجب انو يكون ارقام وليس احرف في الحقلين

حاولت فيها ولكن ما عرفت يا ريت تفودوني

تم تعديل أغسطس 19, 2019 بواسطه nogom

[kaser906]

 If Not IsNumeric([أسم الحقل ]) Then
 MsgBox "يجب ادخال ارقام في هذا الحقل", 48, "ادخـال خـاطـئ !"
     End if   

If Len([أسم الحقل]) <> 10 Then
     MsgBox "يجب ادخال عشرةارقام في هذا الحقل", 48, "ادخـال خـاطـئ !"
End if 

::بالتوفيق::

[ابو ياسين المشولي]

فبل التحديث 

If Len(رقم_الجوال) <> 10 Then
 MsgBox "  فـضـلاً أدخـل عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
cancel = True
Me.رقم_الجوال.Undo
End If
عند الضغط على مفتاح
    Dim Chkstr As String
    Chkstr = "0123456789"
    
    If KeyAscii > 26 Then 'اي ان المفتاح الذي تم نقره ليس من ضمن مفاتيح التحكم مثل Ctrl
    If InStr(1, Chkstr, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation,  "  : خـطـاء "
    End If
    End If

 

تم تعديل أغسطس 19, 2019 بواسطه ابو ياسين المشولي