ms-accessでfollowhyperlinkの後にopenformを使用する

Question

私はアクセスするのがかなり新しいです。私は2つのファイルを持っており、そのボタンをクリックすると、他のフォームが開きます：

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

これは完全に動作します。

しかし、ボタンをクリックして2番目のファイルの特定のフォーム（メインフォームではありません）を開きたいとします。

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

これは可能なのでしょうか、それとも全く意味がありますか？

Answer 1

このコードはこのトリックを行う必要があります。あなたが遭遇した問題は、最初のデータベースのコードから2番目のデータベースを参照できることです。これを行うには、Accessアプリケーションオブジェクトを作成し、そのアプリケーションでそのファイルを開く必要があります。その後、アプリケーションオブジェクトを呼び出して、2番目のデータベースでフォームを開くことができます。 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 

から

コード