Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 在ms access中使用followhyperlink后使用openform_Vba_Ms Access - Fatal编程技术网

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

Vba 在ms access中使用followhyperlink后使用openform,vba,ms-access,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

我是个新手。我有两个文件,点击其中一个按钮,打开另一个表单:

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

这是可能的还是有意义的?

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

代码来自

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