[覚書]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

テストフォーム
Access VABでクエリーを作成

スクリプトがこれ
Access VABでクエリーを作成

クエリが出来ました。
削除ボタンで消すことも出来ます。
Access VABでクエリーを作成


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

コメントを残す

メールアドレスが公開されることはありません。