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

[hamdynose]

السلام عليكم 

كيف يمكن وضع بيانات cbo1 و cob2  فى مربع القائمة على الترتيب فى نفس النموذج 

مرفق ملف للتعديل 

ولكم منى جزيل الشكر

Database1.accdb

[Amr Ashraf]

منذ ساعه, hamdynose said:

كيف يمكن وضع بيانات cbo1 و cob2  فى مربع القائمة على الترتيب فى نفس النموذج 

السلام عليكم ..

اول خطوة تحول مصدر بيانات القائمة الى Value List

الخطوة الثانية اضافة الكود التالى الى حدث AfterUpdate للكومبوبوكس الاول

Private Sub cbo1_AfterUpdate()
StrItem = Me.cbo1.Column(1)
Me.Notce.AddItem (StrItem) ' اضافة الى آخر القائمة
'Me.Notce.AddItem (StrItem), 0 ' يتم تفعيلها والغاء السطر السابق اذا اردت الحاق القيمة فى اول القائمة وليس فى آخرها
End Sub

واضافة هذا الى الكومبوبوكس الثانى

Private Sub cbo2_AfterUpdate()
StrItem = Me.cbo2.Column(1)
Me.Notce.AddItem (StrItem) ' اضافة الى آخر القائمة
'Me.Notce.AddItem (StrItem), 0 ' يتم تفعيلها والغاء السطر السابق اذا اردت الحاق القيمة فى اول القائمة وليس فى آخرها
End Sub

يتم اعلان متغير نصى StrItem فى بداية النموذج

النتيجة

 

هل هذا هو المطلوب ؟

مرفق القاعدة بعد التعديل

 

ComboToListbox-Amr.accdb

تم تعديل فبراير 15, 2022 بواسطه Amr Ashraf

[hamdynose]

شكرا لك واسف على تاخري فى الرد 

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

[Eng.Qassim]

37 دقائق مضت, hamdynose said:

هل يمكن ان اطبع هذة القائمة

نعم... اطبعها مباشرة من النموذج

[hamdynose]

شكرا لكم وبارك الله فيكم 

انا اقصد فى تقرير وليس من النموذج 

واسف على كثرة الاسئلة