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

アクセス２００７です。

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

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

No.1 回答者： bin-chan 回答日時： 2012/02/20 23:36

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

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

この回答へのお礼

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

お礼日時：2012/02/22 07:42

No.2 回答者： samtomsan 回答日時： 2012/02/20 23:40

VBAだけだと工夫が必要です。

下記が参考になるかと思います。
http://yamav102.cocolog-nifty.com/blog/2011/11/a …

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

この回答へのお礼

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

お礼日時：2012/02/22 22:42

No.3 ベストアンサー 回答者： szk9998 回答日時： 2012/02/21 00:06

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

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

この回答へのお礼

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

お礼日時：2012/02/27 19:45