DBの読み込み順について

VBAでACCESSのテーブルを順番に読んでいきたいのですが、
読み込みの順番が、実際に入っているデータと異なっていてばらばらです。
先頭から順番に読んでいきたいのですが、どうしたらよいのでしょうか。

Public Function DateCheck()

On Error GoTo ErrExit

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()

With Application.CurrentDb
Set rs = .OpenRecordset("テーブル名", dbOpenSnapshot)
rs.MoveFirst
Debug.Print rs!STAFFCD
Do Until rs.EOF
Debug.Print rs!STAFFCD
rs.MoveNext
Loop
rs.Close
db.Close

End With

Exit Function

ErrExit:

No.1 回答者： JUN8731 回答日時： 2014/01/29 11:40

はじめまして。

OpenRecordset("テーブル名",dbOpenForwardOnly)
としたらどうなりますか？

No.2 ベストアンサー 回答者： NotFound404 回答日時： 2014/01/29 12:14

ここと

[ACC2003] MDB のレコードの並び順について
http://support.microsoft.com/kb/834927/ja

ここを読んで
テーブルデータの並び順
http://www.naboki.net/access/achell/achell-03.html

見た目の順番で・・などというのは通用しないので
ORDER BY 句で指定出来るようにテーブルのデザイン変更が必要かもですね。

この回答へのお礼

参考になりました。ありがとうございます。

お礼日時：2014/03/11 09:20