ＶＢＡで3秒だけ時間を止めたい

質問

アクセス２００７です。

ＶＢＡで3秒だけ時間を止めたいのですが
過去ログを検索してもよくわかりませんでした。

http://okwave.jp/qa/q4984098.html
こちらを見るとＡＰＩとの事ですが
ＶＢＡだけで出来るコードをご教示いただけないでしょうか？アドバイスよろしくお願いします。

回答No.3

szk9998 · ベストアンサー

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

～～以降の処理するプログラム～～

お礼

お礼が遅くなってしまいもうしわ小杉ございません。
私の要望通りＶＢＡだけのコードを教えていただきありがとうございます。
また機会があったらご教授宜しくお願いいたします。

回答No.2

samtomsan

VBAだけだと工夫が必要です。下記が参考になるかと思います。
http://yamav102.cocolog-nifty.com/blog/2011/11/access-vbawait-.html

APIを使えば簡単です。
下記を定義しておいて
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
3秒止めたい箇所に下記を挿入する。
Sleep 3000

お礼

どちらでもできました。
でもＡＰＩの方が簡単ですね。ありがとうございました。

回答No.1

bin-chan

なぜ３秒待たせたいのか？のほうが気になりますね。

APIがイヤなら、Now()で現在時刻を取得して３秒経過するまで空回りさせるとか。
（PCはフリーズ状態になりますが）

お礼

ＡＰＩは難しそうなイメージがありました。、調べてみます。ありがとうございました。