[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.137 Access クエリーを連続で実行させる

Access クエリーを連続で実行させる

メルマガ発行内容

＜Access クエリーを連続で実行させる＞
こんにちは、三流プログラマーのＫｅｎ３です。

前回、までで、やっとテーブル作成・データ作成ができました。
今回は、その作成したクエリーを連続で実行させてみたいと思います。

/*
 * １. 今回のキッカケ
*/

No.135 Access テーブル作成クエリーを使用してみた
http://www.ken3.org/backno/backno_vba28.html#135
で、
郵便番号別のテーブルを作成しました。

No.136 Access テーブル追加クエリーを使用してみた
http://www.ken3.org/backno/backno_vba28.html#136
で、
集計数が１０以下のデータを別テーブルへ追加する、
追加クエリーを作成しました。

今回は、作成したクエリーを連続で実行してみます。
※前回までは、作業者が手でクエリーをダブルクリックなどで実行してたけど、
　まとめて実行してみたいと思います。

/*
 * ２．マクロで機能を実現してみる
*/

ある決まった処理をまとめて行う。
そんな時便利なのがAccessにもあるマクロです。
（※マクロ=ＶＢＡと思いがちですが、ここでは、
　　Accessのマクロ機能で攻めてみます）

新規でマクロを作成し、
アクションでクエリを開くを選択します。


↑マクロのアクション選択画面

次に、アクションのパラメータを入れます。
開きたいクエリー名をセットします。


↑クエリー名称の入力

ここまでで、１つのクエリーを開けたので、
順番に、
クエリを開く  MAKE_DATA5
クエリを開く  MAKE_DATA3
クエリを開く  MAKE_DATA2
クエリを開く  DATA5から10以下のデータをDATA3へ追加
クエリを開く  DATA3から10以下のデータをDATA2へ追加
と、作成します。

開く順番を間違えなければＯＫでしょう。
実行すると、確認メッセージが表示されるが、なんとか動きました。

・テーブル作成クエリを実行すると新しくテーブルが作成されます
や
・XX件のデータを追加します

なんてメッセージ、表示をやめたいですよね。

そんな時は、マクロのアクションで、
メッセージの設定をいいえにすると、メッセージが出なくなります。


↑アクションにメッセージの表示を追加する

/*
 * ３．マクロをモジュールに変換して、コードを見てみる
*/

マクロが出来たので、今度は、そのマクロをVBAのモジュールに変換してみます。
※まぁ、変換しないでもいいんだけど、ネタ的に使いたかったので（笑）

変換したいマクロを選択して、
右ボタンを押して、ショートカットメニューを表示させます。
その中から、名前を付けて保存を選択します。
貼り付ける形式をモジュールにします。
~~~~~~~~~~~~~~~~~~~~~~~~~~

↑マクロを選択後、右ボタン・形式をモジュールにする

下記のような感じで、モジュールに変換できます。

Function マクロ1()
On Error GoTo マクロ1_Err

    DoCmd.SetWarnings False
    ' MAKE_DATA5
    DoCmd.OpenQuery "MAKE_DATA5", acViewNormal, acEdit
    ' MAKE_DATA3
    DoCmd.OpenQuery "MAKE_DATA3", acViewNormal, acEdit
    ' MAKE_DATA2
    DoCmd.OpenQuery "MAKE_DATA2", acViewNormal, acEdit
    ' DATA5から10以下のデータをDATA3へ追加
    DoCmd.OpenQuery "YUBIN_DATA5から10以下を追加", acViewNormal, acEdit
    ' DATA3から10以下のデータをDATA2へ追加
    DoCmd.OpenQuery "YUBIN_DATA3から10以下を追加", acViewNormal, acEdit

マクロ1_Exit:
    Exit Function

マクロ1_Err:
    MsgBox Error$
    Resume マクロ1_Exit

End Function

確認メッセージを消す、
メッセージの設定アクションが、
DoCmd.SetWarnings False
に変換されています。
その後、カーソルを合わせてF1を押し、.SetWarnings Falseを調べるといいですよ。

こんな感じで、マクロのアクションに対応したモジュールを探ることが出来ます。
ヘルプをいきなり見るよりも、慣れないうちはこんな方法もよいのでは？
※アクションがDoCmd.XXX系になるみたいですね。

/*
 * ４．終わりの挨拶
*/

今回は、
作成したクエリーを連続実行させるために、
マクロを作りました。
さらにおまけで、マクロからモジュールを作成して、
命令を探ってみました。

残るは、Excelへデータをセットですね。

う～ん、まだまだだなぁ・・・
何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・

Access クエリーを連続で実行させる

メルマガ発行内容