フォーム＆コントロールプロパティ活用辞典-106 OrderBy/OrderByOn

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me!フォーム106_sub.Form
    Select Case Me!fraProperty
      Case 1
        '並び順を都道府県に設定
        .OrderBy = "都道府県"
      Case 2
        '並び順を人口の少ない順に設定
        .OrderBy = "人口"
      Case 3
        '並び順を面積の大きい順に設定
        .OrderBy = "面積 DESC"
    End Select

    '並べ替えを実行
    .OrderByOn = True

  End With

End Sub


#106		OrderBy/OrderByOn
"OrderBy/並べ替え"・"OrderByOn/並べ替え適用" プロパティ "OrderBy/並べ替え"プロパティは、フォームに対するレコードの並べ替え方法を文字列式で設定します。SQL文に準じた指定が可能で、複数のフィールドをカンマで区切って列挙したり、「DESC」を指定することで降順並べ替えを行ったりすることができます。一方、"OrderByOn/並べ替え適用"プロパティは、OrderByプロパティの並べ替えを実行するかどうかを設定します。これをTrueにすることで直ちにOrderByプロパティ値に基づく並べ替え処理が実行されます。またFalseにすると並べ替えが解除され、フォームのデフォルトの並び順に戻ります。 ※並べ替えを実行した状態でフォームを閉じると、その時点の並べ替え状態がフォームに保存され、次回その状態で開かれる場合があります。それを回避するには、フォームの読み込み時や閉じる時のイベントプロシージャでOrderByOnプロパティをFalseに設定します。フォーム Private Sub fraProperty_AfterUpdate() '[プロパティの設定]オプショングループの更新後処理 With Me!フォーム106_sub.Form Select Case Me!fraProperty Case 1 '並び順を都道府県に設定 .OrderBy = "都道府県" Case 2 '並び順を人口の少ない順に設定 .OrderBy = "人口" Case 3 '並び順を面積の大きい順に設定 .OrderBy = "面積 DESC" End Select '並べ替えを実行 .OrderByOn = True End With End Sub 「都道府県」順に並べ替えたとき「人口」順に並べ替えたとき「面積」の降順に並べ替えたとき
\| Index \| Prev \| Next \|