
アクセス2007です。
VBAで3秒だけ時間を止めたいのですが
過去ログを検索してもよくわかりませんでした。
http://oshiete.goo.ne.jp/qa/4984098.html
こちらを見るとAPIとの事ですが
VBAだけで出来るコードをご教示いただけないでしょうか?アドバイスよろしくお願いします。
No.3ベストアンサー
- 回答日時:
VBAだけでできるコードの一例ですが、
Timer関数で取得した数値に「3秒」が足されるまでLoopする
という手がありますね。
こんな感じで。
Dim time As Single
Dim starttime As Single
time = 3 '経過後にループを抜ける時間(秒)
starttime = Timer 'Timer関数で開始時刻を取得
Do Until Timer > starttime + time '現在時刻がtime秒経過するまでループ
DoEvents
Loop
~~以降の処理するプログラム~~
お礼が遅くなってしまいもうしわ小杉ございません。
私の要望通りVBAだけのコードを教えていただきありがとうございます。
また機会があったらご教授宜しくお願いいたします。
No.2
- 回答日時:
VBAだけだと工夫が必要です。
下記が参考になるかと思います。http://yamav102.cocolog-nifty.com/blog/2011/11/a …
APIを使えば簡単です。
下記を定義しておいて
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
3秒止めたい箇所に下記を挿入する。
Sleep 3000
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
アクセスVBA 時間を止める
Access(アクセス)
-
マクロで待機時間を作りたい
Access(アクセス)
-
Application.Wait の参照設定
Visual Basic(VBA)
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
6
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
マクロで、次のコードへ行く前に時間をおくにはどうしたらいいのでしょうか?
その他(Microsoft Office)
-
9
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
10
何秒後に実行する
PowerPoint(パワーポイント)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
13
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
14
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
15
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
16
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
17
どこにもフォーカスを当てたくない
Access(アクセス)
-
18
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
19
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
20
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
画面を強制的に再描画させる方法
-
5
範囲指定したセルを1つずつ飛...
-
6
UWSCの終了の仕方
-
7
乱数の桁数指定、または範囲指定。
-
8
多重ループの抜けだし方
-
9
VBAでの一時停止と再開の方法
-
10
素数の個数を求めるプログラミング
-
11
VBAで3秒だけ時間を止めたい
-
12
DoEventsが必要な理由について
-
13
VBA Dir関数でファイルをループ...
-
14
アクティブセルから、A列最終行...
-
15
null 参照の例外が実行時に発生...
-
16
VBA for i=1 to lastrow
-
17
「偶数・奇数の和」のフローチ...
-
18
フラグについて
-
19
流れ図(フローチャート)が分か...
-
20
最大値選択法
おすすめ情報
公式facebook
公式twitter