تحديد عناصر قائمة منسدلة بناءً على اختيار في قائمة أخرى

[سعادة السفير]

السلام عليكم,

عند عرض الفورم بشكل ورقة بيانات (datasheet view) اريد ان يظهر في قائمة كائنات (items) فقط الكائنات الموجودة في الفئة (category) التي تم اختيارها في القائمة (categories)

فمثلا:

عند اختيار الفئة cat1 من قائمة  categories لا تظهر لنا في قائمة items الا الخيارات المتعلقة بالفئة cat1 هنا: item1, item2, item3

 

ارجو من الاخوة الافاضل المساعدة في حل هذا الاشكال.

 

سؤال للسادة المشرفين:

هل يمكنني الكتابة بالانجليزي لانه اسرع لي؟ وقد تعبت كثيرا باستخدام on screen keybord مع الـ mouse

شكرا للجميع مسبقا.

CascadingComboBoxes.zip

[Elsayed Bn Gemy]

تفضل اخى الكريم مرفقك

CascadingComboBoxes2.rar

[سعادة السفير]

شكرا أخي على الرد,

ولكن,

لاحظت أنه عند اختيار category مختلفة في كل سطر (record) فإن الـ item في السطر السابق سيختفي مالم يكن الـ category نفسه.

فمثلا:

إذا اخترت cat5 في السطر اأول

و cat1 في السطر الثاني

فإن الـ item في السطر الأول يختفي حتى اختار cat5 في أحدى الأسطر التالية.

فهل من حل لهذا؟

أرجو أن أكون أوضحت المشكل، وأن تجرب ادخال قيم الـ category مختلفة في كل سطر لترى اختفاء الـ items في الأسطر السابقة.

شكرا على التفاعل.

[Elsayed Bn Gemy]

اعتذر لك فان الجمعة هو يوم اجازتى :dance1:

 

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

 

عموما هجرب واقولك او قد يفيدنا احد الاخوة قبل ان اجد الحل

ويسر الله علينا ذلك

[عبدالله المجرب]

اعتذر لك فان الجمعة هو يوم اجازتى :dance1:

 

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

 

عموما هجرب واقولك او قد يفيدنا احد الاخوة قبل ان اجد الحل

ويسر الله علينا ذلك

 

 

السلام عليكم 

 

جرب هذا الكود ضعه في محرر أإكواد الفورم 

Private Sub Item_GotFocus()
 strSQL = "SELECT TblItems1.IDItem, TblItems1.Item, TblItems1.IDcat " & vbCrLf & _
"FROM TblItems1 " & vbCrLf & _
"WHERE (((TblItems1.IDcat)=[Forms]![frmExpenses]![Category])) " & vbCrLf & _
"ORDER BY TblItems1.Item;"
Me.Item.RowSource = strSQL
End Sub

[سعادة السفير]

شكرا أخي على الرد،

ولكن مشكل اختفاء ما تم اختياره في الأسطر السابقة في عمود  Item مازال قائما.

(كمثال على ذلك في الرد السابق)

شكرا على التفاعل.

 

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

أرجو من الأخوة الأفاضل الإطلاع عليه وتجربته على قاعدة البانات المرفقة وإفادتنا بآرائهم وانتقاداتهم وتعديلاتهم حتى نضع في متناول الجميع كودا نهائيا يغنيهم مشقة البحث (كما فعلت) في مشاريعم المستقبلية،

وإليكم الكود:

Private Sub cboCategory_AfterUpdate()

Me.cboItems = Null

Me.cboItems.Requery

End Sub

 

Private Sub Form_Current()

Me.cboItems.Requery

End Sub

CascadingComboBoxesInDatasheetForm.zip

تم تعديل يونيو 21, 2015 بواسطه سعادة السفير

[elmeastro]

السلام عليكم

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

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

واكون شاكر جدا