AccessのVBAでSQLのORDER BY DESCを使い、降順で並べ替えてレコードを抽出する｜フォーム実行例

降順に並べ替えるには、「 ORDER BY 並べ替えフィールド名 DESC 」 のように「DESC」を付けます。
DESCを付けないと昇順になります。

例：　SQL = "SELECT 製品No FROM 製品マスター ORDER BY 重量 DESC "
この場合、重量を降順で製品Noを取り出します。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT 選手ID,打数 FROM 野球データベース ORDER BY 打数 DESC"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![選手ID] & "： " & rs![打数] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード