التعديل من خلال الليست بوكس

**زوهير** · يناير 1, 2013

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

من فضلكم اريد كود يقوم بتعديل من خلال الليست بوكس

وجزاكم الله خيرا مسبقا

والمرفق يوضح الطلب

test.rar

**حمادة عمر** · يناير 1, 2013

السلام عليكم

الاخ الفاضل / زوهير

هناك فورم للبحث والتعديل تقريباً كما تريد هو احد ابداعات العلامة القدير // عبد الله باقشير - ولا اروع ولا احسن من كده

واظن انه يفي بالغرض معكم حيث به نفس الفكرة ولكن بامكانيات اوسع

وموجود في الروابط التالية واليك المرفق ايضا

**زوهير** · يناير 1, 2013

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

هذا البرامج موجود عندي مسبقا ولما اجريت بعض التعديلات لم يعمل بشكل جيد

ما اريد الوصول اليه عندما تظهر القائمة في لليست بوكس واقم بضغط على سطر معين

ان تظهر جميع القيم في التكاست بوكس واقوم انا بتعديل من خلاله

**أبو حنــــين** · يناير 1, 2013

السلام عليكم اخي زوهير

بالنسبة للطلب الاول يكون كالتالي


Private Sub ListBox1_Click()

For e = 0 To ListBox1.ColumnCount - 1

Me.Controls("TextBox" & e + 1) = ListBox1.Column(e)

Next

End Sub

بالنسبة للطلب الثاني لم افهم القصد هل التعديل في ورقة العمل او في القائمة

تم تعديل يناير 1, 2013 بواسطه أبو حنين

الردود الموصى بها