既存テーブルにフィールドを追加したい

Question

既存のテーブルに、フィールドを削除するには

CurrentDb().TableDefs("テーブル名").Fields.Delete ("フィールド名")

上記一行でできましたが、

追加する為に、一行で記述する方法はありませんか？

Answer 1

MukkuMukuです。

コレクションとコレクションに格納されているオブジェクトと考えればよいかと。

Fields コレクション (DAO) から Field オブジェクト (DAO) を削除 / Delete する場合、すでにField オブジェクトはわかっているのだから、Field オブジェクトを特定する文字列：Field 名をFields.Delete メソッド (DAO) で指定するだけで事足りる。

Fields コレクションに Field オブジェクトを追加 / Append する場合、Fields.Append メソッド (DAO) の引数の型は オブジェクト型なので、TableDef.CreateField メソッド (DAO)で作成した Field オブジェクトが必要。

このような書き方を私はしないですが

CurrentDb.TableDefs("Table1").Fields.Append CurrentDb.TableDefs("table1").CreateField("F_Date", dbDate)

1行で収めるというのは本題ではないかと思うのだけど、1行であるメリットは思いつかない。

ALTER TABLE Table1 ADD COLUMN F_Date DATE というのも1行。

Answer 2

追加するフィールドがテキストだったので、dbDateをdbText, 50にしました。

CurrentDb.TableDefs("Table1").Fields.Append CurrentDb.TableDefs("table1").CreateField("F_Date",dbText, 50)

＞このような書き方を私はしないですが～～～1行であるメリットは思いつかない。

はい、お恥ずかしながら。

当方、日曜プログラマにとっては理屈は知らないが、即業務に使えるオマジナイのようなコマンド(？)はとても有用でして。

MukkuMuku様、いつもありがとうございます。

Answer 3

一行で

CurrentDb().TableDefs("テーブル名").Fields.Delete ("フィールド名")

と、削除できるなら

CurrentDb().TableDefs("テーブル名").Fields.Append～～ ("フィールド名"、～～)

なんて感じで、一行で処理できないかと思いまして。

Answer 4

おはようございます、ずっちです。

http://msdn.microsoft.com/ja-jp/library/office/ff195790(v=office.15).aspx

こちらに書かれています。