حذف عناصر مربع نص List Box

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الأكارم حياكم الله.

هل يوجد كود يقوم بحذف عناصر مربع نص List Box دفعة واحدة

مثال: لدي مربع نص به ثلاث أو أربعة عناصر و أريد أن أحذف هذه العناصر بالضغط مرة واحدة على زر الحذف

وشكرا جزاكم الله خير الجزاء

 

list box.rar

[محمد ايمن]

تفضل اخي الكريم

 

list box1.rar

[رمهان]

Me.القائمة0.RowSource = ""

تحياتي

[أبو عبدالله الحلوانى]

تفضل لعل هذا مطلبك 

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

لذا قمت بتحويل قائمة المحتويات الى أرقام

 

list box.rar

[رمهان]

اخي الاستاذ محمد ايمن

يبدو ان الخواظر تواردت في نفس اللحظة

وهذه فكرة اخرى

Private Sub أمر2_Click()
For i = 0 To Me.القائمة0.ListCount - 1
Me.القائمة0.RemoveItem 0
Next
End Sub

تحياتي للجميع

[محمد ايمن]

8 دقائق مضت, رمهان said:

اخي الاستاذ محمد ايمن

يبدو ان الخواظر تواردت في نفس اللحظة

وهذه فكرة اخرى

Private Sub أمر2_Click()
For i = 0 To Me.القائمة0.ListCount - 1
Me.القائمة0.RemoveItem 0
Next
End Sub

تحياتي للجميع

تحياتي استاذنا الغالي

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

[صالح حمادي]

شكرا لكم إخوتي الأستاذ رمهان و الأستاذ محمد أيمن و الأستاذ أبو عبد الله الحلواني زادكم الله من علمه و فضله.

و أيضا هذا الكود بإمكانه أن يقوم بالمهمة المطلوبة.

Private Sub أمر2_Click()
Do While currentrecord <> Me.list0.ListCount
list0.RemoveItem 0
Loop
End Sub

 

 

[رمهان]

14 ساعات مضت, صالح حمادي said:

شكرا لكم إخوتي الأستاذ رمهان و الأستاذ محمد أيمن و الأستاذ أبو عبد الله الحلواني زادكم الله من علمه و فضله.

و أيضا هذا الكود بإمكانه أن يقوم بالمهمة المطلوبة.

Private Sub أمر2_Click()
Do While currentrecord <> Me.list0.ListCount
list0.RemoveItem 0
Loop
End Sub

العفو اخي صالح

ولي تعقيب على الكود اعلاه

لا اعتقد انه يفي بالمطلوب 

لانه يتطلب اولا ان يكون النموذج منضم اي مستند على مصدر بيانات وفي مثالك النموذج لا يستند على مصدر بيانات

ثانيا الكود يقوم  بالدوران بشرط ان السجل الحالي لا يساوي عدد العناصر بالقائمة وهذا لن يتحقق خصوصا لو كان السجل الحالي يساوي عدد القائمة فسيخرج من الدوران لان الشرط تحقق

ولو كنت في السجل الاول فسيتم ابقاء عنصر واحد ولا محالة لانه لا مجال لتحقق الشرط للدوران

اخيرا والمختصر لا عتقد انك قمت بالتجربة ونجحت اخي صالح

 

تحياتي 

 

 

[صالح حمادي]

نعم أخي و أستاذي رمهان شكرا على الملاحظة فهذا الكود لا يفي بالمطلوب فأنا جربته و لم يحقق الهدف.

فالكود الصحيح هو كالتالي:

Do While Me.l.ListCount <> 0
Me.l.RemoveItem 0
Loop

آسف لأني طلعت الكود الخطأ

شكرا جزيلا أخي و صديقي رمهان

 

 

list box.rar

[رمهان]

تمام استاذ صالح

والفكرة حلوة جدا

 

تحياتي

تم تعديل سبتمبر 21, 2016 بواسطه رمهان

[هيثم كمال]

السلام عليكم ايها السادة الافاضل

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

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

[صالح حمادي]

السلام عليم

استعمل هذا الكود خلف زر

Me.List1.RemoveItem Me.List1.ListIndex

بحيث List1 هو اسم مربع القائمة