نقل قيم من قائمة الى حقل

[dr_bioman]

السلام عليكم اخوانى الاعزاء

بفرض لدينا مربع قائمة اسمه chose وجعلت خصائصه متعدد التحديد ويحتوى على عدة قيم

وعندى فى النموزج حقل من نوع مزكره اسمه comment

وعملت تحديد لعنصر او اكثر فى مربع القائمة

كيف يتم نقلهم الى حقل ال comment فى صورة اسطر

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

 

List box.rar

[dr_bioman]

للرفع

[رمهان]

For Each s In chose.ItemsSelected
comment = comment & chose.ItemData(s) & vbCrLf
Next

 

[dr_bioman]

تسلم ايدك يارمهان بك 

دائما كما تعودناك لا تخذلنا

بارك الله لك فى علمك وعمرك واولادك

بس معلشى اتا ملاخظ انه يتم التكرار بمعنى

عند اختيار 

Karem

Mahmoud

يتم اضافتهم عادى جدا  

بس انا ممكن اكون نسيت ان اضيف ali

فعند الضغط على ali يتم اضافة المجموعه كلها من جديد

فهل يمكن تفادى هذا ومنع التكرار؟

 وشكرا على زوق حضرتك

تم تعديل أكتوبر 29, 2016 بواسطه dr_bioman

[رمهان]

جرب

For Each s In chose.ItemsSelected
comment = comment & chose.ItemData(s) & vbCrLf
chose.Selected(s) = False
Next

 

[dr_bioman]

تسلم ايدك يافنان ياكبير