إعادة توجيه مصدر النموذج الفرعي

اخي الفاضل

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

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

لأن النموذج الفرعي الأول سيتم اخفاؤه ولن يتم تنفيذ الحدث وإظهار النموذج الثالث ولكن هناك حل :

1. انشاء زر امر B3 ونسميه النموذج الثالث ونضعه مباشرة على النموذج الرئيسي تحت زر الأمر B2 ثم نقوم بتصغيره الى اقل درجة ممكنه وهي الطول 0 والعرض 0 وبهذا يكون مختفي لصغر حجمه ولكنه موجود على النموذج الرئيسي .

لا تحاول ان تجعل خاصية زر الأمر B3 ( مرئي = لا ) لأنه سينتج لديك خطأ ولكن اتركه كما هو على النموذج الرئيسي مع تصغير حجمه في وضع ( مرئي = نعم )

2. الآن ننتقل الى النموذج Form1 الذي عليه زر أمر البحث ونضع به هذا الحدث

Private Sub B4_Click()
DoCmd.Close
DoCmd.OpenForm "FORM0"
Forms!FORM0!B3.SetFocus
SendKeys "{ENTER}", True
End Sub

1. يتم اغلاق النموذج form1 ( لأننا نريد الإنتقال الى النموذج form3 )

2. يتم فتح النموذج الأساسي form0

3. ننقل التركيز الآن الى زر الأمر الذي قمنا بتصغيره ( من اجل ذلك اخبرتك ان لا تقوم بجعل خاصيته مخفي ) لأننا نريد ان يتم التركيز عليه هنا

4. نرسل لزر الأمر B3 امر الإدخال ليتم فتح النموذج الثالث Form3

ننتقل للنموذج رقم 3 ( form3 )

ونضع به هذا الحدث لأننا نريد العوده الى النموذج الأول form1 بعد انتهاء عملية البحث مثلا في النموذج رقم 3

Private Sub B4_Click()
DoCmd.Close
DoCmd.OpenForm "FORM0"
Forms!FORM0!B1.SetFocus
SendKeys "{ENTER}", True
End Sub

كما فعلنا مع الكود السابق ولكن هذه المره نضع التركيز على زر الأمر B1 الخاص بفتح النموذج رقم 1 ( form1 )

احببت ان اشرح لك آلية العمل و الطريقة حتى تطبقها على نماذج اخرى مشابهه

وهذا هو الملف بعد التعديل

za-Test-UP.rar

بالتوفيق

بعد اذن استاذتنا ام عهود

جرب هذا الكود للزر فى النموذج الفرعى

Me.Parent.LapelForm.SourceObject = "Form3"

بارك الله بك اخي ابو يوسف

اضافة جميلة ورائعة

ايضا في نموذج رقم 3 ( form3 )

نضع هذا الكود

Me.Parent.LapelForm.SourceObject = "Form1"

الملف بعد تعديل اضافة اخونا ابو يوسف

الآن يوجد لديك حلين مختلفين

Abo_Yossof-Test-UP.rar

بالتوفيق

الأخ الكريم Abo_Yossof

والأخت الكريمة zahrah

شكراً لكما على المساعدة هذا ما كنت أبحث عنه .

جزاكما الله خيراً .