ray88’s diary

お仕事で困ったとき用の自分用の覚書

Access VBA OrderByプロパティ/OrderByOnプロパティ

OrderByプロパティはフォームまたはレポートのレコードの並び順を取得・設定する。
 OrdeByOnプロパティはOrderByプロパティで設定した並び順を適用するかどうかを取得・設定します。

【書式】

オブジェクト.OrderBy = "フィールド名"
オブジェクト.OrderBy = "フィールド名 DESC"
オブジェクト.OrderBy = "フィールド1,フィールド2, ....."
オブジェクト.OrderOn = "True または False"

(使用例)

Private Sub btn4_Click() '[並べ替え]ボタン
    Me.OrderBy = "年齢, 社員番号 DESC"
    Me.OrderByOn = True
    MsgBox "年齢は昇順、社員番号は降順に並べ替えています"
    Me.OrderBy = "年齢, 社員番号"
    Me.OrderByOn = True
    MsgBox "年齢は昇順、社員番号は昇順に並べ替えています"
    Me.OrderByOn = False
    MsgBox "並べ替えを解除しました"
End Sub