Форма не закрывается по инструкции DoCmd.Close

Четверг, 24 Января 2019 г. 06:09 + в цитатник

Общий модуль читает URL и при некоторых условиях должен подождать.
В этот момент окрывается информирующая "формочка" с полем, где по умолчанию указано время открытия формы и две кнопки: "Продолжить" и "Завершить"

В общем модуле цикл:

 If NErrxxx > 3 Then
                NErrxxx = 0
                Dim t0 As Long, t1 As Long: t0 = Timer: DoCmd.OpenForm "Xpause"
                Do
                  t1 = Timer
                  If t1 > t0 + 1800 Or t1 < t0 Then DoCmd.Close acForm, "Xpause": Exit Do
                  DoEvents
                  If log2 > 0 Then DoCmd.Close acForm, "Xpause": Exit Do
                Loop
                If log > 0 Then log = 0: DoCmd.Close acForm, "Xpause": GoTo 90
            End If

Последняя инструкция

.Close

даже лишняя.
Log, Log2 - глобальные управляющие переменные
Вот модуль формы:

Private Sub Form_Close()
log2 = 1
End Sub

Private Sub Кнопка2_Click()
log2 = 1
DoCmd.Close
End Sub

Private Sub Кнопка3_Click()
log = 1
log2 = 1
DoCmd.Close

End Sub