عرض مشاركة واحدة
  #1  
قديم 05-20-2021, 08:50 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


7 إجبار المستخدم لملء الحقول وإظهار رسالة تشير إلى الحقل الناقص

 

السلام عليكم ورحمة الله وبركاته:
إنشاء كود مختصر لإجبار المستخدم لملء الحقول وإظهار رسالة تخبره بالحقل الناقص وانتقال المؤشر إليه مهما تعددت عناصر التحكم، وقد استخدمت خاصية (ControlTipText/نص تلميح عنصر التحكم) الموجودة في تبويب (غير ذلك) لعنصر التحكم، فيقوم الكود بالبحث عن عنصر التحكم الذي كتبنا قيمة في خاصية ControlTipText له وأيضاً عندما يكون فارغا، فإذا توفر هذان الشرطان تظهر رسالة تخبرك بالحقل الناقص موضحاً اسمه استناداً إلى قيمة خاصية ControlTipText ثم ينتقل المؤشر إلى ذلك الحقل، وقد وضعت هذا الكود في حدث (قبل التحديث) للنموذج:


الاســـم:	Screenshot_6.png
المشاهدات: 1
الحجـــم:	19.6 كيلوبايت

كود:
Dim ctl As Control For Each ctl In Me If ctl.ControlTipText <> "" And IsNull(ctl) Then MsgBox "رجاء أدخل " & ctl.ControlTipText, , "إدخال ناقص" ctl.SetFocus DoCmd.CancelEvent Exit Sub End If Next ctl

المثال مرفق



الموضوع الأصلي : إجبار المستخدم لملء الحقول وإظهار رسالة تشير إلى الحقل الناقص || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الملفات المرفقة
نوع الملف: zip fillingFields.zip‏ (68.0 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس