８秒後にメッセージボックス(orポップアップ）だけを自動消滅させたい

windows-xp、Access2003を使っています。

こんなことをしたいのです。

１）主になるフォームが画面の真ん中で開きます。
２）それと同時に、メッセージボックスでも、ポップアップにしたフォームでもよいのですが「続けて入力できます。」というメッセージを表示させます。
３）そして、８秒後にメッセージボックス（orポップアップしたフォーム）だけが自動に消える。

というかんじです。２）まではできそうですが、３）のやり方が全く見当がつきません！！というか、できるのでしょうか？！

すみませんが、宜しくお願い致します。

No.2 ベストアンサー 回答者： Ryocchi 回答日時： 2005/05/23 21:50

メッセージボックスではボタンがあるので、無理だと思いますが、フォームのポップアップであれば可能だと思います。

ポップアップするフォームのopen（開く時）イベントでタイマーイベントを発生させます。
→Me.TimerInterval = 8000
（インターバルの8000は８秒）
８秒後にtimerイベントが発生しますので、そこでフォームをcloseします。
簡単なソースを記述しますと、
-----------------------------------------
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 8000
End Sub
-----------------------------------------
Sub Form_Timer()
DoCmd.Close
End Sub
-----------------------------------------

この回答へのお礼

すぐにできました。
勉強になりました。
ありがとうございました。

お礼日時：2005/05/24 12:44

No.1 回答者： hana-hana3 回答日時： 2005/05/23 19:39

ＶＢＡの機能ではできません。

ＷＳＨなどの外部の機能を使う必要があります。

参考URL：http://www.officetanaka.net/excel/vba/tips/tips2 …

この回答へのお礼

ＷＳＨは、初めて聞きました。
参考URLで勉強します。
ありがとうございました。

お礼日時：2005/05/24 12:39