رفض تغيير قيمة حقل معين

السلام عليكم ورحمة الله وبركاته قمت بتصميم تقريرين للطباعة، احدهما على قياس ورقة A4

والاخر على قياس ورقة A5

عند استدعاء الطباعة، يتم فحص متغير اسمه A5_Size_Mabiat_fatwra في جدول Primary،

اذا كانت قيمة المتغير True يتم استدعاء التقرير المصمم على قياس A5

واذا كانت قيمة المتغير False يتم استدعاء التقرير المصمم على قياس A4

كما قمت بوضع مؤشر في الزاوية اليسرى العلوية بلون اصفر ... تشير على اي حجم سوف يتم الطباعة

كل الامور المذكور تعمل بسلاسة ودون اي مشكلة، ولكن

بفرض ان الطباعة ستكون على A5 ، وقرر المستثمر تغيير الطباعة الى A4 .... فكي لا يخرج من مكانه الحالي ويذهب الى خيارات الطباعة ويختار ان الطباعة على A4، قمت بوضع الكود التالي الذي مهمته تغيير فيمة المؤشر المذكور

Dim R As Recordset

    	Set R = CurrentDb.OpenRecordset("select * from Primary;")

    	R.Edit

    	If R!A5_Size_Mabiat_fatwra = True Then
        	R!A5_Size_Mabiat_fatwra = False
        	R.Update
        	R.Close
        	Me.txt_Print = "A4"
        	Me.txt_Print.FontSize = 13
        	Exit Sub
    	End If

    	If R!A5_Size_Mabiat_fatwra = False Then
        	R!A5_Size_Mabiat_fatwra = True
        	R.Update
        	R.Close
        	Me.txt_Print = "A5"
        	Me.txt_Print.FontSize = 10
        	Exit Sub
    	End If

ولكن لا اعرف لماذا في هذه الشاشة يرفض العمل، ويظهر رسالة خطاً !!!!!!!!

ارجو تعديل المثال المرفق

والف شكر

Q 101.rar