Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8887 / 9994

←次へ　｜　前へ→


	【4262】Re:テーブルとかクエリーの有無

ひろのしま - 05/1/26(水) 9:33 -


	引用なし

	パスワード

▼MJM さん：
>以下の方法でも可能かと…
>
>TablDefあるいはRecordsetオブジェクト変数に対して、
>調べたいテーブル名を代入し、エラーになるか否かを
>エラートラップして判定する。

とりあえず、自分は以下のようにしました。

'アクセスのテーブルを数える変数
Public TBL_Cnt As Integer 'テーブルカウント
Public TBL_Sum As Integer 'テーブル合計
Public TBL_Keyword As String '検索テーブル名保存
Public TBL_HIT As Integer '検索出来た時に1を入れる。

Public Sub Moju_テーブル確認 ( )
TBL_HIT=0
TBL_Keyword="検索テーブル名"
TBL_Sum = CurrentData.AllTables.Count
For TBL_Cnt = 0 To TBL_Sum - 1
　　　　msgbox CurrentData.AllTables(TBL_Cnt).Name
　　If CurrentData.AllTables(TBL_Cnt).Name = TBL_Keyword Then
　　　　TBL_HIT = 1
　　End If
Next
　　　　msgbox TBL_HIT
End Sub

すると、
MSysAccessObject
MSysAccessXML
MSysACEs
MSysObjects
MSysQueries
MSysRelationships

と６つの隠しオブジェクトの名前が出た後に実際に使用しているテーブル名
が出てきました。これを出さず、数えないようにするのは別に難しくはないの
ですが、少々不便に出来ているとは思いました。

良きアドバイスをありがとうございます。

2,552 hits

▼

【4251】テーブルとかクエリーの有無 ひろのしま 05/1/25(火) 9:09