Microsoft Access Club >VBA物語 >このページ


プロシージャ覚書--データベース内のオブジェクト名を表示する



下記サンプルプロシージャを実行することで、データベース内にあるオブジェクト名を取得できます。

 

'**************************************************
'データベース内のオブジェクト名を表示します。
'フォーム:Forms、レポート:Reports、テーブル:Tables
'クエリ:Qurreies、モジュール:Modules
'**************************************************

Function FormNameGet()

    Dim conObj As Container
    Dim docObj As Document
    Dim intcount As Integer
    
    '指定します。
    Const objオブジェクト名 = "Forms"
    
    intcount = 1
    
    For Each conObj In CurrentDb.Containers
    
        If conObj.Name = objオブジェクト名 Then
        
            For Each docObj In conObj.Documents
                Msgbox docObj.Name
            Next docObj
            
        End If
        
    Next conObj
                
End Function

 

サンプルとして、イミディエイト画面に出力させています。

 

?FormNameGet()
frm_sample
 

2003/06/11


プロシージャ覚書--データベース内のオブジェクト名を表示する


 

-Microsoft Access Club-