كود تنقل تلقائي بين السجلات

[mr steev]

هل من أحد لديه كود تنقل تلقائي بين السجلات والعودة إلى السجل الأول بعد الانتهاء 

[jjafferr]

تستطيع استعمال مثل هذا الكود:

dim rst as dao.recordset
set rst=me.recordsetclone
rst.movelast:rst.movefirst
rc=rst.recordcount

for i=1 to rc

docmd.GoToRecord,,acNext

next i

docmd.GoToRecord,,acFirst

 

 

جعفر

 

 

كتبت الكود بدون تدقيق ،

الكود سيبدأ العمل من السجل الحالي ، لذا سيعطيك خطأ عند وصوله الى آخر سجل ، بينما الكود لجميع الحقول ،

فيا انك تعمل له امر لوقف رسالة الخطا ، مثل On error resume next ،

او قبل For ، تطلب من الكود الذهاب الى او سجل ، هكذا: 

docmd.GoToRecord,,acFirst

 

جعفر