أظن ان المطلوب هو اضافة رقم الى اخر رقم تم الوصول اليه
انظر الى الكود التالي قد تستفيد منه ولكن هذا الكود فقط عند اضافة جديد ارجو احد من الاخوة تعديله ووضعه عند الحفظ فقط
Dim varx
Dim vont
DoCmd.GoToRecord , , acLast
varx = [NOR]
vont = "RV"
DoCmd.GoToRecord , , acNewRec
[NOR] = varx + 1
vont = "rv"