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

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


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



BackHome BackTipsへ Backメニューへ

実行前の製品マスター
製品マスター

■ 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




BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft