طريقة تحديد آخر قيمة في قائمة منسدله

[gelani]

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

ارجو الإفادة عن طريقة تحديد آخر قيمة تلقائيا عند فتح النموذج من القائمة المنسدلة حيث انها المطلوبة عادة .

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

list.rar

[يوسف أحمد]

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

 

اخي العزيز جيلاني

 

لعمل ذلك ضع الكود التالي في حدث عند الفتح للنموذج

 

Me.combo1.Value = Me.combo1.ItemData(DMax("id", "list4") - 1)

 

حيث combo1  هو اسم مربع التحرير و السرد

 

بالتوفيق

[يوسف أحمد]

قد يتم حذف سجل و في هذه الحالة لا يمكن الاعتماد على اعلى قيمة للحقل  id 

 

لذا اقدم لك حل آخر 

 

Me.combo1.Value = Me.combo1.ItemData(Me.combo1.ListCount - 1)

 

بالتوفيق

تم تعديل سبتمبر 29, 2017 بواسطه يوسف أحمد

[gelani]

عزيزي الأخ يوسف احمد

نور الله قلبك بالعلم والإيمان .  تم تجربة الكود الثاني ويعمل بشكل رائع .

تحياتي لشخصك الكريم ولجميع أعضاء هذا المنتدى الرائع .