كود اجبار المستخدم على ادخال اول 3 ارقام ارقام معينة

[Ahmed_J]

السلام عليكم 

قمت بوضع اكواد لشرطين في النموذج 

*الشرط الاول الذي وضعته لاجبار المستخدم على ادخال 11 رقم فقط 

*الشرط الثاني الذي وضعته لاجبار المستخدم على ادخال ارقام وليست حروف (نص)

المطلوب وضع شرط ثالث ( اجبار المستخدم على ادخال اول 3 ارقام لتحديد اسم شبكة الاتصال) ويكون فقط في النموذج وليس في قناع الادخال او  قاعدة التحقق من الصحة وليس من خلال استعلام

1- للموبايل رقم 1  يجب ان تكون الارقام الثلاثة الاولى (078) الشبكة الاولى

2- للموبايل رقم2  يجب ان تكون الارقام الثلاثة الاولى (077) الشبكة الثانية

وشكرا لكم

 

test.accdb

تم تعديل نوفمبر 4, 2020 بواسطه Ahmed_J

[Barna]

ممكن تستخدم مثلا هذا الكود ان اردت .....

If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then
Beep
MsgBox " عقواً  .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه"
Cancel = True
Me.mobile1 = ""
End If
With mobile1
If Not IsNumeric(.Value) And .Value <> vbNullString Then
Beep
MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير"
.Value = vbNullString
End If
If Mid(mobile1, 1, 3) <> "078" Then
MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير"
Me.mobile1 = ""
End If
End With

 

[Ahmed_J]

السلام عليكم @Barna

شكرا لك استاذي العزيز

وبارك الله فيك

[Barna]

وعليكم السلام @Ahmed_J

حياك الله ...