• ベストアンサー

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

  • access2010/ポップアップ/自動カウント

    access2010を使用しています。 ポップアップで『10秒後に処理を開始します。』OKボタン、cancelボタン を表示したいと考えています。その後、 ポップアップを何もボタンを押下しなければ、自動的にマクロを実行したいです。 OKボタンを押せばすぐに処理が開始されます。 cancelボタンを押すと、処理は何もしません。 10秒は正確でなくても問題ありません。 Sleep (1000)等で1秒毎にカウントダウンし、それをForで繰り返し実行すれば出来そうですが、 ポップアップを表示しているときにそれが可能でしょうか? ご教授お願いします。

  • ポップアップ window

    ポップアップで出したウィンドウをサイズが変えれるように、したいのですが、ど うしたら良いのでしょうか? あと、そのポップアップが出る時、自動的にスクリーンの真ん中にくるようにし たいのです。 お願い致します。

    • ベストアンサー
    • HTML
  • 数秒後に自動的に移動します。というダイアログボックス。

    今日は。 自分のホームページが移転したため、今まで使っていたホームページにアクセスした人が新しいページへ自動で移動するようにしたいです。よくあるダイアログボックスが出て「数秒後に移動します」というダイアログボックスが出て、数秒後自動で新しいホームページにアクセスする方法なのですが・・・・。 どこ探しても見つからず、ご指導をお願いします。

    • ベストアンサー
    • HTML
  • タスクトレイ上部に上がってくるポップアップメッセージ

    AntiVirusのウィルス定義ファイルの更新時などにタスクトレイ上部に浮き上がってくるポップアップメッセージのようなメッセージボックス見たことがあるの思うのですが、あの機能ををVisualC++で実装することはできるのでしょうか? また、あのポップアップメッセージは正式になんと呼ぶのでしょうか? すいませんが教えていただけないでしょうか?

  • VB.NET メッセージボックスが隠れてしまいます。

    VB.NETでIEを起動して、フォームの操作と連携して IEのページを自動で操作するプログラムを作っています。 IEでWEBページのリンクをクリックしてページを移動する ごとにURLをチェックして、設定に該当した場合は メッセージボックスを表示して、このページで良いですか? という確認をしたいのですが、メッセージボックスが アクティブにならずにタスクバーを押さないと表示されません。 リンクをクリックした後は SetWindowPos(IE.HWND, 1, 0, 0, 0, 0, &H1 Or &H2 Or &H10) を実行して、IEを後ろに消してフォームを出すことは出来たのですが、 IEのウィンドウのタスクバーが押された状態のままで メッセージボックスがアクティブな状態で最前面に出てくれません。 Me.Topmost = True でもフォームは出るのですが、 メッセージボックスはその後ろに隠れてしまいます。 メッセージボックスを最前面に出す方法があったら教えて頂きたいです。 よろしくお願い致します。

  • Win7,IE11でポップアップが出ない

    Win7-SP1,IE11です。 友人のPCも、Win7-SP1,IE11です。 ホームページを作成し、ISPの私のエリアにアップしました。 このページには<body onload="window.open('popup.html','sub','toolbar=no);"> などと、オープンと同時にポップアップが開く仕掛けをしてあります。 私の場合、PCのオフラインでのデバッグ時でも、また、ネットでアクセスした時でも、ポップアップが開きます。 で、友人のPCにサーバーから当該ホームページをダウンロードして、PC内でオフラインで操作すると、確かにポップアップが開くのですが、ネットでアクセスした場合にはポップアップが出ないのです。 画面の最下部には「ポップアップがブロックされました。表示するにはCtrlキーを押しながらクリックしてください」というメッセージが出て、その通りにすると、ポップアップが表示されはします。 一方、IE11のツールで確かめるとポップアップブロックは無効になっています。有効・無効を切り替え、IEの再起動を何度か行いましたが、いずれの状態にてもポップアップは現れません。上記メッセージが出るだけです。 私の場合は、あえてブロック有効にして試すと、画面下部に「・・・からのポップアップがブロックされました。[一度のみ許可][このサイトのオプション]」とかいうメッセージが表示されます。 同じWin7,IE11でも様子が違うもんですねぇ。 結局、友人のPCは、どこか別の設定とかでポップアップが現れないように設定されているのでしょうか。問題解決のヒントなりともお教えいただければ幸いです。

  • "ウィルスが見つかったため、自動処理しました"とのポップアップが数秒単位で表示され困っています。

    数秒ごとにポップアップウィンドウが表示されます。 『ウィルスが見つかったため、自動処理しました』 ウィルスの名前はTROJ_AGENT.AUAQです。 すごく困っています。すごく目障りですし、右下に常に表示されるので 不便で仕方ありません。どなたか対応方法を教えて下さい。 (ちなみにファイル名はservices.exeです。)

  • IMEパッドの勝手なポップアップを直したいのですが、どうすればよいですか?

    IMEパッドの勝手なポップアップを直したいのですが、どうすればよいですか? テキストボックスに文字を記入していると、10秒位でIMEパッドが勝手にポップアップしてしまいます。 そうなると、カーソルがテキストボックスから外れて文字が打てなくなり困っています。 マウスでテキストボックスをクリックすれば問題ないのですが、10秒ごとにその作業をするのは非常に面倒なので解決方法はないでしょうか? spybotなどで、スパイウェアは駆除してますが、それ以上の対策はしておりません。 よろしくお願いいたします。

  • アクセス マクロのメッセージボックス

    アクセス マクロのメッセージボックス マクロのメッセージボックスのメッセージ文に、フォームでフォーカスされているデーターを表示できませんか? 例えば メッセージ・・ [Forms]![フォーム名]![フィールド名]&"さんのデーターを削除しようとしています"~~~ ** 注意 ******************* *  ○×さんのデータを * 削除しようとしています *  よろしいですか? *  OK NO **************************** のような感じでできないでしょうか? 別フォームで作るしかないですか?

  • C# メッセージボックスのOKボタンを自動クリック

    C#のwebBrowserでメッセージボックス(OKとかキャンセルとかのボタンがついたフォーム)のOKボタンを自動で押したいです。 メッセージボックスはhtmlのjavascriptで発生しており、何をどうすれば良いか分かりません。 拙い説明で伝わったのかどうか不安ですが、ご教授下さい。

このQ&Aのポイント
  • Windows10 HomeでUSBメモリーを使用して再セットアップディスクを作成する方法を解説します。
  • USBメモリーを挿しても「USB Keyを挿して」と表示が出て停止する場合の対処法についても紹介します。
  • 16GBのUSBメモリーを利用することで、安全かつ簡単に再セットアップディスクを作成することができます。
回答を見る

専門家に質問してみよう