Ｐａｇｅ 234 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テーブルの存在チェックについての質問 ガチャピン 03/3/25(火) 10:04 ┣Re:テーブルの存在チェックについての質問 イケガミ 03/3/25(火) 18:33 ┗Re:テーブルの存在チェックについての質問 yu- 03/3/25(火) 18:41 ┗イケガミさん、yu-さん、有難うございました。m(_ _)m ガチャピン 03/3/25(火) 19:03 ─────────────────────────────────────── ■題名 ： テーブルの存在チェックについての質問 ■名前 ： ガチャピン ■日付 ： 03/3/25(火) 10:04 -------------------------------------------------------------------------
| いつもお世話になっております。 Access2000で開発しています。 データーベース内のテーブルがあるか、ないかの存在チェックを かけたいのですが、記述方法が分かりません。 どなたか分かる方、教えていただけますでしょうか？ よろしくお願い致します。m( _ _ )m |
| >データーベース内のテーブルがあるか、ないかの存在チェックを >かけたいのですが、記述方法が分かりません。 mdb ファイルならば、 DCount("[Name]", "[MsysObjects]", "[Name]='" & TableName & "'") ではどうでしょうか？ TableName のところに、チェックをしたいテーブルを記述すればいいです。 |
| ▼ガチャピン さん： >Access2000で開発しています。 >データーベース内のテーブルがあるか、ないかの存在チェックを >かけたいのですが、記述方法が分かりません。 オーソドックスな方法だと下記なんですかね ---------------------------------------------------------------- Sub aaa() Dim tbl As DAO.TableDef Dim str As String str = "" '探したいテーブル名 For Each tbl In CurrentDb.TableDefs If tbl.Name = str Then MsgBox "テーブルあり" Exit For End If Next End Sub ---------------------------------------------------------------- 下記は、ちょっと邪道ですね、おまけにクエリ名にも反応してしまいますし ---------------------------------------------------------------- Sub bbb() Dim rec As DAO.Recordset Dim str As String Dim str2 As String str = "" '探したいテーブル名 On Error Resume Next Set rec = CurrentDb.OpenRecordset(str) str2 = rec.Name If str = str2 Then MsgBox "テーブルあり" End If On Error GoTo 0 End Sub |
| イケガミさん、yu-さん、ご返答有難うございました。 テーブル存在チェックうまくいきました。 また分からない事が多々あると思うので、 そのときはよろしくお願い致します。 有難うございました。m(_ _)m |