تستطيع استعمال مثل هذا الكود: 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 ، تطلب من الكود الذهاب الى او سجل