السلام عليكم ورحمة الله وبركاته
عندي برنامج طلاب يحتوي نموذج فيه 2 كومبو بوكس مااريده هو كيف اربط هذين الاثنين معا الاول فيه الفصول والثاني فيه الاسماء فاذا اخترت فصل مثلا اولى أ فيخرج في الكمبو بوكس الثاني اسماء هذا الفصل فقط واذا اخترت من الكمبوبوكس الاول فصل اخر يخرج في الثاني اسماء طلاب هذا الفصل وهكذا
مع خالص الشكر مقدما
اخي ماجد شكر كل الشكر لك ومثالك اكثر من رائع ولكن اتمنى منك كتابة خطوات ذلك لاني لم استطع تطبيقه على برنامجي وهل ممكن عكل ذلك دون الحاجة الى صنع استعلام ايي على الجدول مباشرة
اتمنى الرد سريعا ولك خالص الشكر والتقدير
اخي ماجد هناك ملاحظة ان النموذج في المثال المرفق لايقبل الاضافة اي لوكان هناك حقول اخرى في اللاستعلام لايمكن اضافتها الى النمو1ج او اضافة نماذج فرعية الى النموذج الرجو الرد سريعا وشكرا
ياليت ترفق نسخة من برنامج ولو حتى نسخة مشابهة له أو مصغرة منه لكي أستطيع التعديل عليه وسوف أعطيك كافة التفاصيل التي أستحدثتها فيه .
وهذا ملف مرفق اخي ماجد مع شرح مااريده على النموذج مع خالص شكري وتقدير لك ولبيقى الاخوان الابطال
إليك الحل وأتمنى أن يكون هو المطلوب :
1. مربع التحرير والسرد الخاص بالشعب وضعت فيه إستعلام يأخذ البيانات الموجودة في حقل الشعب من جدول الطلاب و ويطبق العبارة ( GROUP BY ) لضم البيانات المتكررة في الحقل فبدلاً من ظهور أسماء الشعب متكررة فإنه يتم جمعها في إسم واحد لكل شعبة ( بإمكانك تفحص الخاصية row source لتفحص الإستعلام
2. مربع التحرير والسرد الخاص بالأسماء وضعت فيه إستعلام لعرض أرقام الطلاب وأسمائهم بشرط تساوي حقل الشعبة بقيمة مربع التحرير والسرد الخاص بالشعب .
3. في حدث بعد التحديث في مربع التحرير والسرد الخاص بالشعب يتم تحديث الإستعلام الخاص بمربع التحرير والسرد الخاص بالأسماء كالتالي :
Me.مربع_تحرير_وسرد9.Requery
وأضفت العبارة التالية قبل الكود :
Me.مربع_تحرير_وسرد9 = Null
لكي يتم إفراغ مربع التحرير والسرد الخاص بالأسماء عند إختيار إسم شعبة جديد .
4. في حدث بعد التحديث لمربع التحرير والسرد الخاص بالأسماء وضع كود لينقل النموذج والنماذج الفرعية إلى السجل المتوافق مع الإسم الموجود في مربع التحرير والسرد الخاص بالأسماء بناءاً على رقم الطالب والكود هو :
Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[رقم الطالب] = " & Str(Nz(Me![مربع_تحرير_وسرد9], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
ماشاء عليك اخي ماجد والله يزيدك كمان وكمان حل راءع والشكر وادعو لك والله شكرا اخي مائة مرة
هذا الموضوع مغلق.