將 PreviousControl 屬性與 Screen 物件搭配使用，以傳回上次收到焦點之控制項的參考。 唯讀。
語法
表達。上一頁控制項
詞 代表 Screen 物件的變數。
註解
PreviousControl 屬性包含最後一個具有焦點的控制項的參照。 建立控制項的參考之後，您可以存取控制項的所有屬性和方法。
您無法使用 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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。