Access VBA：　Betweenを使い日付の指定範囲を抽出するクエリを作成

指定範囲でレコードを抽出するには、Between～AND を使いますが、日付の場合は日付を#ではさみ指定します。

構文：
抽出するフィールド名 Between #範囲指定の日付1# and #範囲指定の日付2#

実行前の製品マスター


■ Access実行フォーム


作成された「Q_Betweenで日付抽出」クエリ


作成されたAccessクエリの実行

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "SELECT 製品名,製品コード,登録日 FROM M_製品マスター_2008年度 WHERE 登録日 BETWEEN #2006/01/01# and #2007/12/31# ORDER BY 登録日"
    Set Qdf = CurrentDb.CreateQueryDef("Q_Betweenで日付抽出", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_Betweenで日付抽出"
End Sub