使用 VBA 打开另一个 Access 实例答案

【问题标题】：Open another instance of Access using VBA使用 VBA 打开另一个 Access 实例
【发布时间】：2021-08-14 01:30:14
【问题描述】：

我正在使用 Access 中的表单打开其他访问数据库，这些数据库执行各种不同的查询来发布报告。由于我要打开的数据库使用大量彼此无关的表、查询和报告，因此将它们全部链接起来会很尴尬且很耗时，而且在原始数据库中进行更改也很乏味。

我正在使用Dim appAccess As Access.Application 打开每一个。它创建了新 accdb 的第二个实例，它不会变得可见。但是，如果我查看原始数据库中的代码，然后返回表单，它会打开完全可见的新实例，并且只要我保持原始数据库打开，它就会继续这样做。如果我关闭原始数据库并重新打开它，我会遇到同样的问题，只能通过再次查看代码来解决。作为我正在使用的示例

Option Compare Database

Dim APP As Access.Application

Sub TEST()

Set APP = New Access.Application

APP.Visible = True

APP.OpenCurrentDatabase "C:\Users\Documents\Database1.accdb"

End Sub

有人知道为什么会这样吗？

【问题讨论】：

我不确定这个问题是否得到回答

标签： ms-access

【解决方案1】：

添加行：

APP.UserControl = True

【讨论】：

添加行 app..UserControl = true 不起作用
既然对我有用，无法解释为什么不适合你。
无论如何感谢您的帮助。这发生在使用 Windows 7 和 Windows 10 平台上的 Access 360 的两台不同的计算机上。它让我发疯。
该信息没有问题，即使它看起来确实与问题相关。此代码适用于其他计算机？看来您不是唯一一个遇到代码无法在这些计算机配置上运行的问题stackoverflow.com/questions/68778422/…
不是不工作的问题。在我查看代码然后关闭查看代码后它确实有效。并且每次都继续工作，直到我关闭 accdb。问题是为什么查看代码会影响过程的成功。