Access Access VBA For Each Next for a Recordset

[Kate A]

Hello,

I am fairly new to VBA programming and am trying to write code that will allow be to click a command button on a form and change a value for all records in the set to a value of Yes or 0

I have read some coding books but can't seem to get the result I want and the examples are not very "real world"

Any help would be greatly appreciated.


Kate

 

[Ronald Paul]

Hopefully this is a start.

Create a button on the form and in the On-Click events put the following code:

Dim rst As Recordset
Set rst = Me.Recordset 'set the form recordset to the temporary record set

Do While Not rst.EOF
rst.Edit
'field_name is the name of the field you want to update
rst![field_name] = "UPDATED VERSION2"
rst.Update
rst.MoveNext
Loop
Me.Form.Refresh

This will update all the records on the form and then refresh the form to show the updates.