Screen.ActiveControl プロパティ (Access)

ActiveControl プロパティを Screen オブジェクトと共に使用して、フォーカスがあるコントロールを識別または参照します。 読み取り専用 の Control オブジェクト。

構文

式。Activecontrol

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

注釈

このプロパティの設定値には、実行時にフォーカスを持っている Control オブジェクトへの参照が含まれています。

ActiveControl プロパティを使用して、実行時にフォーカスを持つコントロールとそのプロパティまたはメソッドの 1 つを参照します。 次の例では、フォーカスを持っているコントロールの名前を変数 strControlName に代入します。

Dim ctlCurrentControl As Control 
Dim strControlName As String 
Set ctlCurrentControl = Screen.ActiveControl 
strControlName = ctlCurrentControl.Name

どのコントロールもフォーカスを持っていない場合、またはアクティブなフォーム上のすべてのコントロールが非表示または使用不可になっている場合に、 ActiveControl プロパティを使うと、エラーが発生します。

例

次の例では、アクティブなコントロールを変数に ctlCurrentControl 割り当て、コントロールの Name プロパティの値に応じて異なるアクションを実行します。

Dim ctlCurrentControl As Control 
 
Set ctlCurrentControl = Screen.ActiveControl 
If ctlCurrentControl.Name = "txtCustomerID" Then 
 . 
 . ' Do something here. 
 . 
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then 
 . 
 . ' Do something here. 
 . 
End If

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。