• ベストアンサー

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

windows-xp、Access2003を使っています。 こんなことをしたいのです。 1)主になるフォームが画面の真ん中で開きます。 2)それと同時に、メッセージボックスでも、ポップアップにしたフォームでもよいのですが「続けて入力できます。」というメッセージを表示させます。 3)そして、8秒後にメッセージボックス(orポップアップしたフォーム)だけが自動に消える。 というかんじです。2)まではできそうですが、3)のやり方が全く見当がつきません!!というか、できるのでしょうか?! すみませんが、宜しくお願い致します。

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

  • ベストアンサー
  • Ryocchi
  • ベストアンサー率38% (38/98)
回答No.2

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

mipomipo
質問者

お礼

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

その他の回答 (1)

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

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

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

お礼

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

関連するQ&A

専門家に質問してみよう