تحديد عدد الارقام 11 رقم فقط

[محمد التميمي]

السلام عليكم 

اخواني واساتذتي الكرام كيف الاحوال

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

كيف لي ان احدد عدد الارقام في هذه الخانة بـ ( 11 ) رقم فقط واذا زاد او قل تظهر رسالة تحذيرية بعدم القبول ولا ينتقل الى السجل التالي

مع فائق الشكر والاحترام

45.mdb

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

اتفضل لعله طلبك

If Not IsNumeric(Mobile) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
Cancel = True
ElseIf Len(Mobile) <> 11 Then
 MsgBox "  فـضـلاً أدخـل عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
End If

 

45.mdb

[محمد التميمي]

7 دقائق مضت, ابو ياسين المشولي said:

اتفضل لعله طلبك

If Not IsNumeric(Mobile) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
Cancel = True
ElseIf Len(Mobile) <> 11 Then
 MsgBox "  فـضـلاً أدخـل عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
End If

 

45.mdb 360 kB · 0 تنزيلات

بارك الله بك اخي أبو ياسين

نعم بالتأكيد هو المطلوب شكراً جزيلاً

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

بالتوفيق اخي

[kha9009lid]

2 ساعات مضت, ابو ياسين المشولي said:

اتفضل لعله طلبك

رائع كعادتك اخي محمد

نور الموقع بعودتك 🌹

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

4 دقائق مضت, kha9009lid said:

رائع كعادتك اخي محمد

نور الموقع بعودتك 🌹

تسلم اخي خالد الموقع منور باهله وبيكم جزاكم الله خير