在ms-access中使用followhyperlink后使用openform

时间:2016-08-23 13:01:29

标签: vba ms-access

我很擅长访问。我有两个文件,然后在按钮上点击它们,打开另一个表格:

Private Sub ComMA_Click()
FollowHyperlink "L:\Files\File.mdb"
End Sub

它完美无缺。

但我想点击按钮打开第二个文件的特定表单(不是主表单)。像这样的东西:

Private Sub ComMA_Click()
FollowHyperlink "L:\Files\File.mdb"
(Then DoCmd.OpenForm "frmTest")
End Sub

这是可能还是有意义?

1 个答案:

答案 0 :(得分:2)

这段代码可以解决问题。您遇到的问题是能够从第一个数据库中的代码引用第二个数据库。为此,您需要创建一个Access应用程序对象并让该应用程序打开该文件。然后,您可以调用app对象在第二个数据库中打开表单。

来自here的代码

Private Sub ComMA_Click()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "L:\Files\File.mdb"
appAccess.DoCmd.OpenForm "frmTest"
Set appAccess = Nothing
End Sub