Access 2007 功能区运用祥细讲解

核心提示： 这样就能使用智能提示功能，快速地编写功能区XML，Access 2007 功能区运用祥细讲解(3)，二.编写回调函数回调函数的目的是完成功能区上控件所执行的功能，在上一篇文章中的 XML 内容中，为了以后能方便地使用自定义的功能区对象，定义一个全局对象变量 gobjRibbon，第一行：<

这样就能使用智能提示功能，快速地编写功能区XML。

二.编写回调函数

回调函数的目的是完成功能区上控件所执行的功能。在上一篇文章中的 XML 内容中，第一行：

　　<customUIxmlns="http://schemas.microsoft.com/office/2006/01/customui"onLoad="onLoadRibbon">

onLoad 属性值为 onLoadRibbon，即表示在加载功能区时调用 onLoadRibbon 函数，这个函数要用 VBA 来进行书写。

一、建立 Access 应用程序

新建一个数据库，命名为功能区.accdb，导入 Northwind2007.accdb 数据库中所有对象（示例中要用一些对象）。按 Alt+F11 键进入 VBE。为了使用功能区对象，首先必须引用 Microsoft Office 12.0 Object Library。

二、建立模块

为了统一管理，将所有回调函数放在同一个模块中，在 VBE 中新建一个模块，命名为 basRibbonCallbacks。为了以后能方便地使用自定义的功能区对象，定义一个全局对象变量 gobjRibbon，并 onLoad 指定的回调函数 onLoadRibbon 中进行赋值。

OptionCompareDatabase
OptionExplicit
'------------------------------
本模块包含Ribbon回调子程序'------------------------------
　　
PublicgobjRibbonAsIRibbonUI
　　
'自定义Ribbon加载时事件处理PublicSubonLoadRibbon(RibbonAsIRibbonUI)　　'将自定义Ribbon对象设置为全局对象　　　　SetgobjRibbon=RibbonEndSub