
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
サンプルです。
DAO3.x の参照設定が必要です。
'テーブル名とクエリ名の(アンダースコア)を削除
Sub RenameTables()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef
Set dbs = CurrentDb
'テーブル
For Each tdf In dbs.TableDefs
If tdf.Name Like "*_*" Then
tdf.Name = Replace(tdf.Name, "_", "")
End If
Next
'クエリ
For Each qdf In dbs.QueryDefs
If qdf.Name Like "*_*" Then
qdf.Name = Replace(qdf.Name, "_", "")
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ヤフーのメールには2種類ありま...
-
Yahoo! Japanのトップページの...
-
東北景點
-
宮城県大崎市古川のよく当たる...
-
三菱東京UFJ銀行と三菱UFJ信託...
-
教えて!gooは、なぜOKWaveから...
-
ヤフー検索結果の削除の仕方
-
検索しやすいのは、グーグルか...
-
教えてgooはなぜ教えろgooでは...
-
ヤフーゴミ袋ってゴミの溜まり...
-
グーグルクロムが開きません
-
ヤフーIDのログイン再設定で本...
-
gooとOCNの関係をわかりやすく...
-
奥田光について
-
ホスト名ってさらしていいの?
-
網紀粛正の意味と読み方を教え...
-
yahooオークションを利用したい...
-
yahooで検索するのは 安全でな...
-
Yahooのデスクトップ画面を…
-
一番いいフリーメールってどこ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ヤフーのメールには2種類ありま...
-
Yahoo! Japanのトップページの...
-
宮城県大崎市古川のよく当たる...
-
Yahooの「お気に入り」の引継ぎ
-
ヤフーIDのログイン再設定で本...
-
LINEQから来たものです。 同じ...
-
LINEQが無くなってしまうのでこ...
-
教えて!gooは、なぜOKWaveから...
-
gooとOCNの関係をわかりやすく...
-
ヤフーゴミ袋ってゴミの溜まり...
-
暴力は、振るう? 働く?
-
なぜ日本のヤフーゴミ袋は廃止...
-
三菱東京UFJ銀行と三菱UFJ信託...
-
Safariで、Yahooトップを見ると...
-
ヤフーにログインしたら「ご利...
-
「教えて!Goo」や「YAHOO!知...
-
ドメインを間違えてメールして...
-
gooのカスタマサポートセンター...
-
教えてgooで、goodボタンを、ど...
-
ADOでテーブルにハイパーリンク...
おすすめ情報