That worked perfectly, thank you very much for your time and help, much appreciated.

(renamed the button as well )

PS: To get rid of the warning: (if you've got time)

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE work SET work.Pay = " & Me.Pay2 & " WHERE ID = " & Me.ID2 & ";"
DoCmd.SetWarnings True

But it didn't work, its still warning





EDIT: Nevermind, got it working thanks.