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

Between ～ AND を使うと指定した範囲のレコードを抽出できます。

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

実行前の製品マスター


■ Access実行フォーム


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


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

■ Access VBA 実行コード
売上が500円～2000円のレコードを抽出するクエリを作成します。
Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "SELECT 製品名,製品コード,売上 FROM M_製品マスター_2008年度 WHERE 売上 BETWEEN 500 and 2000"
    Set Qdf = CurrentDb.CreateQueryDef("Q_Betweenで抽出", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_Betweenで抽出"
End Sub