How to use a button for data entry

[Guest]

I have a form that I'm using for data entry. I've attached a button that
adds a new record. The problem is that it also updates records as they are
entered and the user tabs to the next entry.

Is there a way to only allow additions by using the "Add" button. The form
is setup for Data Entry and to Allow Additions. Thanks in advance.

 

[Brian Bastl]

Does your form have a recordsource, or is it unbound? What is the button's
code? Does it explicitly save the current record, or does it move you to a
new record?

Brian

 

[Guest]

Sorry for the late response... The form does have a record source. The
button's code is:

DoCmd.GoToRecord , , acNewRec

 

[Brian Bastl]

btee,

First, I'd set the form's cycle property to 'Current record'. The setting is
found on the 'Other' tab of the form's property sheet.

And then I'd suggest using the form's BeforeUpdate event procedure to check
whether the current record should be saved or discarded. This will fire if
you try to close the form or move to a new record, as long as the record has
changed (been dirtied).

Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("Do you want to save changes?", vbYesNo) = vbYes Then
Cancel = False
Else
Cancel = True
Me.Undo
End If

End Sub

HTH,
Brian

 

[Guest]

Thanks - that worked!

btee,

First, I'd set the form's cycle property to 'Current record'. The setting is
found on the 'Other' tab of the form's property sheet.

And then I'd suggest using the form's BeforeUpdate event procedure to check
whether the current record should be saved or discarded. This will fire if
you try to close the form or move to a new record, as long as the record has
changed (been dirtied).

Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("Do you want to save changes?", vbYesNo) = vbYes Then
Cancel = False
Else
Cancel = True
Me.Undo
End If

End Sub

HTH,
Brian

 

[Brian Bastl]

I get lucky once in a while!

Brian

Thanks - that worked!