(تمت الاجابة) عند اختيار الإسماء تظهر جميها في مربع النص

[أيمن عبادي]

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

الأخوة الكرام

في النموذج المستمر توجد عدة أسماء .... المطلوب أنه عند وضع علامة بحانب الإسماء تظهر الأسماء المختارة في مربع النص على أن يتم الفصل بينها بفاصلة

وتقبلوا تحياتي،،،

CollectNames.rar

Req.rar

تم تعديل مايو 24, 2012 بواسطه أيمن عبادي

[أحمد خلف]

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

تفضل اخي.

CollectNames.rar

[ابوخليل]

[أبو آدم]

جميل وبسيط ، جزيت خيراً أخي أحمد

...........

[أ / محمد صالح]

بارك الله لك أخي أحمد

وإذا سمحت لي بتعديل بسيط حتى لا تظهر الفاصلة في نهاية السطر وخاصة في حالة عدم وجود أحد بعده

Dim X As Integer, n As Integer

For X = 0 To Cont.Value

If [Select].Value = -1 Then

Text6.Value = Text6.Value & IIf(n > 0, " , ", "") & Emp_Name.Value

n = n + 1

End If

لاحظ استخدام متغير آخر وجملة if لوضع الفاصلة قبل الثاني وما بعده وليس قبل الأول

وفقنا الله وإياكم لكل ما يحب ويرضى

[أحمد خلف]

بارك الله فيكم جميعا

وهذا من فضل ربي ثم هذا المنتدي الأكثر من رائع.

والله الموفق والمستعان.

[أيمن عبادي]

الأستاذ أحمد خلف 2012 ،،،،،،،،، المحترم

بارك الله فيك وجعله بميزان حساناتك

الأساتذة (محمد صالح، أبو خليل، أبو آدم) بوركتم جميعا ... وألف شكر

وأعتذر عن التأخير بالرد