عدم ترك النموذج الفرعى فارغ

[husseinharby]

السلام عليكم

في نموذج buy

اريد في حالة ادخال بيانات في النموذج الرئيسي

الزام المستخدم بعدم ترك النموذج الفرعي فارغ

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

Documents.rar

[kanory]

تفضل --------->>>>>>

 

copy_kan.accdb

[د.كاف يار]

تفضل اخي الكريم مع تعديل ما يلزم

Dim msg1, msg2 As String
    msg2 = "يجب عدم ترك حقول فارغة للاستمرار"

Dim ctl As Control


For Each ctl In [اسم النموذج الفرعي].Controls
    If TypeName(ctl) = "TextBox" Then
        If IsNull(ctl) Or ctl = "" Or ctl = 0 Then
           If msg1 = "" Then
           msg1 = ctl.Name
           Else
            msg1 = msg1 & vbNewLine & ctl.Name
          
           End If
        End If
    End If
Next ctl

    If msg1 = "" Then
        DoCmd.RunCommand acCmdSaveRecord
        MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد"
    Else
        MsgBox msg2 & vbNewLine & msg1, vbCritical + vbMsgBoxRight, "تنبيه بوجود حقول فارغة"
    End If

 

[kanory]

استخدمنا هذا الكود في حدث الحالي وايضا عند تحديث الصنف في النموذج الفرعي !!!!

Forms!buy!Command17.Enabled = Forms!buy!buy_sub.Form.Recordset.RecordCount > 0

 

[husseinharby]

عذرا الاخوة الافاضل

لكن الكود لايعمل

لم يتم عمل المطلوب

لايزال يقبل بفتح سجل جديد مع عدم وجود بيانات في النموذج الفرعي

لقد قمت برفع المثال مرة اخري بدون اكواد

لأنني كنت ناسي وقفلت الاكواد برقم سري 

ارجو التطبيق مرة اخرى علي المثال

 

copy.rar

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

[ابو جودي]

جرب الفكرة

copy.accdb