Access VBA教程:PreviousControl属性

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

expression.PreviousControl

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

说明

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

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

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

VBA示例

在以下的示例中,如果上次获得焦点的控件不是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

上页:Access VBA教程:PostalAddress属性 下页:Access VBA教程:PrintCount属性

Access VBA教程:PreviousControl属性

Access VBA教程:PrintCount属性 Access VBA教程:Printer属性
Access VBA教程:Printers属性 Access VBA教程:PrintQuality属性
Access VBA教程:PrintSection属性 Access VBA教程:ProcBodyLine属性
Access VBA教程:ProcCountLines属性 Access VBA教程:ProcOfLine属性
Access VBA教程:ProcStartLine属性 Access VBA教程:ProductCode属性
Access VBA教程:ProjectName属性 Access VBA教程:ProjectType属性
Access VBA教程:Properties属性 Access VBA教程:PrtDevMode属性
Access VBA教程:PrtDevNames属性 Access VBA教程:PrtMip属性
Access VBA教程:Query属性 Access VBA教程:ReadingOrder属性
Access VBA教程:ReadyState属性 (Snapshot Viewer) Access VBA教程:RecordLocks属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号