الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى القوائم المنسدله المترابطة

مغلق
بدأه waffaa_qm في 6 مارس 2007 · 2 رد · 1,967 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اعزائى عباقرة الأكسس السلام عليكم ورحمة الله وبركاته

ارجوكم بشده الرد على النهارده مطلوب منى عمل الآتى

عمل قائمة منسدلة تحتوى على فصل 1، فصل2،فصل3،فصل4

بخيث انى لما اختار من القائمة المنسدلة فصل 1 تظهر قائمة منسدلة اخرى او تكون اصلا موجوده فيها احمد ،محمد ،محمود،على

وهكذا تتغير قيم القائمة المنسدلة الثانيه باحتلاف الذى اختاره من القائمه الاولى بمعنى لو اخترت فصل2 تظهر فى القائمة الثانيه وفاء،ايمان،نهى،مروة

وهكذا لو اخترت فصل 3 تظهر القائمة المنسدله الثانيه فيها عمر ،خيرية،عماد،سهير

مع ملاحظه انى مبتدئة اكسيس

فيا ريت تشرخوا لى الحل بالصور او بالتفصيل ولازم يكون على اكسيس 2003 ضروى جدا

وارجوكم لو فيه كود فيجوال بيزك ولا حاجه تبعتوه لى

ومعلش ياريت ترفقوا لى ملف الحل

وشكرا لكم وغفر لى ولكم

انا عارفه طبعا انى تقلت عليكم بس معلش كان الله فى عون العبد مادام العبد فى عون اخيه

#2

اختي الفاضلة : وفاء

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

الموضوع بسيط ان شاء الله تعالى كل ما عليك هو اتباع هذه الخطوات وسوف تعرفين الطريقة

1. تحتاجين الى انشاء جدولين رئيسين

الجدول الاول خاص بالفصول و يوجد به

رقم الفصل : نوعه ترقيم تلقائي ويكون مفتاح اساسي PK

اسم الفصل : نوعه نص

الجدول الثاني خاص بالطلاب ويوجد به

رقم الطالب : نوعه ترقيم تلقائي ويكون مفتاح اساسي PK

اسم الطالب : نوعه نص

رقم الفصل : نوعه رقم بدون مفتاح FK وسيكون هو حقل الربط مع رقم الفصل في الجدول الثاني بعلاقة واحد الى متعدد

نحتاج ايضا الى جدول اضافي لحفظ التغييرات التي تطرأ على الجداول وسيكون اسمه Save ويوجد به التالي

رقم معرف : نوعه ترقيم تلقائي ويكون مفتاح اساسي PK

رقم الفصل : ونوعه رقم فقط

رقم الطالب : ونوعه رقم فقط

الان نقوم بإنشاء علاقة بين جدول الفصل وجدول الطلاب من خلال مفتاح الربط رقم الفصل في جدول الفصل ورقم الفصل في جدول الطلاب وسينتح لدينا علاقة واحد الى متعدد

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

ثم نضع رقم الفصل و اسم الفصل و رقم الطالب واسم الطالب فقط في شبكة الاستعلام

عند تشغيل الاستعلام سنجد جميع ارقام الفصول واسماء الفصول وارقام الطلاب واسماءهم ظهرت في الاستعلام نقوم الان بإغلاق الاستعلام

نقوم الان بإنشاء نموذج مبني على الجدول Save

ثم نقوم بإنشاء مربعي تحرير وسرد ( ComboBox ) واحد لأسماء الفصول والاخر لأسماء الطلاب

كما تعلمين ان مصدر النموذج هو الجدول Save لهذا عند انشاء ComboBox الخاص بالفصول نختار جدول الفصول ونضع في مصدر عنصر التحكم رقم الفصل من جدول Save

وكذلك ينطبق الحال على الـ ComboBox الخاص بأسماء الطلاب فنختار له جدول الطلاب ونضع في مصدر عنصر التحكم رقم الطالب من جدول Save

لو تلاحظين انه عند انشاء مربع التحرير والسرد نتج لدينا عبارة منشىء الاستعلام لكلا مربعي التحرير والسرد لهذا فإننا نحتاج الى اضافة عبارة الى رقم الفصل في مربع تحرير اسم الطلاب لذا نختار خصائص مربع التحرير والسرد الخاص بالطلاب ونختار تبويب ال الكل وسنشاهد مصدر الصف نضغط عليها وسيظهر لنا جهة اليسار زر عليه 3 نقاط ... نقوم بإختياره وسيفتح لنا منشىء الاستعلام وفي خانة معايير للحقل رقم الفصل نضع هذه الجملة

[forms]![FORM]![MaName]

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

انتهينا الان من العمل ونرغب فقط في تحديث القائمتين بحيث عندما نختار من القائمة الاولى تظهر لنا في القائمة الثانية نفس الاسماء التابعين لهذه القائمة فقط

لذا نقوم بعرض النموذج في وضع التصميم ثم نختار مربع تحرير وسرد ( اسم الفصل ) ونختاره ثم نختار خصائصه من خلال الضغط عليه بالماوس الايمن ثم نختار التبويب حدث ومنه نختار حدث بعد التحديث ونضع هذا الكود فيه

Private Sub MaName_AfterUpdate()
Me.MoName = Null
Me.MoName.Requery
Me.MoName = Me.MoName.ItemData(0)
Me.MoName.SetFocus
Me.MoName.Dropdown
End Sub

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

ننتقل الان الى تحديث النموذج لهذا نعرض النموذج في وضع التصميم ونختار خصائص النوذج ثم نختار حدث ومنه نختار حدث في الحالي ونضع هذا الكود

Private Sub Form_Current()
Me.MoName.Requery
End Sub

لو اردنا تحسين اظهار مربعات التحرير والسرد فسنضع في حدث عند التحميل للنموذج هذه الكود

Private Sub Form_Load()
If IsNull(MaName) Then
Me.MaName = Me.MaName.ItemData(0)
Call MaName_AfterUpdate
End If
End Sub

وبهذا انتهينا من كامل الشرح بالتفصيل لهذه العملية

وهذا هو الملف المرفق على اكسيس 2003 قومي بالاطلاع عليه

Filter_By_2_Combobox_UP.rar

#3

اختى الكريمه بارك الله فيك واعزك فى الدنيا والآخرة

انت فخر للمرأة العربيه بسم الله ما شاء الله

سوف ارجع الدرس ولو فى اى حاجه لم افهمها سوف اكتب لحضرتك

بارك الله فيك

هذا الموضوع مغلق.

مواضيع مشابهة