MS Access - プログラムの実行を一時停止

Question

私はAccessデータベースで作業を一時停止する方法を見つけようとしています。私は多くの提案を見つけましたが、そのうちのいくつかは機能しますが、私が望むやり方ではありません。

私はそれを動作させることができるかどうかを確認するためのミニサンプルを作成しました（実際のプログラムで使用します）。

2つのフォーム（Form1とForm2）があります。 Form1のボタンをクリックすると、Form1が閉じられ、Form2が開きます。 Form2にはボタンをクリックすると、必要なものが実行されます（5秒間ポーズします）。私はコードが必要

Call WaitFor(5) 

    MsgBox "Waited for 5 seconds", vbOKOnly 

DoCmd.Close 

DoCmd.OpenForm "Form1", acNormal 

---

：

Sub WaitFor(NumOfSeconds As Long) 

Dim SngSec As Long 

SngSec = Timer + NumOfSeconds 

Do While Timer < SngSec 

DoEvents 

Loop 

End Sub 

---

コマンドボタンのコード：ここでは私が使用しているコードは....

---

モジュールのコードですForm2上のボタンで、クリックする必要のないユーザーを実行します。私は運がない、フォームのイベントの数にそのコードを入れてみました。入ってくるイベントに応じて、「作業」しますが、Form2は決して実際に画面に表示されません。

さまざまなイベント（Load、Activate、Current、Got Focus）からForm2のコマンドボタンを呼び出そうとしました。それが動作しても、私はまだ画面上でForm2が決して見えないという問題があります。

提案がありますか？

Answer 1

2番目のフォームを表示するかどうかは不明ですが、THENには何らかの遅延が発生します。オン/オンロードエバットに配置したデイリーは、これらの2つの「スタートアップ」イベントコードスタブが100％完了した後でフォームが表示されないようにします。

フォームを起動して何か遅延が発生した場合は、フォーム "タイマー"イベントを使用できます。これはvbやvb.etとよく似ています。

formBが開いた後それではあなたは以下のコードを使用します、「こんにちは」を表示するために5秒のMsgBox後にあなたがしたい、と言う：最新デザインにおけるながら（あなたがフォームを保存する直前にも

Private Sub Form_Timer() 

    Me.TimerInterval = 0 ' turn off the timer event 
          ' so it fires only one time 

    MsgBox "hello after 5 second delay" 


End Sub 

をモード）は、タイマーの「インターバル」を5秒（5000ミリ秒）に設定する必要があります。

Answer 2

別のアプローチ：あなたが実行を一時停止する必要があるのはなぜ

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

Public Sub SleepFor(ByVal MilliSeconds As Long) 
    Sleep MilliSeconds 
End Sub 

SleepFor 5000 '5 seconds delay