سؤال/ عند فتح نموذج كيف يمكن الإنتقال إلى آخر عنصر من مربع القائمة

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

أضف هذا الكود إلى النموذج:

Private Sub Form_Load()
    Me.قائمة0.SetFocus
    Me.قائمة0.ListIndex = Me.قائمة0.ListCount - 1
End Sub

في حدث تحميل النموذج، يتم التركيز على القائمة وتحديد خاصية المفتاح ListIndex على آخر عنصر (ترقيم العناصر داخل القائمة يبدأ من الصفر، لذلك استبعدنا واحداً من العدد الكلي للعناصر)...

والله أعلم.

db5.rar

بارك الله فيك اخي أحمد .. هذا هو المطلوب .. شكرا لك ...

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

شكرا أستاذنا الغالي أحمد وبارك الله بك..

لو تسمح لي بطريقة أخرى للفائدة العامة ...

أضف هذا الكود إلى النموذج في حدث عند التحميل أيضا وبنفس الطريقة : حيث ( قائمة0 = list1 )

ملاحظة : القيمة التي تضعها بين الأقواس = القيمة التي تريد الوقوف عندها ...

Private Sub Form_Load()
Me.list1 = Me.list1.ItemData(Me.list1.ListCount - 1)
End Sub

مع تحياتي ..

db5.rar

ايضا طريقتك رائعة .. شكرا لك على اهتمامك وبارك الله فيك