Создал форму (Форма1) с текстовым полем. Её функция - появляться после двойного клика по определённому текстовому полю из материнской формы. Затем оператор либо кликает по текстовому полю Форма1, если выбирает находящиеся там данные, или кликает вне Форма1, после чего форма должна закрыться (как альтернатива Esc для отмены). Для того чтобы Форма1 держала заданные ей размеры, свойству Всплывающее окно присвоил Да (нашел такой совет на страницах форума). Но вот после этого по клику вне Форма1 событие Form_Deactivate() не происходит, соответственно Форма1 не закрывается и висит. Как помочь моему горю?

Option Explicit

Dim MustClose As Boolean

Private Sub Form_Load()
    DoCmd.MoveSize 0, 0, 1035, 284
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call TransForm(Me)
End Sub

Private Sub Form_Timer()
   If MustClose Then DoCmd.Close acForm, "Форма1"
End Sub

Private Sub Form_OnLoad()
  Me.TimerInterval = 0
End Sub

Private Sub Form_Deactivate()
    Beep
    MustClose = True ' будет закрыта по таймеру
    Me.TimerInterval = 100 ' закрытие через 100 мс
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then DoCmd.Close acForm, "Форма1"
End Sub

http://www.sql.ru/forum/1078533/vsplyvaushhee-okno