一般外接程序（MDA）实例讲解

一、创建一个附加功能的外接程序数据库(mda)。

因为只是为了做mda讲解演示，所以我并没有在实例中添加实质的附加功能，只是做了一个弹出消息的功能模拟演示。你可以在今后自建的外接程序中附加更为实用的功能。

1、新建一个数据库，我定义的名字：测试实例.mdb，新建窗体（frmAddins），在窗体中添加一个按钮（CmdMsg），Caption属性值：“打开消息”。（见下图）

按钮CmgMsg单击事件中添加如下代码：

'程序功能：单击事件弹出消息框

Private Sub CmdMsg_Click()

   MsgBox "这是外接程序MDA测试程序！", vbInformation, "江羽提示："

End Sub

2、在数据库中新建一个标准模块（模块1），在模块中创建一个自定义公用函数（OpenFrmAddins），用以调用打开外接程序窗口。

'函数功能：用以调用打开窗体frmAddins

Public Function OpenFrmAddins()

  DoCmd.OpenForm "frmAddins"

End Function

3、在外接程序数据库中建立名为（UsysRegInfo）的系统表，用以完成外接程序的注册表中的注册 (见下图)。