إغلاق النموذج الفرعي

[محمود أبوسيف]

المطلوب

إغلاق النموذج الفرعي الموجود داخل النموذج الأساسي من خلال زر يتم برمجته

Close.rar

[jjafferr]

وعليكم السلام

 

انت ما عندك نموذج فرعي ، وانما نوع النموذج هو SplitForm ،

لذلك انت تريد ان تغير طريقة فتح النموذج من SplitForm الى نموذج فردي ،

الكود التالي يغير لك النموذج كل مرة تضغط على الزر ، اخفاء:

Private Sub cmd_Hide_Sub_Table_Click()

    'the only way to change the Default views, is to do it in Design view
    If Me.DefaultView = 0 Then
        'close the Form, without saving it
        DoCmd.Close , , acSaveNo
        'open the Form in Desgin view
        DoCmd.OpenForm "Add_Wife", acDesign, , , , acHidden
        'set the Default view to SplitForm
        [Forms]![Add_Wife].DefaultView = 5
        'open the Form
        DoCmd.OpenForm "Add_Wife"
    Else
        DoCmd.Close , , acSaveNo
        DoCmd.OpenForm "Add_Wife", acDesign, , , , acHidden
        'set the Default view to Single Form
        [Forms]![Add_Wife].DefaultView = 0
        DoCmd.OpenForm "Add_Wife", acNormal, , , , acWindowNormal
    End If

End Sub

.

والعمل تم على النموذج add_wife فقط

 

جعفر

547.Close.accdb.zip

[محمود أبوسيف]

23 دقائق مضت, jjafferr said:

انت ما عندك نموذج فرعي ، وانما نوع النموذج هو SplitForm ،

معذرة أخي جعفر . الخطأ عندي 

المطلوب هو إخفاء النماذج Split Form  من خلال زر 

[jjafferr]

انا عملت لك الزر في النموذج ، فهل جربته؟؟

[محمود أبوسيف]

8 دقائق مضت, jjafferr said:

انا عملت لك الزر في النموذج ، فهل جربته؟؟

نعم جربته الزر يقوم بإخفاء النموذج الرئيسي Home وإظهار النموذج Add_Wife نموذج فردي

والمطلوب العكس 

أن يقوم الزر بإخفاء النموذج Add_Wife  وإظهار النموذج الرئيسي Home كما هو 

[jjafferr]

2 ساعات مضت, محمود أبوسيف said:

المطلوب

إغلاق النموذج الفرعي الموجود داخل النموذج الأساسي من خلال زر يتم برمجته

Close.rar

 

أخي محمود

 

طلبك ، واسم الموضوع هم عكس طلبك الآن

 

الطريقة الوحيدة التي استطعت عملها ، هو فتح النموذج Add_Wife من نموذج آخر frm_Main ، لأنك في وضع DataSheet تستطيع ان تغلق النموذج فقط ، بسبب عدم وجود ازرار على النموذج.

 

جعفر

547.1.Close.accdb.zip

[محمود أبوسيف]

9 ساعات مضت, jjafferr said:

الطريقة الوحيدة التي استطعت عملها ، هو فتح النموذج Add_Wife من نموذج آخر frm_Main ، لأنك في وضع DataSheet تستطيع ان تغلق النموذج فقط ، بسبب عدم وجود ازرار على النموذج.

أخي الفاضل جعفر المطلوب هو عند الضغط علي زر (إخفاء هذا النموذج) الموجود بنموذج( Sub_Sons) ونموذج( Sub_Add_Wife ) يتم إخفاء هذه النماذج دون (إخفاء نموذج Home ) ولقد قمت بذلك من خلال الكود الذي قدمته مع بعض التعديلات . 

ولكن المشكلة الآن هي عند الضغط علي زر (إخفاء هذا النموذج) يتم إختفاء  (نموذج Home ) وإظهاره مرة أخري . والمطلوب أن يظل (نموذج Home ) ثابت دون أن يتاثر بإختفاء النماذج الأخري أو إظهارها .

إخفاء Sub_Form.rar

 

[jjafferr]

السلام عليكم

 

أخي محمود ، اخبرك ايش المشكلة:

انت لم توضح بالضبط ما يجب علينا عمله ، ولا الخطوات ، ولم تذكر النموذج Home ولم تشر اليه !!

 

لهذا السبب ومن اول مشاركة لي كل تركيزي كان على النموذج Add_Wife ، وهو لو نظرت اليه لرأيت كانه نموذج رئيسي (نموذج فردي Single) وفيه نموذج فرعي (نموذج جداول DataSheet) ،

وعملت لك الطريقة لأخفاء النموذج الفرعي (والذي اخبرتك انه ليس نموذج فرعي ، وانما نموذجك عبارة عن نموذج SplitForm ، والذي يظهر كأنه نموذج رئيسي وفرعي ، وانت اكدت ذلك) .

 

الآن فقط فهمت قصدك ، وسؤالك كان يجب ان يكون هكذا:

عندي نموذج رئيسي Home ، وفيه النماذج الفرعية Add_Wife و sons ،

اريد ان يكون في النماذج الفرعية زر ، عند الضغط عليها تُغلق/تختفي.

 

وجوابي كان سيكون ، تفضل ، هذا كود الزر لإخفاء النموذج Add_Wife

Private Sub cmd_Hide_Sub_Table_Click()

    Me.Parent.ID.SetFocus
    Me.Parent.Add_Wife.Visible = False

End Sub

 

جعفر

547.2.Close.accdb.zip

[محمود أبوسيف]

49 دقائق مضت, jjafferr said:

Private Sub cmd_Hide_Sub_Table_Click()

    Me.Parent.ID.SetFocus
    Me.Parent.Add_Wife.Visible = False

End Sub

 

جعفر

547.2.Close.accdb.zip

أشكرك أخي جعفر هذا هو المطلوب فعلاً .