![見出し画像](https://assets.st-note.com/production/uploads/images/75436617/rectangle_large_type_2_d5f56894269235fcca3ec92872200909.png?width=1200)
Photo by
kiraku_san
Access フォームモジュール フォームコマンドボタンとクエリの連動
Accessはフォーム内に様々なオブジェクトを作成し、クエリやモジュールと連動することができます。
ここでは、フォームのコマンドボタンを押すとクエリが起動する設定を作成します。
まず、クエリを作成します。
例として、テーブル 商品分類情報 のフィールド import_dateがNullだった場合、本日の日付を入れる更新クエリを使用します。
![](https://assets.st-note.com/img/1648718728776-GX89P2FiNm.png?width=1200)
次に、作成 → フォームデザイン からコマンドボタンを作成していきます。
![](https://assets.st-note.com/img/1648717545853-bSgyrunCrZ.png?width=1200)
デザインからコマンドボタンを選択し、フォームデザインビューに配置する
![](https://assets.st-note.com/img/1648717834849-XiQQqKqXOS.png?width=1200)
この時、コマンドボタンウィーザードが開きますが、キャンセルして作成していきます。(これは作成方法の個人差なので、使用してもOKです)
![](https://assets.st-note.com/img/1648717680986-33Np81EZ0F.png?width=1200)
コマンドボタンを選択して、プロパティシート → イベント → クリック時 の「…」ボタンを押します。
![](https://assets.st-note.com/img/1648718238001-YPqqNwDiah.png?width=1200)
ビルダーの選択 が出たら、コードビルダーを選択し、OKを押します。
![](https://assets.st-note.com/img/1648718553567-9taWtRLsXf.png)
VBAが開き、コマンドボタンに連動するフォームモジュールが開くので、以下の構文を追加して保存ます。
DoCmd.OpenQuery "import_date"
![](https://assets.st-note.com/img/1648719131023-xjD6aGCqTx.png?width=1200)
この設定をすべて保存します。これで、フォームのコマンド0 ボタンを押したら、テーブル 商品分類情報 のフィールド import_dateがNullだった場合、本日の日付を入れるクエリが起動し、更新されるようになりました。
![](https://assets.st-note.com/img/1648719564253-AA6UoXtspI.png?width=1200)
![](https://assets.st-note.com/img/1648719704416-2xxrbNXdwY.png?width=1200)
この記事が気に入ったらサポートをしてみませんか?