I‘m trying to get a function to update each row with in a recordset. So far I have this:
Dim myRST As Recordset
Set myRST = GetADORecordset("SELECT running_requirement FROM T6 WHERE identifier = '" & NewIssueAss & "' ")
MsgBox ("myRST.RecordCount - " & myRST.RecordCount)
Do While Not myRST.EOF
myRST.Fields("running_requirement") = myDLookUp("original_requirement", "T6", "identifier = '" & NewIssueAss & "' ")
The function GetADORecordset returns a recordset with 3 rows in it which is correct. However the update portion is not updating any of the records.
The locktype of the recordset is rst.LockType = adLockOptimistic if that makes any difference.
I’ve also tried myRST.UpdateBatch but it yields the same results.
Any pointers appreciated.