TechKnowledge 内容
问题
：是否可以将按钮添加到"大
普通"窗口，当单击此按钮时让 VBA 代码打开现有的 Microsoft Access 数据库？解决方法
可以使用 Modifier 和 VBA 完成此操作。
1. 使用 Modifier 将新按钮添加到所需的"大纯色"窗口。
2. 为此按钮提供描述性名称，例如 btnOpenAccessDb。
3. 向此修改的窗口授予安全性，然后在大原色中打开该窗口本身。
4. 将窗口添加到 VBA，然后将新按钮添加到 VBA。
5. 打开 VBA 编辑器并导航到此"大纯色"窗口的代码部分。 下面是可在此处使用的代码示例：选项显式 Dim
appAccess As Object Private Sub
btnOpenAccessDb_BeforeUserChanged (KeepFocus As Boolean，CancelLogic As Boolean)
Dim
docAccess Set appAccess = CreateObject ("Access.Application")
docAccess = appAccess.OpenCurrentDatabase ("C：\My Documents\db1.mdb"， true)
appAccess.Visible = True End Sub Note -此代码示例旨在打开位于
C：\My Documents 目录中的名为"db1.mdb"的数据库，并根据需要进行更改。 appAccess 对象应在"常规声明"部分中进行维度设置，以便它持续到代码触发的按钮单击事件的范围之外。
本文为 TechKnowledge 文档 ID：32879
