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.2

NotFound404 · ベストアンサー

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

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

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

お礼

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

回答No.1

JUN8731

はじめまして。

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