如何在excel VBA中而不是CurrentDB中定义文件夹中访问数据库的路径？

Question

我必须通过 excel vba 用户表单运行访问查询。 此查询基本上从访问表中查找记录并更新 Out Time。 表名是“Visitors”，查询名是“updateVisitors”。 以下是我编写的 Excel VBA 代码：-

Sub VisitorsUpdateOT()

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim con As Object

    Application.EnableCancelKey = xlDisabled
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("updateVisitors")

        qdf.Parameters("Recp_Visitors!OutTime").Value = Recp_Visitors.OutTime.Value
        qdf.Parameters("Recp_Visitors!SrNo").Value = Recp_Visitors.SrNo.Value
        qdf.Execute
        qdf.Close

    Set qdf = Nothing
    Set dbs = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

当访问数据库打开时，此代码完美运行。 我发现当数据库打开时它不起作用，因为“ Set dbs = CurrentDb ”。 即使数据库关闭，有什么方法可以运行此查询吗？

Answer 1

从这里https://sourcedaddy.com/ms-access/opening-external-database.html

改变

Set dbs = CurrentDb

到

Set dbs = DBEngine(0).OpenDatabase("C:\Temp\db1.accdb", False, False)