全部显示

PreviousControl 属性

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

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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