catsの出来ることからこつこつと…(Accessでテーブルを非表示にする)

MS-Accessでテーブルを非表示にしたい場合のVBA。




Function テーブル非表示()

Dim TDF As DAO.TableDef

For Each TDF In CurrentDb.TableDefs
    TDF.Properties("Attributes") = dbHiddenObject
                                    'dbHiddenObject または 1  を入れる
Next

End Function

Function テーブル表示()

Dim TDF As DAO.TableDef

For Each TDF In CurrentDb.TableDefs
    TDF.Properties("Attributes") = 0
Next

End Function

Function TableDefプロパティ一覧()

Dim TDF As DAO.TableDef
Dim A As Long

For Each TDF In CurrentDb.TableDefs

A = 0
Debug.Print TDF.Properties.Count

    Do
        Debug.Print TDF.Properties(A).Name
        A = A + 1
    Loop Until TDF.Properties.Count <= A
   
Next

End Function

[1回]