• 0
غرّام العقول

إخفاء زر الخيارات في اكسس 2010

سؤال

السلام عليكم ورحمة الله وبركاته

لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة.

أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.

post-241745-066302800 1351871266_thumb.p

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

السلام عليكم ورحمة الله وبركاته

لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة.

أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.

post-241745-066302800 1351871266_thumb.p

اخي الفاضل : غرام العقول

السلام عليكم ورحمة الله وبركاته

هل تريد القائمة لديك تكون بهذا الشكل

post-15367-068637100 1351879358_thumb.gi

post-15367-096367100 1351879404_thumb.gi

لاحظ معي انه لا يوجد اي شيء سوى زر الإنهاء

لهذا فإن لدينا طريقتين للحل فإختار منها ما يناسبك وكلها سهلة وبسيطة وشيقة في نفس الوقت

اولا : قبل كل شيء قم بالتطبيق على قواعد بيانات تجريبية لغرض التدريب عليها لكل طريقة قاعدة بيانات جديده واذا استحسنت احدى الطرق طبقها على قاعدة بياناتك الرئيسية

*. سنقوم اولا بإزالة علامات الصح من الخيارات الغير مرغوب فيها مثل اظهار القوائم الكاملة والمختصرة وجعل عدد الملفات او المستندات ( 0 ) التي يتم فتحها

الطريقة الأولى : انشاء جدول بإسم USysRibbons ونضع به الحقول التالية :

ID AutoNumber Long Integer

RibbonName Text 50

RibbonXml Memo

بعد انشاء الجدول والحقول نحفظة بإسم USysRibbons

الآن نفتح الجدول لإدخال البيانات التالية به في سجل جديد

في حقل RibbonName نكتب الكلمة التالية SimpleFile

في حقل RibbonXml نضع به هذه العبارة كاملة


<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"><ribbon startFromScratch="false"></ribbon><backstage><button idMso="ApplicationOptionsDialog" visible="false"/><tab idMso ="TabPrint" visible="false"/></backstage></customUI>

الآن نغلق القاعدة ونعيد تشغيلها من جديد

وعند فتح قاعدة البيانات سنجد ان الجدول USysRibbons قم تم اخفاؤه لأنه من جدوال النظام

وسنجد انه تم انشاء شريط قوائم مختصر SimpleFile نقوم بإختياره من هنا ثم نضغط موافق

post-15367-050159000 1351881245_thumb.gi

الآن نقوم بإغلاق القاعدة وإعادة تشغيلها

وهذه هي القاعدة الأولى على اكسيس 2010 حيث تم عمل شريط القوائم SimpleFile بالجدول المخفي USysRibbons

za-Database5.rar

---------------------------------------------------------------------------

ننتقل الآن الى الطريقة الثانية وهي سهلة ايضا ولا تحتاج الى شرح موسع

*. كما عملنا في الخطوات السابقة من ازالة الخيارات الغير مرغوب فيها ثم نقوم بإنشاء وحدة نمطية جديده ونضع بها هذا الكود


Function zaLoadRibbon()
Dim sXML
sXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<ribbon startFromScratch=""false"">" & _
"</ribbon>" & _
"<backstage>" & _
"<button idMso=""FileSave"" visible=""false""/>" & _
"<button idMso=""SaveObjectAs"" visible=""false""/>" & _
"<button idMso=""FileSaveAsCurrentFileFormat"" visible=""false""/>" & _
"<button idMso=""FileOpen"" visible=""false""/>" & _
"<button idMso=""FileCloseDatabase"" visible=""false""/>" & _
"<tab idMso =""TabInfo"" visible=""false""/>" & _
"<tab idMso =""TabRecent"" visible=""false""/>" & _
"<tab idMso =""TabNew"" visible=""false""/>" & _
"<tab idMso =""TabPrint"" visible=""false""/>" & _
"<tab idMso =""TabShare"" visible=""false""/>" & _
"<tab idMso =""TabHelp"" visible=""false""/>" & _
"<button idMso=""ApplicationOptionsDialog"" visible=""false""/>" & _
"<button idMso=""FileExit"" visible=""true""/>" & _
"</backstage>" & _
"</customUI>"
Application.LoadCustomUI "SimpleFile", sXML
End Function

الآن نحفظ الوحدة النمطية ونخرج منها

نقوم الآن بإنشاء ماكرو ونستدعي الوحدة النمطية zaLoadRibbon()

من خلال الأمر RunCode ثم نضع اسم الدالة

الآن نحفظ الماكرو بإسم AutoExec

ثم نقوم بتشغيله لمرة واحده حتى يتم تنشيط الخيارات

نذهب الآن الى

ملف

خيارات

قاعدة البيانات الحالية

ونختار اسم الشريط SimpleFile ثم نضغط موافق

الآن نقوم بلإغلاق القاعدة ثم نعيد تشغيلها ونرى النتيجة

وهذه هي قاعدة البيانات بها وحده نمطية مع ماكرو AutoExec ونموذج

لا تنسانا من التقييم بارك الله بك

za-Database6.rar

بالتوفيق

تم تعديل بواسطه zahrah
2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أستاذتنا القديرة الفاضلة الدكتورة/ زهرة العبدالله

جزاكم الله عنا أفضل ما جزى معلماً عن تلامذته.

كلتا الطريقتين آتت أكلها ولم تظلم منه شيئاً.

تمت الإجابة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استاذة زهرة جزاكي الله كل خير انا استفدت منك كتير جدا في موضوعاتك وردودك واتمنى من الله ان يوفقك في حياتك العلمية والعملية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
On ٢‏/١١‏/٢٠١٢ at 6:49 PM, غرّام العقول said:

السلام عليكم ورحمة الله وبركاته

لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة.

أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.

 

 

post-241745-066302800 1351871266_thumb.p

 

 

 

za-Database6-tool.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استاذة زهرة شكرا كثير ع مشاركات و أنا استفدت منذ سنوات من خبرتك و جزاك الله كل خير سؤالي في قاعدة بياناتك اضفت شريط ادوات و اريد اخفاء كل اشرطة الادوات و ايضا منع تخصيص شريط و ذلك منع التعديل على القاعدة او اي مكون فيها و منتظر ردك استاذتنا القديرة و مرفق القاعدة مع السؤال

و شكراا 

za-Database6-tool.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .