Access VBA：Order Byを使いソートするクエリを作成

Order Byを使うと指定したフィールドでレコードをソートできます。

構文：
昇順ソート： Order By フィールド名
降順ソート： Order By フィールド名 DESC

実行前の製品マスター


■ Access実行フォーム


製品名を昇順でソートしたクエリ


製品名を降順でソートした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年度 ORDER BY 製品名"
    Set Qdf = CurrentDb.CreateQueryDef("Q_製品名昇順ソート", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_製品名昇順ソート"

End Sub

Private Sub コマンド1_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "SELECT 製品名,製品コード,売上 FROM M_製品マスター_2008年度 ORDER BY 製品名 DESC"
    Set Qdf = CurrentDb.CreateQueryDef("Q_製品名降順ソート", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_製品名降順ソート"

End Sub