マクロで待機時間を作りたい

Access2000を使用しております。
AutoExecでマクロ使用時に一つ一つのマクロが移動するまでの時間が早すぎるので、次のマクロを処理するまでの間に待機時間を持たせたいのですが、どのようにするのがよいでしょうか。VBAは詳しくないので、できればマクロで完結できないものでしょうか。

No.1 回答者： popesyu 回答日時： 2003/11/13 11:53

処理時間を待機させるようなコードを書くなら幾らでも手はあるのですが、

マクロでということであれば限られてきますね。

その１：メッセージボックスを使う
　OKを押すまでは処理がとまります。
その２：無駄な作業を入れる
　ワークシート変換とか。ある程度サイズのあるテーブルをtempファイルとして毎回書き出すと。

No.2 回答者： ki-aaa 回答日時： 2003/11/13 12:03

こういうのはどうでしょう。

Sub aaa()
Application.Wait (Now + TimeValue("0:00:03"))
Sheets("Sheet3").Activate
Application.Wait (Now + TimeValue("0:00:10"))
Sheets("Sheet2").Activate
Application.Wait (Now + TimeValue("0:00:07"))
Sheets("Sheet1").Activate
End Sub

この回答への補足

回答ありがとうございます。
これは、Sheet1をあけたときに7秒待機時間をつくるプログラムですよね？これをAccessでやる方法はありませんでしょうか。

補足日時：2003/11/17 15:09

No.3 ベストアンサー 回答者： mkan8864 回答日時： 2003/11/19 21:28

APIのsleepではどうでしょう？

下記の宣言をして、
Sleep n
で、処理を　n/1000秒　ストップできます。


Private Declare Sub Sleep Lib "kernel32"
　　　　　　(ByVal dwMilliseconds As Long)

Sub Main

MsgBox "A"
Sleep 1000 '1秒ストップ
MsgBox "B"

End Sub

この回答へのお礼

ご回答ありがとうございます。挑戦してみます。

お礼日時：2003/12/15 16:43