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

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

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

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

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

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

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
[/vb] テストフォーム


スクリプトがこれ


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

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