ＶＢ５からＡｃｃｅｓｓ９７が起動できない

質問

メイン部分をＶＢ５、ＤＢと印刷業務をＡｃｃｅｓｓ９７で開発したアプリがＯＳをＷｉｎｄｏｗｓ９５からＷｉｎｄｏｗｓ２０００に変更したら、ＶＢからＡｃｃｅｓｓが起動しなかったり、ＶＢ終了後もＡｃｃｅｓｓが残ったりします。今の仕様はＡｃｃｅｓｓからＶＢメニューを起動し、印刷業務を選択した時にＡｃｃｅｓｓをＡｃｔｉｖｅにする設計になっています。ＶＢ５からＡｃｃｅｓｓ９７の制御方法に問題があるようですが、対応方法が判りません。どなたかご存知の方は教えてください。

回答No.2

darksky

VBもAccessもあまり使ったことがありませんが、標準の組み込み関数でダメなんですねぇ。
私が思いつくのは、Accessをオートメーション経由で操作するのと、WinAPIを使うことです。かなり変な方向ですが・・・

'APIの定義
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'Accessオブジェクトを格納する変数
Dim obj As Object

'オブジェクトの作成と表示 & ファイルの読み込み
Set obj = CreateObject("Access.Application")
obj.Visible = True
obj.OpenCurrentDatabase "C:\NWIND.MDB"

'ウィンドウのアクティブ化
SetForegroundWindow obj.hWndAccessApp

'オブジェクトの終了と破棄
obj.Quit
Set obj = Nothing

この処理を組み合わせてフォームにボタンが２つあるアプリを作ってみました。

Option Explicit
'APIの定義
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'Accessオブジェクトを格納する変数
Dim obj As Object

Private Sub Command1_Click()
Set obj = CreateObject("Access.Application")
obj.Visible = True
obj.OpenCurrentDatabase "C:\NWIND.MDB"
End Sub

Private Sub Command2_Click()
SetForegroundWindow obj.hWndAccessApp
End Sub

Private Sub Form_Unload(Cancel As Integer)
obj.Quit
Set obj = Nothing
End Sub

ボタンCommand1をクリックすると、Accessの起動関連の処理
ボタンCommand2をクリックすると、Accessのアクティブ化
フォームを閉じると、Accessの終了関連の処理(Form_Unload)

他にいい方法があると思うんだけどなぁ・・・

回答No.1

darksky

どのように起動しているんですか？

補足

お世話になります。
はじめにＡｃｃｅｓｓ９７のＭＤＢを起動し、ＶＢ５のＥＸＥ（初期メニュー）を起動しています。
メニューの中の印刷業務を選択するとＭＤＢをＡｃｔｉｖｅにします。（AppActivate "印刷業務", False）