لايمكنك الاضافة لان السجل مرتبط او مطلوب

[كوماندير]

السلام عليكم ورحمة الله وبركاته

اعزائي الكرام

لدي نموذج فرعي ورئيسي

بالنموذج الفرعي في حدث BeforeInsert event اضفت الكود التالي لمنع المستخدم من اضافة سجلات جديدة في الفرعي بدون ان تكون لها آبإ في النموذج الرئيسي :

Dim frm as Form

Set frm = Me.Parent

If IsNull(frm.[ID]) Then

Cancel = True

MsgBox "Create a record in the main form first.", vbExclamation, "Required data."

frm.[ID].SetFocus

End If

الكود يعمل جيدا اذا كان المفتاح الرئيسي ترقيم تلقائي لكن لو كان من نوع رقم او نص لايعمل جيدا .

وتظل رسالة اكسس التي تفيد تعذر اضافة سجل جديد ظاهرة .

هل من حل لذلك ؟

[Shivan Rekany]

استخدم 

IF ISNULL(forms!nameforform!id)= TRUE THEN
او
IF FORMS!NAMEFORFORM!ID = "" THEN

لعل تستفيد

[كوماندير]

 

استخدم 

IF ISNULL(forms!nameforform!id)= TRUE THEN
او
IF FORMS!NAMEFORFORM!ID = "" THEN

لعل تستفيد

لا فرق عزيزي Shivan

نفس النتيجه

[Shivan Rekany]

 

لا فرق عزيزي Shivan

نفس النتيجه

ممكن ترفق القاعده‌

[كوماندير]

اليك المرفق اخي :

NewRecordInSubFrm.rar

[Shivan Rekany]

 

اليك المرفق اخي :

NewRecordInSubFrm.rar

تفضل اخي
انا غيرت خاصية ترقيم تلقائي لحقل اوردر اي دي الى نمبر
وما غيرت شي من الاكواد
الكود اللي عندك بيشتغل تماما
لكن لازم اولا تكتب في نمذج الرئيسي اي تكتب اسم في نموذج الرئيسي
وبعدين تكتب الرقم في نموذج الفرعي
وبعدين تدخل البانات في نموذج اللي داخل نموذج فرعي
شوف جرب ووافيني بالنتيجة

NewRecordInSubFrm.rar

[كوماندير]

 

تفضل اخي
انا غيرت خاصية ترقيم تلقائي لحقل اوردر اي دي الى نمبر
وما غيرت شي من الاكواد
الكود اللي عندك بيشتغل تماما
لكن لازم اولا تكتب في نمذج الرئيسي اي تكتب اسم في نموذج الرئيسي
وبعدين تكتب الرقم في نموذج الفرعي
وبعدين تدخل البانات في نموذج اللي داخل نموذج فرعي
شوف جرب ووافيني بالنتيجة

NewRecordInSubFrm.rar

اخي جيد واشكر تفاعلك لكن

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

[Shivan Rekany]

 

اخي جيد واشكر تفاعلك لكن

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

عفوا ماكان فهمت مطلوبك
والان حسب فهمي لطلبك صار كود تبعك الى هذا

  Dim frm1 As Form
        Set frm1 = Me.Parent
        If IsNull(Forms!mainfrm!CustName) = True Then
                Cancel = True
                    MsgBox "áÇÒã ÊÏÎá ÇáÈíÇäÇÊ Ýí äãæÐÌ ÇáÇÈ ÇæáÇ", vbExclamation, "Required data."
                        Forms!mainfrm!CustName.SetFocus
                    ElseIf IsNull(frm1.[OrderID]) Then
                            Cancel = True
                                MsgBox "áÇÒã ÊÏÎá ÇáÈíÇäÇÊ Ýí äãæÐÌ ÇáÇÈ ÇæáÇ", vbExclamation, "Required data."
                                    frm1.[OrderID].SetFocus
        End If

ملفك بعد تعديل

NewRecordInSubFrm.rar

[كوماندير]

شكرا جزيلا

 

[MOH_SHERIF]

ازاي احمل المرفق من الموقع اللى مرفوع عليه Cyberoam

تم تعديل مارس 15, 2017 بواسطه MOH_SHERIF