全部显示

将 PreviousControl 属性用于 Screen 对象可以返回对上次获得焦点的控件的引用。只读。

expression.PreviousControl

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

PreviousControl 属性包含对上次获得焦点的控件的引用。一旦建立了对控件的引用，就可以访问该控件的所有属性和方法。

该属性仅在使用宏或 Visual Basic 时才可用。

除非在窗体打开后有多于一个控件获得焦点，否则不能使用 PreviousControl 属性。如果窗体上只有一个控件获得焦点，则在试图使用该属性时 Microsoft Access 会出错。

示例

在以下的示例中，如果上次获得焦点的控件不是 txtFinalEntry 文本框，则显示一条消息。

Public Function ProcessData() As Integer

    ' No previous control error.

    Const conNoPreviousControl = 2483

    Dim ctlPrevious As Control

    On Error GoTo Process_Err

    Set ctlPrevious = Screen.PreviousControl

    If ctlPrevious.Name = "txtFinalEntry" Then

        '

        ' Process Data Here.

        '

        ProcessData = True

    Else

        ' Set focus to txtFinalEntry and display message.

        Me!txtFinalEntry.SetFocus

        MsgBox "Please enter a value here."

        ProcessData = False

    End If

Process_Exit:

    Set ctlPrevious = Nothing

    Exit Function

Process_Err:

    If Err = conNoPreviousControl Then

        Me!txtFinalEntry.SetFocus

        MsgBox "Please enter a value to process.", vbInformation

        ProcessData = False

    End If

    Resume Process_Exit

End Function