Bende bir örnek hazırladım dahada gelişebilir.
Örnek öncedende dediğim gibi form ile oldu.

Dosyayı herzaman olduğu gibi yine yükleyemiyoruz sağolsun berduş hocamız sayesinde
Accesste heralde application.Wait yok bulamadım.Timer ile yaptım.

https://dosya.co/kj6ylkzcgd9u/süreli_for...j.rar.html

Option Compare Database



Dim say As Integer



Private Sub Form_Load()

    Me.TimerInterval = 1000

End Sub



Private Sub Form_Timer()

    say = say + 1

    If say = 5 Then Komut3_Click

End Sub



Private Sub Komut1_Click()

    MsgBox "Evet"

End Sub



Private Sub Komut2_Click()

    MsgBox "Hayir"

End Sub



Private Sub Komut3_Click()

    DoCmd.SetWarnings False

    DoCmd.Close acForm, Me.Name

    DoCmd.SetWarnings True

End Sub