أداة ListBox

[migo702000]

بعد التحية 

مرفق مثال بسيط جدا ارجو من الزملاء التوضيح عليه كيفية نسخ اكثر من عنصر فى قائمة ListBox ليتم تخزينها فى مربع نص بحيث يكون بين عنصر فاصل مثل # أو & وذلك على سبيل المثال سواء تمت طريقة النسخ باستخدام Double Click على العنصر المراد نسخه للمربع النصى او بالاختيار المتعدد فى القائمة ثم نسخها بواسطة Command Button مرة واحدة 

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

ListBox Test.rar

[AmirAdams]

https://www.officena.net/ib/topic/89446-اضافة-قيم-غلى-listbox-في-اكسيس/

 

اخي الكريم رجع هذا الربط

[محمد أبوعبدالله]

السلام عليكم

جرب المرفق

ListBox Test.rar

تحياتي

[Barna]

وهذه مشاركة مع أخي @محمد ابوعبد الله .......

 

ListBox Test.rar

[محمد أبوعبدالله]

سلمت يداك استاذنا الفاضل @Barna

تحياتي

[أبوبسمله]

منذ ساعه, Barna said:

وهذه مشاركة مع أخي @محمد ابوعبد الله .......

 

ListBox Test.rar 42.92 kB · 5 تنزيلات

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

اخى محمد البرناوى

ماذا يعنى حرف s بالكود

Private Sub القائمة7_DblClick(Cancel As Integer)
For Each s In القائمة7.ItemsSelected
Items = Items & القائمة7.ItemData(s) & "-"
Next
End Sub

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

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

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

تم تعديل يناير 25, 2020 بواسطه أحمد الفلاحجى

[migo702000]

شكرا لكل من تفضل بالرد ... وهو المطلوب للتنفيذ .. واذا كان من الممكن ان نضيف جزء صغير للسؤال وهو اذا تكرر اختيار نفس العنصر مرة او اكثر يعطى رسالة تنبية ان هذا العنصر تم اختيارة فعلا ويعطى اختيار (نعم) للاضافة مرة اخرى و(لا) لعدم التكرار 

وشكر لحضراتكم مقدما

 

[migo702000]

برجاء المتابعة 

[Hamdi Edlbi-khalf]

السلام عليكم

لقد  قمت بالتعديل على مرفق الأستاذ @Barna جزاه الله كل خير.

أرجو أن يكون هذا ما تبحث عنه.

ListBox Test.accdb