مشكلتي مع النموذج الفرعي ؟

عفواً نسيت أن أرفق صور للمقصود من الكائن المصدر

هذا هو المرفق ( صورة )

_.zip

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

اخي الكريم

بالنسبة لجعل أكثر من مصدر للنموذج فيمكنك أن تكون إستعلام مصدره جدولين أو أكثر وتجعل هذا الإستعلام كمصدر للنموذج وبهذا يمكنك أن تأخذ المعلومات للنموذج من أكثر من مصدر

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

ولك مني التحية

____________________.rar

بارك الله فيك ورزقك الذرية الصالحة

ألف ألف ألف شكر وما قصرت

بس ياليت تشرح لي الطريقة بالتفصيل الممل

كرماً لا مراً

لأنني محتاج هذه الطريقة لمشاريع أخرى .

الأخ العزيز أبو عبير 2005

بعد إذنكم أتقدم بالشرح الممل لما تطلب

أولاً : - تفضل الاخ الكريم Captin بعمل نموذج رئيسي وتم تسميتة بنموذج رئيسي

ثانياً : - تم وضع علية عدد 2 نموذجين فرعيين الاول باسم (SF1) والثاني باسم (SF2) وذلك فوق بعض تماماً

ثالثاً تم اخفاء المنوذجين الفرعيين (SF1) و (SF2) من خلال خصائص النموذج الفرعي قم بالضغط علي المنوذج الفرعي الاول (SF1) واذهب للتبويب

تنسيق أو اذا كان الاوفيس عندك باللغة الانجليزية اذهب للتبويب Format ومن خلال الخاصية (مخفي) أو بالانجليزية Visible قم باختيار لا أو no

رابعاً : - نفذ هذه الخطوات بنفس الطريقة علي المنوذج الفرعي الثاني (SF2) وذك نكون قد أخفينا النماذج الفرعية من علي المنوذج الرئيسي

تـــــري ماذا نفعل بعد ذلك ؟؟؟ أه أريد أن أظهر النماذج الفرعية واحد تلو الاخر من خلال الضغط علي زر يقوم بعرض المنوذج الفرعي الاول واخفاء الثاني

وعند الضغط علي زر أخر يتم عرض الثاني واخفاء الاول . . . .آه في هذه الحالة نحن نحتاج لكتابة بعض الاكواد لتحقق لنا ما نريد ولكن قبل كتابة الاكواد

أولاً يجب وضع زر علي المنوذج الرئيسي . . . وبعد ذلك ما ذا أفعل

تمهل علي يا أخي يجب أولاً أن تعرف ماذا تريد أن تفعل لكي يتم كتابة الكود صحيح في موضع ليعطينا المراد

أريد أن أضغط علي الزر ليتم عرض المنوذج الاول

تمام . . قم بالضغط علي الزر في وضع التصميم 2 كليك سوف يتم فتح لك شاشة الخصائص من قائمة البويب حدث أو Event اذا كان الاوفيس باللغة انجليزية

نختار حدث عند الضغط أو on click

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

Private Sub ÝÊÍ_ÇáäãæÐÌ_ÇáÃæá_Click()

On Error GoTo Err_ÝÊÍ_ÇáäãæÐÌ_ÇáÃæá_Click

Me.SF1.Visible = False

Me.SF2.Visible = True

Exit_ÝÊÍ_ÇáäãæÐÌ_ÇáÃæá_Click:

Exit Sub

Err_ÝÊÍ_ÇáäãæÐÌ_ÇáÃæá_Click:

MsgBox Err.Description

Resume Exit_ÝÊÍ_ÇáäãæÐÌ_ÇáÃæá_Click

End Sub

بهذه الطريقة يتم اظهار النموذج الاول

يتم اضافة زر امر أخر وتتبع نفس الخطوات السابقة مع وضع الكود الاخر في نفس الحدث

Private Sub ÝÊÍ_ÇáäãæÐÌ_ÇáËÇäí_Click()

On Error GoTo Err_ÝÊÍ_ÇáäãæÐÌ_ÇáËÇäí_Click

Me.SF2.Visible = False

Me.SF1.Visible = True

Exit_ÝÊÍ_ÇáäãæÐÌ_ÇáËÇäí_Click:

Exit Sub

Err_ÝÊÍ_ÇáäãæÐÌ_ÇáËÇäí_Click:

MsgBox Err.Description

Resume Exit_ÝÊÍ_ÇáäãæÐÌ_ÇáËÇäí_Click

End Sub

قم بفتح النموذج في حالة العرض وشاهد ما ذا فعلت ستجد ان شاء الله ما تريد

أتمني أن أكون قد أوصلت المعلومة

وصلت المعلومة

بارك الله فيكم جميعاً

وجعله في موازين حسناتكم

ألف ألف مليوووووووووووووووووووووون شكر

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

شكراً لك أخي mmfouad فقد سبقتني في شرح الموضوع ، جعلك الله من السباقين في عمل الخير

والتحية للجميع