اريد التنقل داخل خيارات القائمة بدون استخدام لوحة المفاتيح

[Mohameddd200300]

اريد التنقل بين خيارت القائمة من خلال الزر اعلى واسفل  بدون استخدام لوحة
 المفاتيح وبدون النقر على القئمة نفسها وهذا مثال تطبيقي

مثال التنقل دخل القائمة.accdb

[متقاعد]

للسهم اعلى

DoCmd.GoToControl "نص1"
SendKeys ("{up}")

للسهم اسفل

DoCmd.GoToControl "نص1"
SendKeys ("{DOWN}")

 

[Mohameddd200300]

شكر على موروك واهتمامك في الموضع ولاكن اذا لاحظت انا عامل هذي الكود من قبل لاكن هناك مشكله  انت اضغط عليها وها ان زر mNmLK  يطفى ويشتغل مدري احس تحصل لخبطه فيه بسبب  امر snedkeys  مايخلي الارقام تشتغل  فنا ادور طريقه ثانيه  

[kanory]

2 ساعات مضت, Mohameddd200300 said:

شكر على موروك واهتمامك في الموضع ولاكن اذا لاحظت انا عامل هذي الكود من قبل لاكن هناك مشكله  انت اضغط عليها وها ان زر mNmLK  يطفى ويشتغل مدري احس تحصل لخبطه فيه بسبب  امر snedkeys  مايخلي الارقام تشتغل  فنا ادور طريقه ثانيه  

تفضل طريقة اخرى .........

'السابق
Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex - 1)
'التالي
Me.نص1 = Me.نص1.ItemData(Me.نص1.ListIndex + 1)
'اول سجل
Me.نص1 = Me.نص1.ItemData(0)
'اخر سجل
Me.نص1.Selected(Me.نص1.ListCount - 1) = True