Accessのフィールドプロパティの一括更新

よろしくお願いします。

Access（MDB）に200近いフィールドのあるテーブルがあります。
そのフィールドのプロパティ全てに「空文字列の許可 = True」を設定したいです。
現在、全て「空文字列の許可 = False」になっており
手作業で一つ一つをクリックして変えていく他無いのかと困っています。

色々調べてみましたが、あるフィールド値を一括して入力する方法などはありましたが、
フィールドすべてのプロパティを変更というようなサンプルは見つかりませんでした。

方法が「無い」場合もあると思いますが、ご存知の方宜しくお願いいたします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2009/12/07 15:23

サンプル。

Sub Sample()
　　Dim dbs As DAO.Database
　　Dim tdf As DAO.TableDef
　　Dim fld As DAO.Field

　　Set dbs = CurrentDb
　　Set tdf = dbs.TableDefs("テーブル名")
　　For Each fld In tdf.Fields
　　　　fld.AllowZeroLength = True
　　Next
End Sub

この回答へのお礼

ありがとうございました。
ご回答通りのソースで上手く動きました！

お礼日時：2009/12/09 11:36