Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


383 / 2272 ツリー ←次へ | 前へ→

【11958】フィールドの追加について MIMI 11/2/23(水) 16:07 質問[未読]
【11959】Re:フィールドの追加について MIMI 11/2/23(水) 16:20 質問[未読]
【11960】Re:フィールドの追加について 11/2/23(水) 16:54 回答[未読]

【11958】フィールドの追加について
質問  MIMI  - 11/2/23(水) 16:07 -

引用なし
パスワード
   既存のテーブルにVBAを使って、
3つフィールドを追加させたいのですが、
いまいち、やり方がわからなくて悩んでます

テーブル名は T_Master です

ネットで調べてみて、サンプルを記述させてみたりしたのですが
どうもうまくいきません
解読できてないせいもありますが・・・
Appendメソッドを使用と書いてありましたが、
どのように使えばいいのか?

あと、下記のように記述してみましたが、構文エラーになってしまいます

ALTER TABLE T_Master ADD COLUMN 区分 TEXT(25)

なんせAccess初心者です

どうか、どうしたらいいのか伝授お願いします


 

【11959】Re:フィールドの追加について
質問  MIMI  - 11/2/23(水) 16:20 -

引用なし
パスワード
   下記の記述でフィールドを追加させることができました

Dim db As DAO.Database
Set db = CurrentDb

db.Execute "alter table T_Master add column 区分 Text(10)", dbFailOnError
Set db = Nothing

複数のフィールドを一括で追加させることは可能でしょうか?
下記のように記述してみたけど、駄目でした・・・

db.Execute "alter table T_Master add column 区分 Text(10)", "alter table T_Master add column 分類 Text(10)", dbFailOnError
Set db = Nothing


どうか伝授いただけるとありがたいです
よろしくお願いします


▼MIMI さん:
>既存のテーブルにVBAを使って、
>3つフィールドを追加させたいのですが、
>いまいち、やり方がわからなくて悩んでます
>
>テーブル名は T_Master です
>
>ネットで調べてみて、サンプルを記述させてみたりしたのですが
>どうもうまくいきません
>解読できてないせいもありますが・・・
>Appendメソッドを使用と書いてありましたが、
>どのように使えばいいのか?
>
>あと、下記のように記述してみましたが、構文エラーになってしまいます
>
>ALTER TABLE T_Master ADD COLUMN 区分 TEXT(25)
>
>なんせAccess初心者です
>
>どうか、どうしたらいいのか伝授お願いします
>
>
>

【11960】Re:フィールドの追加について
回答    - 11/2/23(水) 16:54 -

引用なし
パスワード
   雅です。

ヘルプを見る限りSQLではできなそうですね。
1つずつだと問題あるんですか?
どうしてもいっぺんに追加したければTableDefオブジェクトを使うしかないかな。

With TableDefs![テーブル名]
  Set FLD = .CreateField("名前", 型, [サイズ])

  .Fields.Append FLD
End With

って感じかな。
(変数の宣言は省いてます)

383 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078191
(SS)C-BOARD v3.8 is Free