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

質問

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

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

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

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

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

回答No.2

Ryocchi · ベストアンサー

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

お礼

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

回答No.1

hana-hana3

ＶＢＡの機能ではできません。
ＷＳＨなどの外部の機能を使う必要があります。

参考URL：

http://www.officetanaka.net/excel/vba/tips/tips21.htm,http://www33.ocn.ne.jp/~yfuku/wsh.html

お礼

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