テーブル追加クエリーを使用してみた>こんにちは、三流プログラマーのKen3です。既存のデータからテーブルを作成してみました。追加クエリーを使用してみたいと思います。今回の、サンプルファイルは、http://www.ken3.org/vba/lzh/vba136.lzhにdb135.mdb(Access2000版)が保存されています。※クエリーやデータをいじって、遊んでみてください。郵便番号別のテーブルを作成しました。今回は、集計を行い、ある条件(10以下のデータ)を別のテーブルのデータに追加してみたいと思います。仕様変更が来たら?落胆しないで前向きに?http://www.ken3.org/backno/backno_vba27.html#133上記を参照してください。ここで、カウント数によって2つの分かれ道、10以上は、そのままExcelへデータセットに使います。10回以下は、頭3桁の番号とカウント数を、YUBIN_DATA3テーブルへ追加します。郵便番号101数4のデータが追加されるなんて処理を、追加クエリーを使用して、作成してみます。手順としては、まず、追加するデータをセレクト・選択しないとね。追加したいデータは、10以下のデータなので、条件<10を追加する。それと、3桁のデータにして追加したいので、YUBIN3桁:Left([変換後郵便番号])と式を追加して1つフィールドを作成します。108こんな感じで表示が出来たら、このデータをYUBIN_DATA3テーブルに追加します^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^まず、クエリーの種類を通常の選択から、追加に変更します。メニューのクエリーから追加を選択します。↑メニューからクエリーの追加を選択するすると、どのテーブルに追加するのか?って感じで、聞いてくるので(ダイアログが表示されるので)カレントデータベースのYUBIN_DATA3を選択します。↑追加先テーブルを選択したイメージ次に、追加する項目を選択します。107をDATA_YUBIN3テーブルの郵便番号フィールドにはYUBIN3桁,数フィールドには変換後郵便番号のカウントを追加するために、レコードの追加の項目で、追加先のフィールドを選択します。↑追加先フィールドを選択したイメージこれで、実行すると、集計して10以下のデータを追加することができます。4.カウントから集計へ*/同様に、YUBIN_DATA3を集計して、10以下のデータをYUBIN_DATA2へ追加します。郵便番号はグループ化、フィールド[数]は合計としてグループ化します。(※101は、1+5+4で10と合計を計算させる)↑合計を計算するクエリー~~~~~~~~~~~~~~~~~~~~~~~~あとは、同様に、<10以下、頭2桁の項目を作成して、YUBIN2_DATAに追加します。他のテーブルにデータを追加してみました。ポイントは、^^^^^^^^^^^^普通に表示用のクエリーを作成する。クエリーのモードを追加に変更、追加するテーブル名とフィールドを選択。そんな感じの流れで作成可能です。あとは、このテーブルから、ExcelへデータをセットすればOKですね。今回の、サンプルファイルは、http://www.ken3.org/vba/lzh/vba136.lzhにdb136.mdb(Access2000版)が保存されています。※クエリーやデータをいじって、遊んでみてください。何かの参考となれば幸いです。Excel/Access大好き、三流プログラマーKen3でした。ページフッターここまで、読んでいただきどうもです。広告など気になったジャンル↓を選択してください。)]・・・VBAからOutlookを使い、メール関係を処理するサンプルです↑上記3つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。入力・処理・出力]※↑文章の味付けが変わっていて、お口に合うかわかりませんが。※※読んで、気分を悪くされたらスミマセン。[VBA系バックナンバー目次へ移動]。