أعتقد انني وصلت إلى جزء كبير من الحل عبر الاستفادة من فكرة أخي الفيلسوف وذلك بوضع الكود التالي في حدث بعد التحديث لحقل اسم الشهر
Private Sub month_name_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.month_code = DLookup("[month_CODE]", "[month]", "[month_NAME]=[forms]![emp]![month_name]")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
وإزالة المفاتيح الأساسية لجدول الموظفين EMP