Основные свойства и методы объектов Screen. Примеры

Свойства объекта Screen описаны в таблице:

При использовании объекта Screen целесообразно реализовать обработку ошибок, так как при выполнении Вашего кода в фокусе может оказаться не тот объект. Вероятно, лучше сначала применить метод SetFocus формы, отчета или элемента управления для установки фокуса? тогда Вы будете уверены, что в фокусе находится именно тот объект, который Вам нужен. Кроме того, старайтесь не использовать объект Screen с методом OutputTo объекта DoCmd.

Свойства ActiveForm и Me не обязательно возвращают ссылку на одну и ту же форму. Свойство Me представляет форму, чей код выполняется в данный момент, а свойство ActiveForm возвращает ссылку на форму, активную на экране, и это не всегда та форма, чей код сейчас выполняется. Допустим для примера, что в неактивной форме произошло событие Timer. Тогда свойство Me позволит сделать ссылку на форму, в которой произошло событие Timer, а свойство ActiveForm? на форму, которая активна на экране в момент возникновения (и обработки) этого события.

В следующем примере событие Timer используется для обновления данных на активной форме через регулярные интервалы. Форма, в которой происходит событие Timer, может быть (а может и не быть) активной.

Private Sub Form_Load()
═════Me.Timer-Interval = 30000
End Sub

Private Sub Form_Timer()
═════Const conFormNotActive As Integer =2475
═════Const conFormInDesignView As Integer = 2478

═════On Error GoTo Error_Timer
═════? периодически запрашиваем источник записей "в интересах" активной формы
═════Screen.Active Form. Requery

═════Exit_Timer;
Exit Sub

Error_Timer:
═════If Err = conFormNotActive Or Err = conFormInDesignView Then
══════════Resume Exit_Timer
═════Else
══════════MsgBox Err & ": " & Err. Description
═════End If
End Sub