Question

大家问候：我已经花了2天的时间来解决这个问题，并尝试了各种令人沮丧的技术。我正在尝试启动其他数据库并关闭/退出调用（第一个）数据库。我创建了2个按钮单击子，一个子很好地工作，第二个（看起来是相同的）闪烁新的Db，然后立即返回到调用DB。这是运行良好的代码：

Dim objLeaveLookup As Object
Dim objOtherMenu As Object

Set objOtherMenu = GetObject("M:\QueryData\DBA Maintenance.mdb")
Set objLeaveLookup = GetObject("M:\QueryData\DBA_LookUp.mdb")

'   Open Maintenance menu & quit DBA_Lookup
objOtherMenu.DoCmd.OpenForm "frm_MaintMenu"
objLeaveLookup.Application.Quit

这是代码闪烁不同的Db，然后令人沮丧地立即返回到原始Db：

Dim objLeaveLookup As Object

Set objOtherMenu = GetObject("M:\QueryData\PurchMenu.mdb", "Access.Application").Application
Set objLeaveLookup = GetObject("M:\QueryData\DBA_LookUp.mdb", "Access.Application").Application

'   Open Purchasing menu & quit DBA_LookUp
objOtherMenu.DoCmd.OpenForm "frm_PurMenu"
objLeaveLookup.Application.Quit

对于获得预期结果的任何帮助，我们将不胜感激。

Answer 1

您可以使用FollowHyperlink。

查看此处：https://www.devhut.net/2018/01/21/ms-access-vba-open-another-database/

打开一个新数据库，然后关闭旧数据库

1 个答案: