نقل بيانات الحقل الأخير إلى الحقل الأول في السجل الجديد

عدل كود زر اضافة سجل جديد الى هذا الكود

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim last As Integer
last = DMax("[الرقم الأخير]", "Contacts")
    DoCmd.GoToRecord , , acNewRec
Me.[Country/Region] = last