كيف عمل كود منع ترك حقل فارغ في نموذج فرعي جدولي

[f16]

اسعد الله مسائكم اخواني اعضاء هذا المنتدى الرائع 

لدي معرفة عن كيفية عمل كود منع ترك حقل فارغ في نموذج رئيسي وذلك باستخدام هذا الكود 

Private Function zaNoEmptyTextbox()
Dim ctl As Control

For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If IsNull(ctl) Or ctl = "" Then
           MsgBox "فارغا " & ctl.name & " اخي الكريم .. لقد تركت حقل  "
           DoCmd.CancelEvent
            ctl.SetFocus
            Exit For
    End If
    End If

Next ctl
End Function

ولاكن السؤال كيف يمكن عمل ذلك اذا كان النموذج فرعي و جدولي في نفس الوقت . ارفقت مثال على ما اريد 

في النموذج ثلاثة حقول هي رقم الصنف ؛ رقم المخزن ؛ الكمية  وايضا يوجد زرار بالنموذج اريد عند الضغط على الزرار الذهاب والتأكد من ان جميع الحقول لكل السجلات بها بيانات وانه ليس هناك سجل به حقل فارغ 

 

مثال اوفيسنا منع ترك حقل فارغ.rar

[Khalid Jnb]

اخي العزيز

جرب المرفق بعد التعديل

اتمنى ان يكون المطلوب

تحياتي

مثال اوفيسنا منع ترك حقل فارغ.rar

 

تم تعديل مارس 5, 2020 بواسطه خالد سيسكو

[f16]

اسعد الله صباحك اخي خالد 

حاولت تحميل ملفك فلم استطيع ربما يكون هناك مشكلة في الملف . ارجو رفع الملف مرة اخرى 

مع شكري لردك الكريم ...

[Khalid Jnb]

اخي العزيز

صباح النور والبركات

تفضل الملف

اتمنى يكون المطلوب

مثال اوفيسنا منع ترك حقل فارغ.rar

[f16]

شكرا اخي خالد على هذا الكود الرائع  بالفعل الكود قريب الى ما اريد . 

 مع كل التقدير والاحترام