MS Access - 프로그램 일시 중지

Question

Access 데이터베이스에서 작업을 일시 중지하는 방법을 찾으려고 애 쓰고 있습니다. 나는 많은 제안을 발견했으며 그 중 일부는 작동하지만 원하는 방식이 아닙니다.

나는 그것을 작동시킬 수 있는지를 알기 위해 미니 예제를 만들었다. (실제 프로그램에서 사용하겠다.)

두 가지 양식 (Form1 및 Form2)이 있습니다. Form1의 단추를 클릭하면 Form1이 닫히고 Form2가 열립니다. Form2에 클릭하면 버튼을 눌러 필요한 작업을 수행 할 수 있습니다 (5 초 동안 일시 중지).

Sub WaitFor(NumOfSeconds As Long) 

Dim SngSec As Long 

SngSec = Timer + NumOfSeconds 

Do While Timer < SngSec 

DoEvents 

Loop 

End Sub 

---

명령 단추 코드 :

Call WaitFor(5) 

    MsgBox "Waited for 5 seconds", vbOKOnly 

DoCmd.Close 

DoCmd.OpenForm "Form1", acNormal 

---

내가 코드를 필요로 여기에 내가 사용하고 코드 ....

이

---

모듈 코드는 사용자가 클릭하지 않고도 실행할 수있는 Form2의 단추 행운을 불렀던 여러 가지 Form 이벤트에이 코드를 넣으려고했습니다. 들어가는 이벤트에 따라 "작동"하지만 Form2는 실제로 화면에 표시되지 않습니다.

다양한 이벤트 (Load, Activate, Current, Focused)에서 Form2에 대한 명령 단추를 호출 해 보았습니다. 그것이 작동 할 때 나는 Form2가 결코 스크린에 결코 보이지 않는 곳에 문제가있다.

제안 사항? (Visual Basic과 같은 타이머 컨트롤이 좋을 것입니다!)

Answer 1

두 번째 폼을 표시하려면 원하는지 확실하지 않으며 THEN에 약간의 지연이 발생합니다. on-on/on-load evet에 넣는 데일리는이 두 "시작"이벤트 코드 스텁이 100 % 완료 될 때까지 양식이 표시되지 않도록합니다.

양식을 시작한 다음 지연이 발생하면 양식 "타이머"이벤트를 사용할 수 있습니다.이 이벤트는 vb 또는 vb.et과 비슷합니다. 양식을 저장하기 직전에도

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 

당신은 (종로에있는 동안 : formB가 열린 후

그래서 5 초 "안녕하세요", 당신은 다음 코드를 사용합니다 표시하는 MSGBOX 후 원하는 말 모드)는 타이머 "간격"을 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