[覚書]vbaでクエリーを作成・削除する方法

納期の迫ったデータベース開発を急に担当することに・・・・（本当は過ぎてるかも）

年末商戦・お歳暮商戦で忙しい上でのAccess VBA開発、んんん～キツイな！

取り急ぎ、複合検索結果をRecordset化したい。
パラメータークエリーだと不安定なので検索の度に、パラメーター直書きクエリーを動的に作りたい！

「vba クエリー 作成方法」をGoogle検索

vbaでクエリー作るのって以外と簡単なのね！

Option Compare Database

Private Sub btnクエリー削除_Click()

Dim myQuery As String
Dim Obj As AccessObject
 
myQuery = "Qクエリ生成テスト"
 
For Each Obj In CurrentData.AllQueries
  If Obj.Name = myQuery Then
    DoCmd.DeleteObject acQuery, myQuery
    Exit Sub
  End If
Next

End Sub

Private Sub btnクエリ作成_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "SELECT 商品CD,商品名,JAN1 FROM システムM商品"
    Set Qdf = CurrentDb.CreateQueryDef("Qクエリ生成テスト", SQL)
    Set Qdf = Nothing
End Sub

テストフォーム


スクリプトがこれ


クエリが出来ました。
削除ボタンで消すことも出来ます。

関係ないですが、PowerPointみたいな派手なグラデーションボタンが嫌い！
以前の地味なグレーボタンってどう作るの？
データベースの操作画面は地味がいいと思う。