| 投稿日 | ： 2005/09/21(Wed) 11:55 |
| 投稿者 | ： ron |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: ＶＢ６からACCESS2000のフォームを呼び出している間。 |
ありがとうございました。
一応解決しましたのでご報告までに。
☆印囲んだロジックでアクセスフォーム終了を待つ事ができました。
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