こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

というかんじです。2)まではできそうですが、3)のやり方が全く見当がつきません!!というか、できるのでしょうか?!

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

投稿日時 - 2005-05-23 19:28:54

QNo.1405507

すぐに回答ほしいです

質問者が選んだベストアンサー

メッセージボックスではボタンがあるので、無理だと思いますが、フォームのポップアップであれば可能だと思います。
ポップアップするフォームのopen(開く時)イベントでタイマーイベントを発生させます。
→Me.TimerInterval = 8000
(インターバルの8000は8秒)
8秒後にtimerイベントが発生しますので、そこでフォームをcloseします。
簡単なソースを記述しますと、
-----------------------------------------
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 8000
End Sub
-----------------------------------------
Sub Form_Timer()
DoCmd.Close
End Sub
-----------------------------------------

投稿日時 - 2005-05-23 21:50:41

お礼

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

投稿日時 - 2005-05-24 12:44:29

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

VBAの機能ではできません。
WSHなどの外部の機能を使う必要があります。

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

投稿日時 - 2005-05-23 19:39:20

お礼

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

投稿日時 - 2005-05-24 12:39:52

あなたにオススメの質問