ACCESS VBAでテーブル内の特定のフィールドを削除 .Fields.Delete ("*")

教えて下さい。
　倉庫テーブル
　　フィールド：
　　　北海道倉庫1
　　　北海道倉庫2
　　　仙台倉庫1
　　　仙台倉庫2
　　　仙台倉庫3
・
・

とあります。仙台と付くフィールドを全て削除したく

CurrentDb().TableDefs("倉庫テーブル").Fields.Delete ("仙台倉庫1")

の”仙台倉庫1”の部分を
（”仙台”＆”＊”）にしたのですが、動きません。
どのように書けば良いのでしょうか？
宜しくお願い致します。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2015/07/15 20:24

さすがにそのワイルドカードは無理。

こんな風では？

Sub てすと()
Dim DB As Database
Dim Tdf As DAO.TableDef
Dim Fld As DAO.Field
Dim i As Integer
Set DB = Application.CurrentDb
Set Tdf = DB.TableDefs("倉庫テーブル")

For i = Tdf.Fields.Count - 1 To 0 Step -1
If Tdf.Fields(i).Name Like "仙台*" Then
Debug.Print Tdf.Fields(i).Name
'Tdf.Fields.Delete Tdf.Fields(i).Name
End If
Next
Set Tdf = Nothing: Set DB = Nothing
End Sub

確認のためイミディエイトウィンドウに出力してますので
OKだったら下のコメントを外して実行してください。
※念のためバックアップを取ってからに。

この回答へのお礼

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

ご伝授の通り実行すると、”仙台*”フィールドが全て
削除出来ました。

大変助かりました。
ありがとうございます。

お礼日時：2015/07/16 09:54