非表示のテーブルは取得したくない

質問

全てのテーブル名を取得したくて

Sub test()
Dim DB As Database
Dim T As TableDef

Set DB = OpenDatabase(CurrentProject.FullName)

For Each T In DB.TableDefs
Debug.Print T.Name
Next

DB.Close
Set DB = Nothing
End Sub

を実行したのですが

MSysAccessObjects
MSysAccessXML
MSysACEs
MSysDataCollection
MSysIMEXColumns
MSysIMEXSpecs
MSysNavPaneGroupCategories
MSysNavPaneGroups
MSysNavPaneGroupToObjects
MSysNavPaneObjectIDs
MSysObjects
MSysQueries
MSysRelationships

など余計なものまで取得されてしまいます。

ナビゲーションウインドウに表示されている
テーブルのみ取得するにはどうすればいいでしょう？

ifステートメントで「非表示なら」もしくは
「システムテーブルなら」として、はじくにはどうすればいいでしょう？

回答No.2

mitarashi · ベストアンサー

いまいちビット演算結果とと、論理型の変換が分かっていませんが、システムテーブルを省くには下記で良さそうです。
ご参考まで。

'DAOに参照設定要 Access2010
'http://support.microsoft.com/kb/210362/ja
'オブジェクトブラウザで TableDefAttributeEnum確認のこと
Sub test()
Dim DB As Database
Dim T As TableDef

'Set DB = OpenDatabase(CurrentProject.FullName) '当方では他で使っているからとエラーになりました
Set DB = CurrentDb
For Each T In DB.TableDefs
If (T.Attributes And dbSystemObject) = 0 Then Debug.Print T.Name
' If Not CBool(T.Attributes And dbSystemObject) Then Debug.Print T.Name 'これでもOK(CBoolをつけないとNG）
Next
DB.Close
Set DB = Nothing
End Sub

お礼

回答ありがとうございました。

回答No.1

m3_maki

> 「システムテーブルなら」として、はじくにはどうすればいいでしょう？

こちらが参考になるでしょう。
http://www.accessclub.jp/bbs/0033/beginers14464.html

お礼

回答ありがとうございました。