Screen.PreviousControl 属性 (Access)

将 PreviousControl 属性与 Screen 对象一起使用，可返回对上次接收焦点的控件的引用。 此为只读属性。

语法

表达式。PreviousControl

表达 一个代表 Screen 对象的变量。

备注

焦点时 包含对上一次具有焦点的控件的引用。 建立对控件的引用后，可以访问控件的所有属性和方法。

只有在任何窗体上的多个控件已获得焦点，窗体打开后，才能使用 焦点时 。 如果您尝试使用此属性，当只有一个窗体上的控件已获得焦点时，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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。