Как сделать, чтобы открытый запрос автоматически закрылся через 10 сек

[Vikylik]

Подскажите, пожалуйста, как делать! Ооочень надо!!! Пожалуйста..
Условие задания
Двойной щелчок мышью на свободном месте формы должен открывать не более, чем на 10 секунд, запрос «Запрос на выборку» в режиме конструктора.

[Teslenko_EA]

Здравствуйте Vikylik.
следующая пара строк кода выполняет Вашу задачу.
двойной клик открывает запрос в режиме конструктора и задает таймеру интервал 10000мс
при срабатывании таймера по интервалу, он закрывает запрос и обнуляет интервал (выключается)

Private Sub ОбластьДанных_DblClick(Cancel As Integer)
    DoCmd.OpenQuery "Запрос на выборку", acViewDesign, acEdit
    Me.TimerInterval = 10000
End Sub
Private Sub Form_Timer()
    DoCmd.Close acQuery, "Запрос на выборку"
    Me.TimerInterval = 0
End Sub

Евгений.

[Vikylik]

Спасибо, Вам, огромное, Евгений. Очень помогли.)