アクセスと起動する。

質問

フォームにコマンドボタンを配置しクリックすることによって　オフィスのアクセスの「A」と言うデーターベースを起動し同時にVisual　Basicで作成した（コマンドボタンを配置した）フォームを最小化にしたいのです。
宜しくお願い致します。

回答No.2

GreatDragon

こんな感じでいかがでしょうか？

Private Sub コマンド0_Click()
　　Dim acObj As Object

　　DoCmd.Minimize

　　Set acObj = GetObject("A.mdb")
　　acObj.Visible = True
End Sub

回答No.1

O_cyan

フォームをForm1・ボタンをCommand1として

Private Sub Command1_Click()
　Dim objMdb As Long
　 Set objMdb = CreateObject("Access.Application.9")
　 objMdb.OpenCurrentDatabase "c\パス\A.mdb"
　Form1.WindowState = vbMinimized
End Sub
これでダメでしょうか？

補足

早速のご回答ありがとうございます。
試してみたのですが、「コンパイルエラー、オブジェクトが必要です」
とエラーメッセージが出てしまいます。
宜しくお願い致します。