Accessでの開発ならネーブルス

Dim qdf As QueryDef ←QueryDefの宣言

strsql = "Select xxxxxxx"

Set qdf = CurrentDb.CreateQueryDef("Q_XXXXXXX", strsql)　　　←ここでQueryが作成される
～　ここにQueryを使用した処理を入れる　～
CurrentDb.QueryDefs.Delete "Q_XXXXXX"　　←Queryの削除

Set qdf = Nothing

※↑でQuery　がうまく削除されずに残ったままになっている場合はエラーになるので、OnErrorの処理で以下を入れておく。

ERR_EXT:
If Err.Number = 3012 Then
CurrentDb.QueryDefs.Delete “Q_XXXXXX”
Resume
Else
MsgBox Err.Description
End If

●現役システムエンジニアが教える　
システムを自作したい人のためのMicrosoft Access講座

Accessを覚えておけば、会社の業務だけに限らず様々なところに活用する事が出来る様になりますよ。Excelよりも、もっと便利なツールAccessを是非、この機会に覚えておきましょう。

現役のAccess開発者が、あなたのシステム開発のお手伝いを致します。
既に開発途中のものでも、ご相談ください。

これからAccessでのシステム開発にチャレンジしたい初心者の方も歓迎します。

（対面、オンライン対応）

⇒　ネーブルス Access講座