No.2ベストアンサー
- 回答日時:
テキストボックスなどのコントロールに対してなら、Decimalplaces = 2 のようにプロパティを設定すればよいのですが、
DA0 で、テーブルの Field オブジェクトに設定する場合には、Properties コレクションに明示的に DisplayControl プロパティを追加してやらないと、VBAから参照できません。
(Access のHELPには、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 の後で実行してください。)
この回答へのお礼
お礼日時:2005/07/15 21:57
早速の回答ありがとうございます。
教えて頂いた通りにコーディングすると小数点2桁が設定できました。
感謝!感謝!です。
私のレベルでは解決まで1週間かかるのではと覚悟していましたが
おかげさまで非常に助かりました。
ありがとうございました。
No.3
- 回答日時:
すみません、訂正です。
2行目
(誤)明示的に DisplayControl プロパティを・・・・・・
(正)明示的に DecimalPlaces プロパティを・・・・・・
以前に回答した類似のご質問の一部をそのままコピペしてしまいました。
恥ずかしいので、自信なしで・・・・・・(^_^;)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- JavaScript 【jquery】EasyUIのSubGridにMySQLのテーブルデータを表示&編集にしたい 5 2022/05/02 13:10
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- 英語 in the fieldってどういう意味でしょうか? 5 2022/12/10 22:45
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- 英語 読み方を教えてください 7 2022/09/20 08:32
- Visual Basic(VBA) VBAのフィルター操作 5 2023/08/08 09:48
- Visual Basic(VBA) worksheets & rows メソッドは失敗しました。のエラー回避のやり方 1 2022/06/07 13:58
- その他(アウトドア) テルスターの双眼鏡で「7X 35 Field 6.5°」とある場合は倍率何倍くらいですか? 2 2022/07/31 16:21
- 作詞・作曲 【花の苗】という言葉は、詩的にはどのような事物を表現しているのでしょうか? 1 2023/03/16 09:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
Excelでフィルタをかけると警告...
-
エクセルのVBAの標準モジュール...
-
テキストボックス中の文字列の...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
ある文字列が全て数字であるか...
-
VBからPDFファイル自動生成...
-
「Columns("A:C")」の列文字を...
-
VBScriptでファイルの日時順(降...
-
エクセルマクロエラー「'Cells'...
-
EXCEL VBA オートシェイプナン...
-
オートメーションエラーについて
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
ExcelVBAでのNZ関数について
-
VBAからPDFファイルにパスワー...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルのテキストボックスをV...
-
Exvel vba Range型変数格納時の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報