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 = NothingVBA 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 = NothingCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
