为Access2007创建一个应用程序级的自定义Ribbon

为Access2007创建一个应用程序级的自定义Ribbon

(一) 创建一个Access2007应用程序级的自定义Ribbon

1、开启Access2007，打开一个已存在的数据库或创建一个新数据库。

2、单击“Office按钮”，单击“Access选项”，然后单击“高级”选项卡。

3、在“常规”部分，选择选项“显示加载项用户接口错误”(在不同的应用程序中，该选项可能在不同的位置)。

4、单击“确定”关闭Access选项对话框。

接下来，创建一个包含自定义XML标记的表。

5、在Access2007中，右键单击导航窗格，单击“导航选项”，选中“显示系统对象”前的复选框。(除非设置了该选项，否则将不可能在导航窗格中查看USysRibbons表。)单击“确定”按钮，Access系统表将出现在导航窗格中。

6、在“创建”选项卡中，单击“表设计”。

7、在表中添加下面的字段。

表：在USysRibbons表中定义的字段

字段名称 数据类型

ID 自动编号

RibbonName 文本

RibbonXml 备注

8、选择ID字段，在“设计”选项卡中选择“主键”。

9、单击“Office按钮”，然后单击“保存”，将新表命名为USysRibbons。

10、右键单击USysRibbons选项卡，然后单击“数据表视图”。

11、添加下面的数据到所创建的字段中。

表：USysRibbons表数据

字段名称 值

ID (自动编号)

RibbonName HideData

RibbonXml Xml

<customUI xmlns=”http://schemas.microsoft.com/office/2006/01/customui“>

<ribbon startFromScratch=”false”>

<tabs>

<tab idMso=”TabCreate” visible=”false” />

<tab id=”dbCustomTab” label=”A Custom Tab” visible=”true”>

<group id=”dbCustomGroup” label=”A Custom Group”>

<control idMso=”Paste” label=”Built-in Paste” enabled=”true”/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

这段标记设置startfromScratch属性为False，然后隐藏内置的“创建”选项卡。接着，创建一个自定义选项卡和自定义组，并将内置的粘贴控件添加到组中。

12、关闭该表。

13、关闭并重新打开数据库。

14、单击“Office 按钮”，然后单击“Access选项”。

15、单击“当前数据库”选项卡，向下滚动到“功能区和工具栏选项”部分。

16、在“功能区名称”下拉列表中，选择“HideData”，单击“确定”按钮。

17、关闭并重新打开该数据库。

此时，“创建”选项卡已不在功能区中，Fluent UI包括了“A Custom Tab”选项卡，其中包含“A Custom Group”组，带有内置的“粘贴”按钮。

18、要恢复功能区，则需要打开“Access选项”对话框，删除“功能区名称”选项中的内容，然后关闭并重新打开数据库，此时Access2007将显示其缺省的Fluent UI。

注意：也可以从USysRibbons表中使用一个功能区，为指定的窗体或报表提供UI。要进行这样的操作，在设计或布局模式下打开窗体或报表，然后设置窗体的RibbonName属性为想要使用的Ribbon的名称。在设置该属性之前，必须选择窗体自身，而不是窗体中的任何控件或选择。