小口現金１と言うmdbファイルがあり、フィールド名に
日付、名前、使途他がある例です。例えば「名前」だけならMsgBoxのところで、他を消してください。少数例でテスト済み。
Sub test01()
Dim db As DAO.Database
Dim rs As DAO.Recordset
'-------
Set db = CurrentDb()
Set rs = db.OpenRecordset("小口現金１", dbOpenDynaset)
Do Until rs.EOF
MsgBox rs!日付 & " " & rs!名前 & " " & rs!使途
rs.MoveNext
Loop
'----
rs.Close
End Sub
投稿日時 - 2002-08-09 10:24:36
お礼
ありがとうございました。大変助かりました。VBAの基本が出来ていないもので・・・（汗）
投稿日時 - 2002-08-09 23:09:04
0人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
こんにちは。maruru01です。
ADOでのやりかたを。
Dim cn As ADODB.Connection 'Connectionオブジェクト
Dim rs As ADODB.RecordSet 'レコードセット
Set cn = CurrentProject.Connection
Set rs = New ADODB.RecordSet
'rs.CursorLocation = adUseClient
rs.Open "テーブル名", cn, adOpenKeyset, adLockReadOnly
'rs.Sort = "並べ替えるフィールド名 ASC"
With rs
Do Until .EOF
MsgBox !フィールド名
.MoveNext
Loop
End With
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
もしあるフィールドで並べ替えて表示させたいなら、コメント化してある2行のコメント化を解除して下さい。
ちなみに"ASC"は昇順で、降順に並べ替えるなら"DESC"にして下さい。
投稿日時 - 2002-08-09 10:25:40
お礼
ありがとうございました。フィルードの並べ替えまでご親切にありがとうございました。
投稿日時 - 2002-08-09 23:10:12
