تفعيل وإلغاء القائمة المختصرة ALLOW FULL MENU برمجيا

[sweety]

السلام عليكم

 

هل توجد طريقة في تفعيل وإلغاء القائمة المختصرة في اكسس

ALLOW FULL MENU

برمجياً بواسطة الكود بدلاً من الذهاب للإعدادات في أكسس

 

صورة مرفقة للتوضيح

 

مع جزيل الشكر

[محمد سلامة]

علي حسب ما فهمت

للالغاء

Docmd.showToolbar "Ribbon", actoolbarNo

 

[sweety]

استاذي العزيز محمد سلامة

 

عتقد بأن الكود الذي طرحته يخفي او يظهر الشريط بالكامل، وأما

ALLOW FULL MENU

يخفي أو يظهر بعض أحد هذه القوائم، وما أريده هو عند فتح احد التقارير إظهار القائمة المرفقة والتي تمكنني من تصدير التقرير بعدة صيغ كإيميل او اكسل مثلا

 

صورة مرفقة للتوضيح

 

مع جزيل الشكر

[رمهان]

شوف هنا لمعلومات اكثر حيث اكتب من الموبايل

 يمكن تختصر ب 

currentdb.properties(“allowfullmenus”)=false

بالتوفيق

[sweety]

لقد قمت بتجربة هذا الكود وظهرت لي رسالة خطأ

ورأيت مثال في احدى المواقع الاجنبية للكود التالي ولم تظهر رسالة خطأ ولكن لم يعمل الكود

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

من الاعدادات وأريد تفعيله فقط عند استعراض احد التقارير وذلك لتصدير التقرير بصيغة (بي دي اف) او (اكسل)

 

مع جزيل الشكر والتقدير

[رمهان]

16 ساعات مضت, sweety said:

لقد قمت بتجربة هذا الكود وظهرت لي رسالة خطأ

@sweety

هات الملف ورسالة الخطأ

تحياتي