VBAでクエリの書換えと条件に代数を使用する

Q_テスト クエリーをInputBoxで入力した条件(月次YYYYMM)で開きます

Dim strData As String
Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs("Q_テスト")
strData = InputBox("月次", "InputBoxの例", "YYYYMM")
qdf.SQL = "SELECT * FROM T_テーブル名 where テーブル名.月次フィールド like'" & strData & "'"
DoCmd.OpenQuery qdf.Name 'クエリを開きます。

目次へ