Help with Append Query (1 Viewer)

[gear]

I have ‘S_NUM’ field in my Table1. This field assigns sequential numbers to records. Sometimes it needs to be changed to start from a different number. I created a new table (tblAppend) with one field (S_NUM). Then I made an Append Query. I inserted a new number in ‘tblAppend’ and run the ‘qryAppend’ from Query Objects Window, it appends the number I want to Table1(S_NUM).

In order to be helpful to users who don’t know much about Access, I made a form for ‘tblAppend’ with a command button to run the Append query, so that the user only has to type the new starting number and click the button.

This is not working. After typing the new start number in the form and clicking Run Append button is not inserting the new number in Table1. If I close the form, open again and click the button, it inserts the number which means the user has to open the form and click the button twice to get a new starting number.

Have I made a mistake somewhere? Please help. Sample DB attached.

 

[MStef]

Try this:
In your code before Run query put this:

Docmd.RunCommand acCmdSaveRecord
I think it must be OK.

 

[gear]

Your code works. Thank you very much.