こんにちわ。
ＶＢ６でコマンドボタンをクリックした時にアクセス2000のフォームを呼び出し起動まではできたの
ですが、
そのアクセス2000のフォームが終了（アクセス2000が終了）するまではＶＢ６の方は次のステップへ
進みたく
ないのです。
ここでなにか、アクセスが終わるの待つ方法ってありますか？

いろいろネットで参考になりそうなものを探したのですが見つけられません
この未熟者にいい方法があれば教えてやって頂けないでしょうか？

ここのＨＰのサンプルで、

　他のプログラムの終了を待つ（Ｓｈｅｌｌ関数で起動した）
　hhttp://www.bcap.co.jp/hanafusa/VBHLP/tap_PrgEnd.htm

というのがありますが、
いろいろネットで参考になりそうなものを探したのですが見つけられません。
と言ってるから、既読だよね。

> ここのＨＰのサンプルで、
>
> 　他のプログラムの終了を待つ（Ｓｈｅｌｌ関数で起動した）
> 　hhttp://www.bcap.co.jp/hanafusa/VBHLP/tap_PrgEnd.htm
>
> というのがありますが、
> いろいろネットで参考になりそうなものを探したのですが見つけられません。
> と言ってるから、既読だよね。

　早速の返事をありがとうございます。
　参考に試してみましたが、上手く行きませんでした。
　
　アクセスをｓｈｅｌｌ起動ではなく
   Set aces = New Access.Application
   aces.Visible = True
   aces.OpenCurrentDatabase dbname, False
   aces.DoCmd.OpenForm "＊＊＊＊＊", acViewNormal
　このような感じで起動してます。
　教えていただいた関連でも試してみましたが、うまく行きませんでした
　アクセスをshell起動できれば、教えていただいたやり方でもできるのかな？とも思いますが、それも
わから
ない次第です、めんぼくない。

　他のやり方をご存知であれば是非教えてください。

> 　早速の返事をありがとうございます。
> 　参考に試してみましたが、上手く行きませんでした。
> 　
> 　アクセスをｓｈｅｌｌ起動ではなく
>    Set aces = New Access.Application
>    aces.Visible = True
>    aces.OpenCurrentDatabase dbname, False
>    aces.DoCmd.OpenForm "＊＊＊＊＊", acViewNormal
> 　このような感じで起動してます。
> 　教えていただいた関連でも試してみましたが、うまく行きませんでした
> 　アクセスをshell起動できれば、教えていただいたやり方でもできるのかな？とも思いますが、
> 　それもわからない次第です、めんぼくない。
>
> 　他のやり方をご存知であれば是非教えてください。

SHELL起動じゃなかったのね。こちらも早とちりでした。

ありがとうございました。
一応解決しましたのでご報告までに。
☆印囲んだロジックでアクセスフォーム終了を待つ事ができました。


   Set aces = New Access.Application
   aces.Visible = True
   aces.OpenCurrentDatabase dbname, False
   aces.DoCmd.OpenForm "＊＊＊＊＊", acViewNormal

☆☆☆
   Do Until aces.SysCmd(acSysCmdGetObjectState, acForm, "＊＊＊＊＊") = 0
      DoEvents
   Loop
☆☆☆

   aces.Quit acExit
   Set aces = Nothing