Screen.PreviousControl プロパティ (Access)

最後にフォーカスを受け取ったコントロールへの参照を返すには、 PreviousControl プロパティと Screen オブジェクトを使用します。 読み取り専用です。

構文

式。PreviousControl

式Screen オブジェクトを表す変数。

注釈

PreviousControl プロパティには、最後にフォーカスを与えられたコントロールへの参照が含まれます。 コントロールへの参照を確立すると、コントロールのすべてのプロパティとメソッドにアクセスできます。

フォームを開いてからフォーカスが複数のコントロールの間を移動するまでは、PreviousControl プロパティを使うことはできません。 フォームにある唯一のコントロールにフォーカスが与えられたときにこのプロパティを使うと、エラーが発生します。

例

次の例では、フォーカスが最後に与えられたコントロールが 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 のサポートおよびフィードバックを参照してください。