




السلام عليكم ورحمة الله وبركاته:
إنشاء كود مختصر لإجبار المستخدم لملء الحقول وإظهار رسالة تخبره بالحقل الناقص وانتقال المؤشر إليه مهما تعددت عناصر التحكم، وقد استخدمت خاصية (ControlTipText/نص تلميح عنصر التحكم) الموجودة في تبويب (غير ذلك) لعنصر التحكم، فيقوم الكود بالبحث عن عنصر التحكم الذي كتبنا قيمة في خاصية ControlTipText له وأيضاً عندما يكون فارغا، فإذا توفر هذان الشرطان تظهر رسالة تخبرك بالحقل الناقص موضحاً اسمه استناداً إلى قيمة خاصية ControlTipText ثم ينتقل المؤشر إلى ذلك الحقل، وقد وضعت هذا الكود في حدث (قبل التحديث) للنموذج:
كود:
[/SIZE][/LEFT]
[SIZE=2][SIZE=2][LEFT]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[/LEFT]
[/SIZE][/SIZE][LEFT][SIZE=2][SIZE=2]