アクセス２００７ VBA 並べ替え

質問

テーブル１のフィールド１にデータを入れ
それを元に帳票フォームを作成しました。

フォームヘッダー部分に
昇順ボタンと降順ボタンを作り、
ボタンを押すごとに並び替えを行いたいのですが
どのようなVBAコードを書けばいいのかわかりません。

命令分としては、
「フォームに表示されるテーブル１のフィールド１データの
昇順に並べ替える」です。

SQLを使う方法ではなく、
DocmdかacCmdを使う方法が希望です。

アクセスのヘルプの
-----------------------------------------
Access 開発者用リファレンス
Form."OrderBy/並べ替え" プロパティ
-----------------------------------------
を見ると、
-----------------------------------------
構文
式.OrderBy
式 Form オブジェクトを表す変数です。
-----------------------------------------
と書いてありますがこの式がわからないのでご教授よろしくお願いします。

回答No.1

m3_maki · ベストアンサー

> 式.OrderBy

例えば "フォーム1" というフォームの並べ替えを行うなら

　Forms!フォーム1.OrderBy = "フィールド1"

この場合 Form オブジェクトを表す変数 が 「Forms!フォーム1」 です。

状況によって、いろいろな記述ができます。

・並べ替えを行うのが、コードを書いているそのフォーム自信なら

　Me.OrderBy = "フィールド1"

・まさに変数を使うなら

　Dim frm As Form
　Set frm = Screen.ActiveForm とか Set frm = Me.サブフォーム.Form など。
　frm.OrderBy = "フィールド1"

※OrderBy は 複数のフィールドをカンマで区切って設定できます。
※通常、OrderByOn とセットで使用します。

お礼

【方法１】Forms!フォーム1.OrderBy = "フィールド1"
【方法２】Me.OrderBy = "フィールド1"

【方法３】
Dim frm As Form
Set frm = Screen.ActiveForm
frm.OrderBy = "フィールド1"

出来ました！
ちなみに降順に並べ替える場合はどうすればいいのでしょうか？
再度ご回答よろしくお願いします。

回答No.2

m3_maki

昇順は ASC、降順は DESC です。

レコードの並び替え - ORDER BY句 ： SQL入門講座
http://www.accessclub.jp/sql/10.html

こちらは Access VBA のヘルプと同じものです。
ORDER BY 句
http://office.microsoft.com/ja-jp/access-help/HP001032258.aspx

VBA をやるなら ヘルプを活用することを強くお勧めします。

お礼

ありがとうございました。