投稿日 | : 2005/09/21(Wed) 11:55 |
投稿者 | : ron |
Eメール | : |
URL | : |
タイトル | : Re^4: VB6から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