saving a record in a form automatically

[Chris]

I have a form created in a multi-user database that automatically returns the
next sequential entry number:

Text5 = Nz(DMax("[QAR No]", "qry_QARNo_Value"), 0) + 1

When the first user opens up the form and begins writing it automatically
gives them the next sequential QAR number for the record. However, when
another user opens the form and begins writing it gives them the same QAR
number as the first user so that there are duplicate numbers for different
records. I created a "save" button on the form that saves the record from
the first user. If the first user clicks this button it saves the record so
that when the next user opens the same form while the first user is still
working it gives them the next QAR number like it's supposed to. How do I
make this automatic using VB code to mistake proof this in case a user
forgets to press the save button?

 

[Arvin Meyer [MVP]]

Sub Form_Dirty()
If Me.Dirty = True Then Me.Dirty = False
End Sub