Update certain table records with VBA code based on query

[adams77]

The below code is doing exactly what is coded, however, I would like to only update the records that the query is pulling by dates. Is this possible to only update certain records in a table?

My Code:

Private Sub Report_Close()
On Error GoTo ErrorHandler
Dim sql As String
Dim rs As ADODB.Recordset

sql = "SELECT * FROM tblPending WHERE Sent is null"
Set rs = New ADODB.Recordset

rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

With rs
If Not .BOF And Not .EOF Then
.MoveLast
.MoveFirst
If .Supports(adUpdate) Then

Do Until .EOF


![DuesStart] = Now() & ![DuesStart]
.Update
.MoveNext
Loop

End If
End If

.Close
End With

ExitSub:
Set rs = Nothing
Exit Sub

ErrorHandler:
Resume ExitSub

End Sub

[June7]

Certainly. What would be the criteria to restrict records? Include that in the recordset filter criteria or a condition in the looping structure.

Instead of looping a recordset, can do:

CurrentDb.Execute "UPDATE tablename SET [DuesStart]=Now() & [DuesStart] WHERE Sent Is Null {AND other criteria as needed}"

[orange]

What exactly is this doing?

SET [DuesStart]=Now() & [DuesStart]