database - 使用来自单独数据库的 VBA 代码关闭数据库

Question

是否可以通过另一个数据库（数据库 B）中的 VBA 代码关闭一个 Access 数据库（我们称之为数据库 A）。

在此处的示例中，如果数据库 A 在数据库 B 启动时打开，我希望数据库 A 关闭。这可能使用VBA吗？

我有一个谷歌，但所有答案似乎都与使用 VBA 关闭当前数据库有关，这当然可以通过 DoCmd.Quit 实现。

任何帮助是极大的赞赏。

Answer 1

你可以劫持它：

Dim OtherDB As Object

sOther = "Z:\Documents\other.accdb"
Set OtherDB = GetObject(sOther)
OtherDB.Application.Quit

这可能会使某人的生活变得困难。

Answer 2

我知道这个问题很老，但也许这会对某人有所帮助。我有一个数据库，我在其中使用 VBA 打开另一个数据库并运行一个宏。我想然后关闭数据库。对我有用的代码如下，它包括从打开到关闭的整个过程。

Function functionName()

Static acc As Access.Application
Dim db As DAO.Database
Dim dbname As String
dbname = "absolutePathToDBHere.accdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(dbname, False, False)
acc.OpenCurrentDatabase dbname
acc.DoCmd.RunMacro ("macroName")
acc.DoCmd.Quit acQuitSaveAll

db.Close
Set db = Nothing

End Function