从另一个数据库上的按钮打开共享网络文件夹中的 Access 2007 数据库
Open an Access 2007 database in a shared network folder from a button on another database
谁能给我指出正确的方向,或者知道如何通过另一个 Access2007 数据库中的按钮打开网络共享驱动器上的 Access2007 数据库文件,该数据库也保存在同一网络共享驱动器中,只是一个不同的文件夹? IE。我已将 Datebase2.accdb 保存到共享网络驱动器文件夹,我在 Database1.accdb 的 frm_dashboard 上创建了一个按钮,但无论我做什么,我都无法获得从共享网络打开 Database2 的按钮驱动文件夹。我什至尝试按照某人的建议将 hyper-link 设置为文件,但这也不会打开 Database2。宏似乎只在您打开的当前数据库中设置打开事件。我也找不到 VBA 来执行此操作。
创建一个新的 Access 应用程序会话并在该会话中打开您的其他数据库。
这是名为 cmdOtherDb:
命令按钮的 Click 事件过程
Private Sub cmdOtherDb_Click()
Dim objAccess As Access.Application
Dim strPath As String
strPath = "C:\share\Access\Northwind_2007.accdb" ' <-- change this
Set objAccess = New Access.Application
objAccess.UserControl = True
objAccess.OpenCurrentDatabase strPath
Set objAccess = Nothing
End Sub
谁能给我指出正确的方向,或者知道如何通过另一个 Access2007 数据库中的按钮打开网络共享驱动器上的 Access2007 数据库文件,该数据库也保存在同一网络共享驱动器中,只是一个不同的文件夹? IE。我已将 Datebase2.accdb 保存到共享网络驱动器文件夹,我在 Database1.accdb 的 frm_dashboard 上创建了一个按钮,但无论我做什么,我都无法获得从共享网络打开 Database2 的按钮驱动文件夹。我什至尝试按照某人的建议将 hyper-link 设置为文件,但这也不会打开 Database2。宏似乎只在您打开的当前数据库中设置打开事件。我也找不到 VBA 来执行此操作。
创建一个新的 Access 应用程序会话并在该会话中打开您的其他数据库。
这是名为 cmdOtherDb:
命令按钮的 Click 事件过程Private Sub cmdOtherDb_Click()
Dim objAccess As Access.Application
Dim strPath As String
strPath = "C:\share\Access\Northwind_2007.accdb" ' <-- change this
Set objAccess = New Access.Application
objAccess.UserControl = True
objAccess.OpenCurrentDatabase strPath
Set objAccess = Nothing
End Sub