ACCESSのFieldの追加方法

VB初心者です。ACCESSのMDBに下記の構文でFieldの追加はできたのですが
少数点以下２桁に設定する方法がわからなく困っています。
Fieldプロパティにも無く、どなたか教えて下さい。

Set field01 = tdfEmployees01.CreateField("Tanka", dbCurrency)
tdfEmployees01.Fields.Append field01

No.2 ベストアンサー 回答者： yoisho 回答日時： 2005/07/15 20:53

テキストボックスなどのコントロールに対してなら、Decimalplaces = 2　のようにプロパティを設定すればよいのですが、

DA0 で、テーブルの Field オブジェクトに設定する場合には、Properties コレクションに明示的に DisplayControl プロパティを追加してやらないと、ＶＢＡから参照できません。
（Access のＨＥＬＰには、Field オブジェクトのプロパティとして載っていません。）

具体的には、

Dim dbs As Database
Dim tdfEmployees01 As DAO.TableDef, field01 As DAO.Field, prp As DAO.Property

Set dbs = CurrentDb
Set tdfEmployees01 = dbs.CreateTableDef("テーブル名")
Set field01 = tdfEmployees01.CreateField("Tanka", dbCurrency)

tdfEmployees01.Fields.Append field01
dbs.TableDefs.Append tdfEmployees01

Set prp = field01.CreateProperty("DecimalPlaces", dbByte, 2)
Call field01.Properties.Append(prp)

のようになります。
（CreateProperty は、テーブルの Append の後で実行してください。）

この回答へのお礼

早速の回答ありがとうございます。
教えて頂いた通りにコーディングすると小数点２桁が設定できました。
感謝！感謝！です。
私のレベルでは解決まで1週間かかるのではと覚悟していましたが
おかげさまで非常に助かりました。
ありがとうございました。

お礼日時：2005/07/15 21:57

No.3 回答者： yoisho 回答日時： 2005/07/15 21:00

すみません、訂正です。

２行目
（誤）明示的に DisplayControl プロパティを・・・・・・
（正）明示的に DecimalPlaces プロパティを・・・・・・

以前に回答した類似のご質問の一部をそのままコピペしてしまいました。

恥ずかしいので、自信なしで・・・・・・(^_^;)

No.1 回答者： O_cyan 回答日時： 2005/07/15 19:26

Decimalplaces = 2

で小数点以下２桁を設定できます。