VBA, MS Access MS Access в примерах

Предпросмотр - Всплывающая форма перекрывает отчёт в режиме предпросмотра

По материалам: http://www.cyberforum.ru/ms-access/thread2471112.html


Sub cmdTest02_Click()
'Предпросмотр - Всплывающая форма перекрывает отчёт в режиме предпросмотра
'--------------------------------------------------------------------
'По материалам: http://www.cyberforum.ru/ms-access/thread2471112.html
'--------------------------------------------------------------------
'Открываем отчёт:
    DoCmd.OpenReport "rptTest", acViewPreview 'Предпросмотр отчёта
    DoCmd.Maximize                            'В полный экран
    DoCmd.RunCommand acCmdPreviewOnePage      'Отображение в одну страницу
    'На данный момент текйщая (всплывающая) форма видна поверх отчёта ...
    
    Me.Visible = False     'Далаем всплывающёю форму невидимой
    Me.TimerInterval = 333 'Назначаем срабатывание таймера каждые 0,333 секунды

End Sub

Private Sub Form_Timer()
'Срабатывание по таймеру в форме
'--------------------------------------------------------------------
    If Me.Visible = False Then
        If Reports.Count = 0 Then 'Если открытых отчётов уже нет
            Me.TimerInterval = 0  'Отключение таймера
            Me.Visible = True     'Делаем форму видимой
        End If
    End If
End Sub
Назад ToTop
L.E. 14.06.2019
Рейтинг@Mail.ru