将 PreviousControl 属性用于 Screen 对象可以返回对上次获得焦点的控件的引用。只读。
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