アクセスのVBAについて

質問

アクセスのVBAでテーブルからウィザードでフォームを作成したのですが、その表示内容を昇順でソートしたいのですがどうすればよいのでしょうか？勝手に主キーでソートされてしまいます。違う値でソートしたいのですが・・・一応フォームLoadのイベントでSQLでテーブル内容をソートして値を代入していったのですがうまくいきません。
よろしくお願いいたします。

回答No.1

ARC · ベストアンサー

フォームのLoadイベントにSQLを書くのであれば、、

Sub Form_Load()
　　dim strSQL as String
　　strSQL = "SELECT * FROM Table1 ORDER BY Field1;"
　　Me.RecordSource = strSQL

　　'フォームの並べ替えプロパティを削除
　　Me.Orderby =""
　　Me.OrderbyOn = False

　　'フォームのフィルタプロパティを削除
　　Me.Filter = False

　　'フォームの再描画
　　Me.Refresh
End Sub

こんな感じでしょうかねぇ。
#Accessを起動させずに書いてるので、あくまでも「感じ」ってことで(^^;。
何かありましたら、補足にお書きくださいませ。

お礼

お返事が遅くなりましたが、できました！！！！
有難うございました。

回答No.4

Kalen_F

フォームのプロパティ→レコードソースでSQLを作ります。
そのSQLで、昇順にしたいフィールドを、並べ替えしてやると、一番分かりやすく手っ取り早いです！

回答No.3

O_cyan

Accessのウィザードで作成したフォームを使用するとSQLよりAccess自体のフォームの設定を優先するため主キーでソートされてしまうのでそのフォームのプロパティのデータのレコードソースでクエリーを作製してそのクエリーでソートしたい順に指定すれのが一番簡単です。もしくはSQLでフォームのソートを無効にする記述をいれるかだと思います。Accessのフォームをインターフェースとして使うならクエリーを作成した方が良いと思います。

回答No.2

dpagr506

一番簡単な方法はクエリーを作成して、フォームのデータソースに設定することです。
クエリーならソート順は自由に設定できますので自由度は高くなります。

SQLを投げて表示しているということは更新はしないと思いますが、もし更新する必要がある場合にグループ化などしていると更新時にエラーになりますので注意してください。