全部显示

Screen 对象引用当前拥有焦点的特定窗体、报表或控件。

使用 Screen 对象

使用 Screen 对象及其属性，可以引用拥有焦点的窗体、报表或控件。

例如，可以使用 Screen 对象与 ActiveForm 属性来引用活动窗口中的窗体而无需知道窗体的名称。下面的示例将显示活动窗口中窗体的名称：

MsgBox Screen.ActiveForm.Name

引用 Screen 对象并不会使窗体、报表或控件激活。为了激活窗体、报表或控件，必须使用 DoCmd 对象的 SelectObject 方法。

如果在没有活动窗体、报表或控件的情况下引用 Screen 对象，Microsoft Access 会返回一个运行时错误。例如，如果某个标准模块位于活动窗口，那么前面示例中的代码就会返回一个错误。

下面的示例将使用 Screen 对象来打印活动窗口中窗体的名称及该窗体上活动控件的名称：

Sub ActiveObjects()

    Dim frm As Form, ctl As Control

    ' Return Form object pointing to active form.

    Set frm = Screen.ActiveForm

    MsgBox frm.Name & " is the active form."

    ' Return Control object pointing to active control.

    Set ctl = Screen.ActiveControl

    MsgBox ctl.Name & " is the active control " _

        & "on this form."

End Sub