領収書を日付順に並べ替えられるようにします。
この方法は、別に領収書だけでなくあらゆるフォームに活用できます。
最初に領収書一覧フォームにコマンドを二つ、図のように配置します。
日付の新しい順のコードです。
Private Sub コマンド10_Click()
Forms!領収書一覧.OrderBy = “日付 desc”
Forms!領収書一覧.OrderByOn = True
End Sub
日付の古い順のコードです。
Private Sub コマンド12_Click()
Forms!領収書一覧.OrderBy = “日付”
Forms!領収書一覧.OrderByOn = True
End Sub
Forms!領収書一覧.OrderBy = “日付”の日付を変更すれば違う方法で並べ替えができます。
Forms!領収書一覧.OrderBy = “金額”にすると、金額の小さい順に並べ替えられます。
実行結果です。
昨日も親戚からまだガラケー？と言われてしまいましたが、
私は一生ガラケーです。
本日も最後までお読み頂きありがとうございます。
