【ACCESS VBA】アクティブなフォーム名を取得するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、アクティブなフォーム名を取得する方法をご紹介します。

アクティブなフォーム名を取得する
関連記事
- 連結フォームを作成する

アクティブなフォーム名を取得する

使用するオブジェクト

Screenオブジェクト

Screen.target

説明

Screenオブジェクトは、現在フォーカスがある特定のフォーム、レポート、コントロールを参照するときに使用します。

使用するプロパティ

ActiveFormプロパティ

object.ActiveForm

説明

ActiveFormプロパティは、objectにScreenオブジェクトを指定することで、現在フォーカスがあるフォームを取得します。

Nameプロパティ

object.Name

説明

Nameプロパティは、objectに指定したオブジェクト名を返します。

サンプルプログラム

Private Sub Sample()
    
    Dim frmName As String
    
    frmName = Screen.ActiveForm.Name
    
    MsgBox "アクティブなフォーム名は、「" & frmName & "」です。"
    
End Sub

Private Sub Sample()

Dim frmName As String

frmName = Screen.ActiveForm.Name

MsgBox "アクティブなフォーム名は、「" & frmName & "」です。"

End Sub

1	Subプロシージャ「Sample」を作成。
5	現在フォーカスがあるフォーム名を取得し、文字列型の変数「frmName」に代入します。
7	変数「frmName」の値をメッセージボックスに表示します。