お世話になります。
VBAにてテーブルを作成した際の、書式設定についてご教授願います。
以下のようにテーブルを作成しております。
Set cdb = CurrentDb()
Set ctb = cdb.CreateTableDef("TBL")
ctb.Fields.Append ctb.CreateField("A番号", dbInteger)
cdb.TableDefs.Append ctb
Set ctb = Nothing
cdb.Close
Set cdb = Nothing
この『A番号』フィールドは数値型で、書式を3桁にしたいと思っております。
テーブルのデザインでは書式のところに『000』と入れれば、001、002・・・となりますが、上記のようにVBAでテーブル作成したとき、どのようにすればよいか分かりません。
以上、宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
リンク先をもう一度確認してください
>Set prp = fld.CreateProperty("Format", dbInteger, "000")
Set prp = fld.CreateProperty("Format", dbtext, "000")
ですよ。
追加して
fld.Properties.Append prp
の後に
Application.RefreshDatabaseWindow
を足してください
(無くても問題は有りませんがデータベースウィンドウが即更新します)
ご回答ありがとうございます。
早速、dbtextに変更したところ3桁になりました。
勉強不足ですみません。この箇所はてっきり当該フィールドのデータ型を指定する所かと思い、dbintegerとした次第です。
ありがとうございました。
大変助かりました。
No.3
- 回答日時:
こちらで解決するでしょう。
http://www.ruriplus.com/msaccess/Exp/exp0140.htm
ただ、DAO と ADO の両方に参照設定がしてあると
期待しない方のライブラリを見に行ってしまうかもしれないので
Dim db As Database → なにもしない
Dim tdef As TableDef → DAO.Tabledef
Dim fld As Field → DAO.Field
Dim prp As Property → DAO.Property
にしてください。
んで、"@@@@"の部分を、"000" で、
また、『書式』が『Format』なのは分かったけど他のは?は、
設定していないものは参照できませんので一旦手作業で設定します
その後
Sub てすと()
Dim db As Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
On Error Resume Next
Set db = Application.CurrentDb
Set tdf = db.TableDefs("てーぶる名")
For Each fld In tdf.Fields
Debug.Print "fieldName= " & fld.Name
For Each prp In fld.Properties
Debug.Print , "name=" & prp.Name _
, "type= " & prp.Type _
, "value= " & prp.Value
Next
Next
End Sub
なんてので調べてました。
ご回答ありがとうございます。
教えて頂いたサイトを参考にし、以下のようにしました。
しかし、テーブル自体は作成されますが、やはり書式が設定できません。
Dim db As Database
Dim tdef As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set db = CurrentDb
Set tdef = db.CreateTableDef("TBL")
Set fld = tdef.CreateField("A番号", dbInteger)
tdef.Fields.Append fld
tdef.Fields.Refresh
db.TableDefs.Append tdef
db.TableDefs.Refresh
Set fld = tdef.Fields("A番号")
Set prp = fld.CreateProperty("Format", dbInteger, "000")
fld.Properties.Append prp
どこか間違っておりますでしょうか。
No.2
- 回答日時:
ご回答ありがとうございます。
教えて頂いたサイトを参考にし、以下のようにしました。
しかし、テーブル自体は作成されますが、やはり書式が設定できません。
Dim oDb As DAO.Database
Dim oTd As DAO.TableDef
Dim oPrp As DAO.Property
Dim flTNK As DAO.Field
Set oDb = CurrentDb
Set oTd = oDb.CreateTableDef("TBL")
Set flTNK = oTd.CreateField("A番号", dbInteger)
oTd.Fields.Append flTNK
oDb.TableDefs.Append oTd
Set oPrp = flTNK.CreateProperty("Format", dbInteger, "000")
flTNK.Properties.Append oPrp
どこか間違っておりますでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCESSのテーブル作成クエリについて
Access(アクセス)
-
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
ACCESSでフィールド名の変更(VBA)
Access(アクセス)
-
-
4
アクセス VBAで列の入れ替え データシートビュー
その他(Microsoft Office)
-
5
Access テキスト型に対する指定桁での0埋め方法
その他(データベース)
-
6
ACCESS VBAでテーブル内の特定のフィールドを削除 .Fields.Delete (*")"
その他(プログラミング・Web制作)
-
7
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差し込み印刷で反映されないフ...
-
スケッチスタイルの有効化
-
Excelの集計がSUM関数で、1円...
-
箇条書きの記号の色が勝手に変わる
-
C言語のprintf()関数の「f」の意味
-
【EXCEL2003】セルの書式設定で...
-
【エクセル】コメントの初期(...
-
Access→Excelへエクスポートす...
-
教えてください! アクセスの書...
-
エクセル 電話番号に市外局番...
-
改行すると一段、間が開いてし...
-
WORD 書式の設定ではない黄色の...
-
「テーブルとして書式設定」で...
-
Open office Writerで余白の調整
-
Wordで、上下二段の書式にしたい
-
ワード、または一太郎で最初か...
-
【エクセル】バブルチャート上...
-
OpenOfficeの用紙のサイズ変更で
-
Excel のセル表示について
-
Accessのレポートでマイナスの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スケッチスタイルの有効化
-
差し込み印刷で反映されないフ...
-
Excelの集計がSUM関数で、1円...
-
Access→Excelへエクスポートす...
-
【EXCEL2003】セルの書式設定で...
-
【エクセル】コメントの初期(...
-
箇条書きの記号の色が勝手に変わる
-
「テーブルとして書式設定」で...
-
ワードで棒線が直接文章に入る...
-
OpenOfficeの用紙のサイズ変更で
-
Open office Writerで余白の調整
-
改行すると一段、間が開いてし...
-
WORD 書式の設定ではない黄色の...
-
課題で、Wordを使って提出する...
-
C言語のprintf()関数の「f」の意味
-
エクセル 電話番号に市外局番...
-
エクセルで和暦表示の桁合わせ...
-
スタイル同じなのに表示が異なる
-
WORDで囲み線の検索
-
【エクセル】バブルチャート上...
おすすめ情報