Copy Record button on form

[banpreet]

I made a post about revision control but after doing some more research, I feel like this will be an easier way to explain it. I would like to make a copy record button on a form. So just a little background, the user fills out the form, its go through an approval process, gets approved, but then some changes might need to be made to the form. So the user goes back to the form, instead of editing the information because it already has been approved, he goes to the form clicks on the button which will take him to another form which is the same form with all the information copied and another record stored in the table. Then the user just changes what he needs to and there will be a revision field which the user will then fill to 2, when on the first form it was 1. So now when look at the form, people can see two of the records linked to same master id but with some different changes. Hope this makes sense!

[ranman256]

instead of copying the record, why can you just make an approval field, and a 2nd field (for what ever), etc.?
normally you dont want copies of records.

but if you want copies, just run an append query from the ID on the current record.

[banpreet]

well once they make the copy then they switch the revision field and changes, in our company we need to keep track of changes, will append query do this? Not familiar with that function as I am not good with queries on access.

Thanks!

[Bulzie]

I already answered on your other duplicate post "Revision Control for Forms".

Put button on form called Change Record or something. In the OnClick code, copy the current data fields to temp variables, initiate a new record, paste the values back into the fields of the new record, then Setfocus to the first field for them to make any changes.

Dim vField1, vField2, vField3 As Variant
Dim vRecNbr as Number

vField1 = Me.Field1
vField2 = Me.Fields
vRecNbr = me.RecNbr

DoCmd.GoToRecord , , acNewRec

Me.Field1 = vField1
Me.Field2 = vField2
Me.RecNbr = vRecNbr + 1

Me.Field1.SetFocus

You probably want to sort the data on this form on RecNbr Descending to your most current record is first.

[ranman256]

queries are the basis of access.
make a copy and append the copy your table via append query.