Ahmed_J قام بنشر نوفمبر 4, 2020 مشاركة قام بنشر نوفمبر 4, 2020 (معدل) السلام عليكم قمت بوضع اكواد لشرطين في النموذج *الشرط الاول الذي وضعته لاجبار المستخدم على ادخال 11 رقم فقط *الشرط الثاني الذي وضعته لاجبار المستخدم على ادخال ارقام وليست حروف (نص) المطلوب وضع شرط ثالث ( اجبار المستخدم على ادخال اول 3 ارقام لتحديد اسم شبكة الاتصال) ويكون فقط في النموذج وليس في قناع الادخال او قاعدة التحقق من الصحة وليس من خلال استعلام 1- للموبايل رقم 1 يجب ان تكون الارقام الثلاثة الاولى (078) الشبكة الاولى 2- للموبايل رقم2 يجب ان تكون الارقام الثلاثة الاولى (077) الشبكة الثانية وشكرا لكم test.accdb تم تعديل نوفمبر 4, 2020 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر نوفمبر 4, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 4, 2020 ممكن تستخدم مثلا هذا الكود ان اردت ..... 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 6 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر نوفمبر 5, 2020 الكاتب مشاركة قام بنشر نوفمبر 5, 2020 السلام عليكم @Barna شكرا لك استاذي العزيز وبارك الله فيك رابط هذا التعليق شارك More sharing options...
Barna قام بنشر نوفمبر 5, 2020 مشاركة قام بنشر نوفمبر 5, 2020 وعليكم السلام @Ahmed_J حياك الله ... 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.