ApplicationオブジェクトのCurrentObjectType、CurrentObjectNameプロパティ
を使って、カレントデータベースで選択されているオブジェクトの名前と種類を
取得することができます。
　サンプルでは、取得した情報をイミディエイトウィンドウに出力しています。

● サンプル　●

Sub Sample()
    ' カレントオブジェクトの名前を出力します。
    Debug.Print Application.CurrentObjectName
    ' カレント オブジェクトの種類を出力します。
    Debug.Print Application.CurrentObjectType
End Sub

　データベースのテーブル「商品管理」が選択されている場合は、
イミディエイトウィンドウに次のように出力されます。

商品管理
 0 
 
● 詳細 ●

　「0」は、テーブルを表す値です。オブジェクトを表す値は
次のとおりです。

設定値　　　　        内容 
acTable(0)         　 テーブル 
acQuery(1)　　        クエリ 
acForm(2)             フォーム 
acReport(3)           レポート 
acMacro(4)            マクロ 
acModule(5)           モジュール 
acDataAccessPage(6)   データアクセスページ 
acServerView(7)       サーバービュー 
acDiagram(8)          ダイアグラム 
acStoredProcedure(9)  ストアドプロシージャ