現在読み込まれているオブジェクトの確認を行う例です、











オブジェクト確認

Private Sub コマンド1_Click()
   
    Dim Aob As AccessObject
    Dim ob As Object
   
    Set ob = Application.CurrentProject
    
    '現在読み込まれているフォームの取得
    For Each Aob In ob.AllForms
   
        If Aob.IsLoaded = True Then
            MsgBox (Aob.Name)
        End If
       
    Next Aob
   
End Sub

上の例は現在読み込まれているフォーム名を取得するプログラムですが、
レポート名を表示させたい場合には

For Each Aob In ob.AllForms

の部分を

For Each Aob In ob.AllReports

に変更して下さい

For Each Aob In ob.AllForms　で現在読み込まれているすべてのフォームを取得し
ループさせ、If Aob.IsLoaded = True Then　の部分でオブジェクトが読み込まれているか確認を行っています。