اريد كيفية توقيف خاصية تخصيص شريط الادوات الوصول السريع و ...

[صلاح الدين الجزائري]

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

 

اما بعد

 

شباب شكرا لكم ع كل شيء ... والله افدتموني كثيرا ...

 

وإن شاء الله هذا هو سؤالي الأخير ....

 

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

المطلؤؤؤب : 

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

 

شباب اريد كيفية توقيف خاصية تخصيص شريط الادوات الوصول السريع

 

و توقيف خاصية إظهار شريط الادوات الوصول السريع في اسفل الشريط 

 

و توقيف خاصية تصغير الشريط

 

 

اقصد انا هذا الشريط

 

وشكــــرا

[.Azhar]

ماهي نسخة الاكسس ؟

اذا كان 2007 انظر لهذا المثال .

وهو لطريقة استخدام Ribbon

Ribbon.rar

[صلاح الدين الجزائري]

اخي شكرا لك ...

 

ممكن تقول لي الطريقة

 

لم افهم شرح ...

تم تعديل ديسمبر 14, 2014 بواسطه MoChekEs

[.Azhar]

نعم اخي , السر يكمن في جدول اسمه USysRibbons وتم وضع عبارة USys لغرض جعله من جداول السستم . افتح هذا الجدول ستجد الكود المبين لك ادناه وهو مكتوب بالغة Xml

وهو سر خاصية Ribbon

الكود كما مبين ادناه

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="OnLoadImage">
  <ribbon startFromScratch="true">
    <tabs>
      <tab id="tabImageMsoSamples" label="imageMso Samples">
        <group id="grpAccess" label="Access">
          <button id="btn1" label="CreateReport" imageMso="CreateReport"/>
          <button id="btn2" label="CreateForm" imageMso="CreateForm"/>
          <button id="btn3" label="TableDesign" imageMso="TableDesign"/>
          <separator id="sep1"/>
          <button id="btn4" label="FileBackupDatabase" imageMso="FileBackupDatabase"/>
          <button id="btn5" label="PivotGroupItems" imageMso="PivotGroupItems"/>
          <button id="btn6" label="PivotUngroupItems" imageMso="PivotUngroupItems"/>
          <separator id="sep10"/>
          <button id="btn7" label="FileNewDatabase" imageMso="FileNewDatabase"/>
          <button id="btn8" label="CreateStoredProcedure" imageMso="CreateStoredProcedure"/>
          <button id="btn9" label="PageSetupDialog" imageMso="PageSetupDialog"/>
        </group>
        <group id="grpExcel" label="Excel">
          <button id="btn10" label="Camera" imageMso="Camera"/>
          <button id="btn11" label="Calculator" imageMso="Calculator"/>
          <button id="btn12" label="ZoomClassic" imageMso="ZoomClassic"/>
          <separator id="sep2"/>A
          <button id="btn13" label="BarcodeInsert" imageMso="BarcodeInsert"/>
          <button id="btn15" label="Lock" A="Lock"/>
        </group>
        <group id="grpOutlook" label="Outlook">
          <button id="btn17" label="FollowUpComposeMenu" imageMso="FollowUpComposeMenu"/>
          <button id="btn18" label="CalendarInsert" imageMso="CalendarInsert"/>
          <button id="btn19" label="ChartInsert" imageMso="ChartInsert"/>
          <separator id="sep4"/>
          <button id="btn20" label="NewTaskNumbered" imageMso="NewTaskNumbered"/>
          <button id="btn21" label="NewContactNumbered" imageMso="NewContactNumbered"/>
        </group>
        <group id="grpPowerPoint" label="PowerPoint">
          <button id="btn22" label="ActionInsert" imageMso="ActionInsert"/>
          <button id="btn24" label="FindDialog" imageMso="FindDialog"/>
          <separator id="sep5"/>
          <button id="btn25" label="MovieFromFileInsert" imageMso="MovieFromFileInsert"/>
          <button id="btn26" label="FilePackageForCD" imageMso="FilePackageForCD"/>
        </group>
        <group id="grpWord" label="Word">
          <button id="btn27" label="BlogHomePage" imageMso="BlogHomePage"/>
          <button id="btn28" label="AddressBook" imageMso="AddressBook"/>
          <button id="btn29" label="ContentsAndIndex" imageMso="ContentsAndIndex"/>
          <separator id="sepX"/>
          <button id="btn30" label="DataFormWord" imageMso="DataFormWord"/>
          <button id="btn31" label="MicrosoftAccess" imageMso="MicrosoftAccess"/>
          <button id="btn32" label="MicrosoftExcel" imageMso="MicrosoftExcel"/>
          <separator id="sep6"/>
          <button id="btn33" label="Organizer" imageMso="Organizer"/>
          <button id="btn34" label="MailSelectNames" imageMso="MailSelectNames"/>
        </group>
        <group id="grpCommon" label="Common">
          <button id="btn35" label="Help" imageMso="Help"/>
          <button id="btn36" label="FileSave" imageMso="FileSave"/>
          <button id="btn37" label="FilePrintPreview" imageMso="FilePrintPreview"/>
          <separator id="sep7"/>
          <button id="btn38" label="PrintPreviewClose" imageMso="PrintPreviewClose"/>
          <button id="btn39" label="Undo" imageMso="Undo"/>
          <button id="btn40" label="Redo" imageMso="Redo"/>
          <separator id="sep8"/>
          <button id="btn41" label="FileOpen" imageMso="FileOpen"/>
          <button id="btn42" label="FileExit" imageMso="FileExit"/>
          <separator id="sep9"/>
          <button id="btn43" label="WebGoBack" imageMso="WebGoBack"/>
          <button id="btn44" label="WebGoForward" imageMso="WebGoForward"/>
          <button id="btn45" label="Head" imageMso="Head"/>
        </group>
      </tab>
      <tab id="tabLoadImageSamples" label="loadImage Samples">
        <group id="grpBMP" label="BMP">
          <button id="btnLoadImage1" label="News" image="news.bmp" size="large"/>
          <button id="btnLoadImage2" label="Reminder" image="bell.bmp" size="large"/>         
        </group>
        <group id="grpTIF" label="TIF">
          <button id="btnLoadImage3" label="News" image="news.tif" size="large"/>
          <button id="btnLoadImage4" label="Reminder" image="bell.tif" size="large"/>
        </group>
        <group id="grpGIF" label="GIF">
          <button id="btnLoadImage5" label="News" image="news.gif" size="large"/>
          <button id="btnLoadImage6" label="Reminder" image="bell.gif" size="large"/>
        </group>
        <group id="grpJPG" label="JPG">
          <button id="btnLoadImage7" label="News" image="news.jpg" size="large"/>
          <button id="btnLoadImage8" label="Reminder" image="bell.jpg" size="large"/>
        </group>
        <group id="grpPNG" label="PNG">
          <button id="btnLoadImage9" label="News" image="news.png" size="large"/>
          <button id="btnLoadImage10" label="Reminder" image="bell.png" size="large"/>
        </group>
      </tab>
      <tab id="tabGetImageSamples" label="getImage Samples">
        <group id="grpGetImage" label="getImage Samples">
          <button id="btnGetImage1" label="Test" getImage="OnGetImage" size="large"/>
          <button id="btnGetImage2" label="News" getImage="OnGetImage" size="large"/>
          <button id="btnGetImage3" label="Bell" getImage="OnGetImage" size="large"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

