- ベストアンサー
非表示のテーブルは取得したくない
全てのテーブル名を取得したくて 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ステートメントで「非表示なら」もしくは 「システムテーブルなら」として、はじくにはどうすればいいでしょう？
- kcdlcjlja8
- お礼率100% (51/51)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
いまいちビット演算結果とと、論理型の変換が分かっていませんが、システムテーブルを省くには下記で良さそうです。 ご参考まで。 '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
その他の回答 (1)
- m3_maki
- ベストアンサー率64% (295/459)
> 「システムテーブルなら」として、はじくにはどうすればいいでしょう？ こちらが参考になるでしょう。 http://www.accessclub.jp/bbs/0033/beginers14464.html
お礼
回答ありがとうございました。
関連するQ&A
- リンク元のパスを変更したい vba アクセス
アクセスです。 該当する複数のテーブルの、リンク元のパスを変更したいのですが Sub Sample() Dim DB As Database Dim T As TableDef Dim mystr As String Set DB = OpenDatabase(CurrentProject.FullName) For Each T In DB.TableDefs mystr = CurrentDb.TableDefs(T.Name).Connect If mystr Like "*\\該当のパス*" Then Debug.Print T.Name Debug.Print CurrentDb.TableDefs(T.Name).Connect ’自分としてはこれで変更できると思った CurrentDb.TableDefs(T.Name).Connect = _ ";DATABASE=C:\新たなパス\○○.accdb" Debug.Print CurrentDb.TableDefs(T.Name).Connect End If Next DB.Close Set DB = Nothing End Sub を実行してもエラーにもならないし、リンクテーブルのパスも変わりません。 CurrentDb.TableDefs(T.Name).Connect はパスの取得しかできないのでしょうか？ パスを設定する方法を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセスＶＢＡです
Sub test() Dim DB As Database Dim T As TableDef Dim myTable As String myTable = "Table1" Set DB = OpenDatabase(CurrentProject.FullName) For Each T In DB.TableDefs If T.Name = myTable Then DoCmd.DeleteObject acTable, myTable Exit For End If Next DB.Close Set DB = Nothing End Sub これを実行しようとすると Dim DB As Database の部分で コンパイルエラー プロジェクトではなく、ユーザ定義型を指定してください。 と言うエラーになります。 Dim DB As Objectにすればエラーにならずに進みますが 何が原因なのでしょうか？
- ベストアンサー
- その他(データベース)
- ｖｂａコードが遅い
当方access2003、XP、メモリ２G、コア２ＤＵＯなのですが Sub 取得() Dim DB As DAO.Database Dim T As TableDef Set DB = CurrentDb Debug.Print "開始：" & Now For Each T In DB.TableDefs 'ここでやたら時間がかかる Debug.Print T.Name & "取得時間：" & Now Next End Sub これを実行すると、 For Each T In DB.TableDefs を通る時に5秒くらい時間がかかりますがそういうものなのでしょうか？
- ベストアンサー
- その他MS Office製品
- Access 2000 の VB での テーブル作成について質問です。
下記のようにAccess 2000のVBからDAOを使ってテーブルを作っておりますが、 作るフィールドに規定値の設定もVBからできないのでしょうか？DAOだと無理なのでしょぅか？ 教えてください Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim flID As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("テーブル") Set flID = tbdef.CreateField("ID", dbInteger) tbdef.Fields.Append flID db.TableDefs.Append tbdef db.Close: Set db = Nothing
- ベストアンサー
- Visual Basic
- Vbaでアクセスからエクセルにリンクテーブルする
Vbaでアクセスからエクセルにリンクテーブルするには？ エクセルの情報： C:\Users\Desktop￥新規 Microsoft Excel ワークシート.xlsx シート１の情報： フィールド1 フィールド2 あああ ａａａ いい iii ううう uuu なのですが、 アクセスからＶＢＡでリンクするにはどうすれば良いでしょう？ 手作業なら 外部データ→エクセル→外部データの取り込み→リンクテーブルを作成してソースデータにリンクする でリンクできますが、ｖｂａで行いたいです。 Sub Sample01() Dim db As DAO.Database, tb As DAO.TableDef Set db = CurrentDb Set tb = db.TableDefs("Sheet1") tb.Connect = ";DATABASE=" & CurrentProject.FullName & ";TABLE=Sheet1" tb.RefreshLink ' リンク情報の更新 End Sub このコードは意味が違いますよね エクセルのパスとシート名を指定してリンクする方法を教えてください。 最終定期にはシートをループして複数のテーブルを作成したいのです。 リンクが無理ならインポートでもＯＫです。
- ベストアンサー
- オフィス系ソフト
- DAOでテーブルを作成
DAOでテーブルを作成したいのですが 主キーにしてオートナンバー型にするにはどうすればいいですか？ Sub MyTableCreate() Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim Field1 As DAO.Field Dim Field2 As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("T_test") Set Field1 = tbdef.CreateField("ID", dbInteger) Set Field2 = tbdef.CreateField("氏名", dbText, 20) tbdef.Fields.Append Field1 tbdef.Fields.Append Field2 db.TableDefs.Append tbdef db.Close: Set db = Nothing End Sub これで、IDフィールドを主キーにしつつ、 dbIntegerではなくオートナンバー型にしつつ、 主キーを付与する方法を教えてください。 DAOのType プロパティのヘルプを見たのですがありませんでした。 今回は http://www.accessclub.jp/dao/20.html を参考にしました。
- ベストアンサー
- オフィス系ソフト
- ハイパーリンク型の場合、エラーになります。
DAOでテーブルを作成しようとすると ハイパーリンク型の場合、エラーになります。 Sub Sample() Dim db As DAO.Database Dim tbdef As DAO.TableDef Dim Field1 As DAO.Field Set db = CurrentDb Set tbdef = db.CreateTableDef("T_test") Set Field1 = tbdef.CreateField("氏名", dbHyperlinkField) tbdef.Fields.Append Field1 db.TableDefs.Append tbdef db.Close: Set db = Nothing End Sub Type プロパティ のヘルプを見ると、dbHyperlinkFieldはないのですが dbHyperlinkFieldではないのでしょうか？ DAO.DataTypeEnum のメンバの中にもハイパーリンクはないようです。
- ベストアンサー
- オフィス系ソフト
- アクセステーブルがあれば削除VBA
win10 office365 access365におきまして テーブル この例ではTMPがあれば テーブルそのものを削除し （ですから削除クエリを使うこととは違うと思いましたが） はじめから存在しないときは次のコードに進む ということでほかの記事を参考に作ってみたのが Public Function tmpdelete() If funcTableExists("T_TMP") = True Then DoCmd.DeleteObject acTable, "T_TMP" End If End Function ----------------------- そもそもfuncTableExistsというのは 付属の関数ではないのかなと調べまして ----------------------- Private Function funcTableExists(ByVal strTableName As String) As Boolean Dim db As Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If (T_TMP= strTableName) Then funcTableExist = True Exit Function End If Next tdf Set tdf = Nothing db.Close Set db = Nothing End Function --------------------- If (T_TMP= strTableName) Then ここに削除判定の対象のテーブル名を入れましたが 上記いずれも 作動しません マクロのプロシージャで組み入れたいので subでばく functionで書くようにとありましたので 上記のようにしました また すみません 宜しくお願い致します
- ベストアンサー
- Access（アクセス）
- Accessのテーブルへ複数の主キーを設定するには
Access2003のVBAを使って開発していますが、 サーバーから取得したローカルテーブルに 複数の主キーを設定したいのですが、うまくいきません。 ソースは下記です。 Dim db As Database Dim Tbdef As TableDef Dim Fld As Field Dim Idx As Index Set db = CurrentDb Set Tbdef = db.TableDefs("TWorker") Set Idx = Tbdef.CreateIndex("INDEX_WORKER") Idx.Fields.Applend Idx.CreateField("作業者番号") Idx.Fields.Applend Idx.CreateField("登録日時") ★ Idx.Primary = True Tbdef.Indexes.Append Idx ★行で落ちるというか、終了してしまいます。 １つの主キーなら設定できるのですが、 複数設定する方法をご教授いただけますか。 よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- AccessVBAのCurrentDbメソッドでエラーになります
Windows2000、Access2000を使っています。 オンラインヘルプを参考に作った下記のプログラムを走らせると、Set db = CurrentDbのところで「実行時エラー13:型が一致しません」のエラーになります。どうしてでしょう。 Sub b() Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set db = CurrentDb Set tdf = db.TableDefs("テーブル1") For Each fld In tdf.Fields Debug.Print fld.Name Next fld End Sub 参照設定を見ると、Microsoft dao 3.0 Object LibraryにチェックがついていますのでDAOは使えるはずなんですが・・・。
- ベストアンサー
- その他MS Office製品
お礼
回答ありがとうございました。