Access97を使用しています。
クロス集計クエリを基にテーブルを新規作成します。
その後、フォームのコマンドボタンのイベントプロシージャでコードを記述してフィールドを追加していきたいのですが、どう書けばいいのでしょうか。
このテーブルは作業用で、頻繁に作って作業後は削除しますが、作成するたびにフィールドの数が異なります。(フィールド名も一部変わります。)それを常に同じフィールド数にしたいのです。追加したフィールドの表題は”-”(空白っぽく表現する)にしたい。
たとえば
商品名|場所A|場所B|合計|仕入先
みかん| 10 | 20 | 30|a店
りんご| 30 | 40 | 70|b店
を、下記のようにしたいと思います。
商品名|場所A|場所B|-|-|合計|仕入先
みかん| 10 | 20 | | | 30|a店
りんご| 30 | 40 | | | 70|b店
また、下記のようなケースもあります。
商品名|場所D|-|-|-|合計|仕入先
みかん| 10 | | | | 10|a店
りんご| 30 | | | | 30|b店
商品名|場所B|場所C|場所D|-|合計|仕入先
みかん| 10 | 20 | 20 | | 50|a店
りんご| 30 | 40 | 10 | | 80|b店
わかりにくい説明ですみません(>_<)
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
あるテーブルのフィールド数を数えるには、Fields.Countを使います。
例えば、DAOでやるなら次のようにすると、メッセージボックスに「テーブル名」で指定したテーブルのフィールド数が表示されます。
Dim db2 As DAO.Database
Dim rs2 As DAO.Recordset
Set db2 = CurrentDb
Set rs2 = db2.OpenRecordset("テーブル名")
MsgBox rs2.Fields.Count
Set rs2 = Nothing
Set db2 = Nothing
以上を利用して、足りない分のフィールドを作成すればよいのではないでしょうか?
もし意図していることと違ったらごめんなさい。
No.1
- 回答日時:
具体的なコードがわからないので申し訳ないのですが、多分、TableDefの、Fieldsコレクションなどを使ってフィールドを追加するようなかたちになるのだと思います。
「TableDef」 や 「VBA テーブル作成」というような語句でインターネットを検索すると何か出てくるかもしれません。ちなみにこんなのが出てきました。
http://www.accessclub.net/samplefile/samplefile_ …
市販のVBAの教則本(中級以上)などにも載っていますので、調べてみて下さい。
参考URL:http://www.accessclub.net/samplefile/samplefile_ …
この回答への補足
参考URLを見て、「既に同名のテーブルがある場合は、テーブルを削除」の方法がわかって喜んでいます。ありがとうございます。
質問の内容を言い換えますと、新規作成したテーブルのフィールド数を取得して、それに足りない数のフィールドを追加することができますか?
最終的にはすでに保存されているExcelワークシートの決められたセルに書き出ししたいのです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ACCESSでフィールド名の変更(VBA)
Access(アクセス)
-
「RunSQL」と「Execute」の違い
Access(アクセス)
-
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
-
4
ACCESSに同時アクセス(編集)をしたい
その他(データベース)
-
5
ACCESSのテーブル名をリストにしたい
Visual Basic(VBA)
-
6
クロス集計クエリの結果をテーブルにしたい
Access(アクセス)
-
7
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
8
希望の位置へフィールドを追加するには?
その他(Microsoft Office)
-
9
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
10
アクセス VBAで列の入れ替え データシートビュー
その他(Microsoft Office)
-
11
ACCESS VBAでテーブル内の特定のフィールドを削除 .Fields.Delete (*")"
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで、1つの項目に複数の...
-
Accessのテーブルのフィールド...
-
テキストボックスにクエリ結果...
-
アクセスで追加した項目に全て...
-
Accessで、テーブルに入力した...
-
アクセスのクエリ 1文字以上を...
-
更新クエリをリンクデータベー...
-
ACCESSで今日までの勤務時間の...
-
Accessを開きなおすとテキスト...
-
【急】Access 4桁の数字の頭...
-
テーブルでメモ型になっている...
-
フォームで入力された文字をク...
-
Access:値が求めたい値の2倍...
-
Access 期日が迫った文書を表...
-
Access2002の重複クエリで大文...
-
Access で 特定の文字の個数を...
-
Access 選択クエリで「テーブ...
-
AccessのテーブルにVBAでフィー...
-
フィールド名の変更について(...
-
オブジェクト名に【】をつけること
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで、1つの項目に複数の...
-
アクセスで追加した項目に全て...
-
Accessのテーブルのフィールド...
-
テキストボックスにクエリ結果...
-
Accessを開きなおすとテキスト...
-
テーブルでメモ型になっている...
-
Access:値が求めたい値の2倍...
-
Accessで、テーブルに入力した...
-
Access で 特定の文字の個数を...
-
Accessのクエリでハイパーリン...
-
ACCESSで2つフィールドの日付...
-
アクセスのクエリ 1文字以上を...
-
追加クエリで特定フィールドの...
-
accessでの文字列の混ざった連...
-
途中で改行されたCSVをAccessに...
-
更新クエリをリンクデータベー...
-
Access2002の重複クエリで大文...
-
Accessの電話番号フィールド
-
accessvba 複数条件でFilterを...
-
access フォームを開くと「パ...
おすすめ情報