This code is for a button at the footer of a continuous form.
When user click the button, it suppose to change the Status, LocationNumber, Active and ActionDate of all the records in the continuous form.
I tested the recordset using codes below without any issue.
msgbox gives me the correct information.
It's when I tired to change the fields it starts giving me errors
Code:
For i = 0 To 3
With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
.Edit
Select Case i
Case 0
test=.Fields("Status").Value
MsgBox test
Case 1
test2=.Fields("LocationNumber").Value
MsgBox test2
Case 2
test3=.Fields("Active").Value
MsgBox test3
Case 3
test4=.Fields("ActionDate").Value
MsgBox test4
End Select
.Update
.MoveNext
Loop
End With
Next i