PreviousControl 属性

expandtri全部显示

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