Screen.PreviousControl 屬性 (Access)

使用 PreviousControl 屬性搭配 Screen 物件，可傳回上次收到焦點之控制項的參考。 唯讀。

語法

運算式。PreviousControl

表達 代表 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 支援與意見反應。