لقد قمت بتجربة هذا الكود وظهرت لي رسالة خطأ
ورأيت مثال في احدى المواقع الاجنبية للكود التالي ولم تظهر رسالة خطأ ولكن لم يعمل الكود
Dim prpNew As Property
On Error Resume Next
CurrentDb.Properties("AllowFullMenus").Value = true
If Err.Number = 3270 Then
Set prpNew = CurrentDb.CreateProperty("AllowFullMenus",dbBoolean,true)
CurrentDb.Properties.Append prpNew
Err.Clear
End If
للتوضيح:
لقد قمت بإزالة
Allow full menu
من الاعدادات وأريد تفعيله فقط عند استعراض احد التقارير وذلك لتصدير التقرير بصيغة (بي دي اف) او (اكسل)
مع جزيل الشكر والتقدير