AccessVBAでIDを1から最後まで順に取得する

AccessでExcelみたいに1行目から順にデータがなくなるまで繰り返し処理するようなプログラムをAccessで実現する方法

---

テーブル名

ID	フィールド1	フィールド2
1	a	z
2	b	y
3	c	x
4	d	w

---

vba

Sub Test()
    Dim i
    i = 1
    Do While DLookup("ID","テーブル名","ID=" & i) <> ""
       Debug.print DLookup("ID","テーブル名","ID=" & i)
       i = i + 1
    Loop
End Sub

実行結果

1
2
3
4

上の例だと、DLookupを使うことで「テーブル名」という名前のテーブルから「IDのフィールドの値がi」である「IDのフィールドの値を取得」することができる。
該当するIDがないときは「Null」を返すことを利用し、IDを1から順に最後まで繰り返し処理することが可能