ACCESS FEED: [MS_AccessPros] Re: Help with new record before Update

Senin, 24 Desember 2012

[MS_AccessPros] Re: Help with new record before Update

Hi Rod,

You are using Form_BeforeInsert(Cancel As Integer),
instead of Form_BeforeUpdate(Cancel As Integer).

Note that if you want to cancel either Event, you need
to set Cancel = True before leaving the Sub.

Hope that helps.

Regards, Clive.

--- In MS_Access_Professionals@yahoogroups.com, "rodbevill" <desertscroller@...> wrote:
>
> Hi All,
> I must not quite understand the BeforeUpdate event. The process I am trying to perform is as follows: When the current record is changed, I want to display a message to verify the change. If the record is new, then display message to save new record. These messages are to be displayed when the current record is changed (moving from the change/new record to another record of form). The code I am trying to use is below. Currently when I select to add a new record using navigation controls the event fires when the first control has first character inputted, after that when moving to another record the event does not trigger. The record is created without displaying message. I was hoping to display prior to moving off the record.
>
> Rod
>
> Private Sub Form_BeforeInsert(Cancel As Integer)
> 'If the form data has changed a message is shown asking if
> 'the changes should be saved. If the answer is no then
> 'the changes are undone
>
> On Error GoTo BeforeUpdate_Error
>
> If Me.Dirty Then
> If Me.NewRecord Then
> Me.lngTPTID = GetTPTID()
> 'if new record has been added then Display a message
> ' to save the record
> If MsgBox("Do you want to save this new record?", _
> vbYesNo + vbQuestion, "Save Record") = vbNo Then
> Me.Undo
> End If
> Else
> 'if record has been changed the dirty property
> ' is set to true Display message to save the record
> If MsgBox("The record has changed - do you want to save t?", _
> vbYesNo + vbQuestion, "Save Changes") = vbNo Then
> Me.Undo
> End If
> End If
> End If
>
> BeforeUpdate_Exit:
> Exit Sub
>
> BeforeUpdate_Error:
> MsgBox Err.Description
> Resume BeforeUpdate_Exit
>
> End Sub
>