increment vale in entire column of a table with click of a button 2

[oneeyedwilly]

I want to be able to increment all the values in the entire column in a table, on the click of a button, any ideas?

 

[beetee]

1) create a button
2) create an update query that updates the field to itself + 1 (e.g. Field: FieldName, UpdateTo:[FieldName] + 1
3) add an OnClick event procedure to the button
4) add Docmd.OpenQuery "QueryName" to the event procedure for the button

 

[AskMan]

Private Sub Button_Click()

Currentdb.Execute "UPDATE MyTable SET MyField = MyField + Increment"

End Sub

 

[oneeyedwilly]

AskMan,
your method did the job.

nice one!