كيف افتح النموذج عن طريق قائمة منسدلة ؟

[نضال]

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

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

اتمنى ان تفيدوني في ذلك ...

وللتوضيح اكثر ... لدي نموذج رئيسي فيه قائمة منسدلة تحتوي على مسميات ثلاثة نماذج هي : الطلاب والمعلمين والمدرسة ...

والذي اريده هو ان اقوم باختيار نموذج الطلاب من القائمة المنسدلة مثلا فيفتح لي النموذج ... وهكذا مع بقية النماذج ......

[التقني]

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

يمكنك القيام بذلك من خلال قاعدة Select Case التالية ..

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

مربع التحرير والسرد اسمه "Choos"

نموذج الطلاب اسمه "st"

نموذج المعلمين اسمه "tech"

نموذج المدرسة اسمه " schol"

Private Sub choos_BeforeUpdate(Cancel As Integer)
Select Case choos
            Case Is = "الطلاب"
            DoCmd.openform "st"
            Case Is = "المعلمين"
            DoCmd.openform "tech"
            Case Is = "المدرسة"
            DoCmd.openform "schol"
End Select
End Sub

وبالتوفيق

[التقني]

ملاحظة ,,

أقصد بمربع التحرير والسرد هو القائمة منسدلة

[نضال]

شكرا اخي التقني على سرعة الاستجابة ... هذه الطريقة التي اريدها بالفعل ...

ولكن لي ملاحظة :

حيث انني اريد ان ينبثق لي النموذج الذي اختاره في النموذج الرئيسي الذي اختار منه !!!

كيف ؟؟

أي انني عندما اختار نموذج معين من القائمة المنسدلة اريده ان يظهر لي في النموذج الرئيسي الحالي وليس فتح النموذج خارج النموذج الرئيسي !!

اتمنى ان تكون قد فهمتني .... وانتظر ردك بفارغ الصبر .... ولك خالص شكري

[التقني]

العفو أخي الكريم

اللي فهمته من تساؤلك :

أنك تريد نموذج داخل نموذج وبمجرد اختيار اسمه من القائمة يظهر أمامك .

الطريقة التي أعرفها هي :

أن تضع النماذج الثلاثة داخل النموذج الرئيسي بحيث تكون على هيئة نماذج فرعية .

ويتم التبديل فيما بينها بطريقة الكل مخفي عدا واحد وذلك بعد أن تختاره من القائمة .

جرب الكود أدناه :

Private Sub choos_BeforeUpdate(Cancel As Integer)
            Select Case choos
                       Case Is = "الطلاب"
                       St.Visible = True
                       Tech.Visible = False
                        Schol.Visible = False
            
                         Case Is = "المعلمين"
                         St.Visible = False
                         Tech.Visible = True
                         Schol.Visible = False
            
                        Case Is = "المدرسة"
                        St.Visible = False
                        Tech.Visible = False
                        Schol.Visible = True
               End Select
End Sub

وان كنت تريد مثال على ذلك فعلى الرحب والسعة

[نضال]

نعم هذا ما اريده ....

ولكن هل لي بالطريقة التي من خلالها استطيع دمج النماذج كنماذج فرعية داخل النموذج الرئيسي .... لقد وجدت صعوبة في ذلك ........

[التقني]

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

اليك مثال على ذلك ....

Nedal.rar

[التقني]

بالنسبة لدمج النماذج داخل النموذج الرئيسي :

بفرض أنه يوجد لديك نماذج ( الطلاب - المعلمين - المدرسة) قم بالتالي ...

1- في عرض التصميم للنموذج الرئيسي اختر أداة (نموذج فرعي/تقرير فرعي) .

2- بالسحب والافلات للفأرة حدد أبعاد النموذج الفرعي .

3-بعد الافلات سيظهر معالج انشاء النموذج الفرعي .

4- اختر من المعالج (استخدام نموذج موجود) .

5- اختر النموذج الموجود مسبقا واضغط انهاء .

بالتوفيق

[نضال]

lجزاك الله خيرا وبارك فيك اخي العزيز ...