按之前所述过程操作，使自定义功能区可供应用程序使用。

关闭应用程序，然后将其重新启动。

单击“Microsoft Office 按钮”（“文件”菜单），然后单击“Access 选项”按钮。

单击左侧窗格中的“启动”选项，然后在“应用程序选项”部分中单击“自定义功能区 ID”并选择列表中的其中一个功能区。

现在，请关闭应用程序，然后将其重新启动。将显示所选 UI。

按之前所述过程操作，使自定义功能区可供应用程序使用。

在“设计”视图中打开窗体或报告。

在“设计”选项卡上，单击“属性页”按钮。

在“属性”窗口的“全部”选项卡上，单击“自定义功能区 ID”下拉列表，然后选择列表中的其中一个功能区。

保存、关闭窗体或报告，然后将其重新打开。将显示所选 UI。

注意 显示在功能区 UI 中的选项卡是附加选项卡。也就是说，除非专门隐藏选项卡或将 startFromScratch 属性设置为 True，否则由窗体或报告的功能区 UI 显示的选项卡将是在现有选项卡基础上增加的选项卡。

单击“Microsoft Office 按钮”（“文件”菜单），单击“Access 选项”，然后单击“视图”选项卡。

在“在所有 Office 应用程序中，显示”部分，选择选项“报告加载项中的自定义用户界面错误”。

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

启动 Access 2007。

在“插入”选项卡上，单击“表”，然后单击“表设计”。

在表中添加以下字段：

接下来，右键单击“Table1”选项卡，然后单击“数据表视图”。

在创建的字段中添加下列数据：

此标记将 startfromScratch 属性设置为 False，然后隐藏内置的“编辑”选项卡。接下来，它会创建一个自定义选项卡和一个自定义组，并在该组中添加内置的 Paste 控件。

将表保存为“DbRibbons”，然后将其关闭。

接下来，创建 VBA 模块和在启动时加载功能区的宏：

在“插入”选项卡上，单击“高级”按钮，然后单击“模块”。

在 Visual Basic 编辑器的“视图”菜单上，单击“属性窗口”。

在“属性”窗口的“名称”属性文本框中，将模块的名称更改为“RibbonLoader”。

在代码窗口中，插入下列 VBA 代码：

Option Compare DatabaseFunction LoadRibbons()Dim i As IntegerDim db As DAO.DatabaseSet db = Application.CurrentDb   For i = 0 To (db.TableDefs.Count - 1)   If (InStr(1, db.TableDefs(i).Name, "Ribbons")) Then      Dim rs As DAO.Recordset      Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)      rs.MoveFirst      While Not rs.EOF            Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value            rs.MoveNext      Wend      rs.Close      Set rs = Nothing   End IfNext idb.CloseSet db = NothingEnd Function

此代码根据任何名称中包含词语“Ribbons”的表创建一个 Recordset。然后它会调用 LoadCustomUI 方法来加载功能区，以使它们可供数据库使用。最后，它会关闭该记录集及对 DAO.Database 对象的引用。

保存并关闭 Visual Basic 编辑器。

在“数据库”窗口的“插入”选项卡上，单击“高级”，然后单击“宏”。

在“宏”窗口中，添加下列操作：

操作：RunCode

函数名：LoadRibbons()

右键单击“Macro1”选项卡，然后单击“保存”。

在“另存为”对话框中，键入“AutoExec”。

右键单击“AutoExec”选项卡，然后单击“关闭”。

现在，请关闭数据库，然后将其重新启动。

单击“Microsoft Office 按钮”，单击“Access 选项”，然后单击“启动”选项卡。

在“应用程序选项”部分的“自定义功能区 ID”列表中，选择“HideData”。

关闭数据库，然后将其重新启动。

启动 Access 2007。

在“插入”选项卡上，单击“表”按钮，然后单击“表设计”。

在表格中添加以下字段：

接下来，右键单击“表1”，然后单击“数据表视图”。

在创建的字段中添加下面两条记录和数据：

与前一过程中的标记类似，此标记将 startfromScratch 属性设置为 False，然后隐藏内置选项卡。接下来，它会创建一个自定义选项卡和一个自定义组，将它们合为一体，然后将内置控件添加到该自定义组中。在另一标记中，在组中添加具有 OnAction 属性的自定义按钮，该属性会触发显示消息框的过程。

将表保存为“FormRibbons”，然后将其关闭。

因为在前一过程中已编写了 LoadRibbons 过程，所以现在所要做的只是将由 onAction 属性调用的回调过程添加到“HidePageLayout”功能区中。

打开“RibbonLoader”模块。

在“工具”菜单上，单击“引用”，然后在“引用”对话框中滚动，直至看到“Microsoft Office 12.0 对象库”，然后单击该复选框。这样就可以访问 IRibbonControl 对象。

在 LoadRibbons 过程下插入以下代码：

Sub MyButtonOnAction(ByVal control As IRibbonControl)   MsgBox ("您单击了" & control.Id)End Sub

保存、关闭数据库，然后将其重新启动，以便新功能区可供应用程序使用。

现在需要创建未绑定窗体。确保创建窗体时未突出显示任何表，否则窗体将包含表中的所有字段。

在“插入”选项卡上，单击“简单窗体”，然后单击“窗体设计”。

在“设计”选项卡上，单击“属性页”。

在“属性页”窗口中，滚动至看到“自定义功能区 ID”属性为止。

单击列表，然后选择“HideInsert”功能区。

关闭并将窗体保存为“Form_HideInsert”。

现在，重复上述步骤，但这次在“自定义功能区 ID”属性中选择“HidePageLayout”功能区，并将窗体命名为“Form_HidePageLayout”。

关闭数据库，然后将其重新启动。

打开“HideInsert”窗体。请注意，现在功能区 UI 增加了一个“自定义窗体 1 选项卡”选项卡，其中包含一个称为“自定义组”的组，带有“粘贴”和“复制”内置按钮。

图 4. HideInsert 窗体的功能区 UI

关闭该窗体，然后打开“HidePageLayout”窗体。现在，功能区 UI 将显示“自定义窗体 2 选项卡”选项卡，其中包含“自定义组”，带有“显示消息”自定义按钮。此外，将不显示内置“页面布局”选项卡。

图 5. HidePageLayout 窗体的功能区 UI

现在，请打开“HideInsert”窗体。请注意，在窗体之间切换时，功能区 UI 将随所显示的窗体发生变化。