Question : VBA Loop through recordset
Answered by : philipp-erber
'The short version
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")
If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF = True rs.MoveNext Loop
End If
rs.Close
Set rs = Nothing
Source : https://stackoverflow.com/questions/5864160/code-to-loop-through-all-records-in-ms-access/35670859 | Last Update : Tue, 09 Mar 21