[.Azhar]

لاحظ الكود ودقق النظر فيه ستجد ان كل button  زر في الواجهات له اسم وله صورة وله عمل معين من خلال هذا الكود تستطيع تغييره الى اللغة العربية المرخصه لك هي التي موجودة بين الاقواس المنقوطة والتي يبينها المنتدى الجميل باللون الاخضر .

[.Azhar]

اما في ما يخص الاوامر للازرار , بمعنى عند الضغط على صورة زر كيف يتم تنفيذ الاوامر , هنا نستخدم وحدة نمطية عامة ونستخدم دالة الكيس فيها .

لاحظ هذا الكود لمثال هنا في المنتدى .

Public Sub RibbonButtonClick(control As IRibbonControl)
    Select Case control.Id
        Case "btnDates"
            DoCmd.OpenForm "ConcreteBreakDates"
        Case "btnReport"
            DoCmd.OpenReport "Test", acViewPreview
        Case "btn4"
            DoCmd.OpenForm "frmPrgInfo", , , , , acDialog, "PrgInfoBtn"
        Case Else
            MsgBox "Button """ & control.Id & """ click", vbInformation, "Quick Access Toolbar"
    End Select
End Sub

هذا رابط المثال .

http://www.officena.net/ib/index.php?showtopic=57458

الي ارجوه منك مراجعة الجدول والوحدة النمطية بدقه متناهيه ودراستها بشكل جيد .

[.Azhar]

لاحظ الاسطر التالية مثلا من الكود اعلاه في الوحدة النمطية . ماذا يفعل

Case "btnReport"
DoCmd.OpenReport "Test", acViewPreview

تقوم دالة Case عند النقر على صورة الزر الذي هو اسمه btnReport بتن ريبوت .

بفتح تقرير اسمه Test في طريقة العرض قبل الطباعه acViewPreview

اعتقد ان الفكرة قد وصلت . لان هذه الازرار تم تعريفها في جدول نحن جعلناه تابع للنظام بوضع كلمة USys.

[صلاح الدين الجزائري]

اخي شكرا لك كثيرا والله تعبتك معي ...

 

بس مشكلة ...

 

والله لم افهم جيدا ...

 

وأريدك تقولي بس كيف توقيف خاصية تخصيص شريط الادوات الوصول السريع

 

و توقيف خاصية إظهار شريط الادوات الوصول السريع في اسفل الشريط 

 

و توقيف خاصية تصغير الشريط

 

ارجوك تساعدني ...

 

وشكرا ...

[.Azhar]

لاحظ هذه الصورة 

[صلاح الدين الجزائري]

شكرا جزيلا اخي العزيز ...

 

اخي ممكن تعطيني Skype بتاعكـ ...

 

وشكرا ...