VBA Loop through recordset

'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: stackoverflow.com

Similar codes

0 vote241 views1 answer
Telephon call in vba
VBA
2 votes248 views1 answer
Vba file from path
VBA
1 vote233 views1 answer
Excel date to unix timestamp
VBA
0 vote228 views1 answer
Excel vba center userform
VBA
1 vote227 views1 answer
Vba reverse string
VBA
0 vote241 views1 answer
Vba option button selected
VBA
0 vote235 views1 answer
Vba type variable
VBA
0 vote234 views1 answer
Vba static variable
VBA
3 votes258 views1 answer
Vba request json
VBA
0 vote255 views1 answer
Excel vba combine ranges
VBA