ACCESS FEED: Re: [MS_AccessPros] Error 2115, in Form

Rabu, 21 Agustus 2013

Re: [MS_AccessPros] Error 2115, in Form_BeforeUpdate procedure

John,

I was reading Phucon and your messages on this error. As Phucon said thank you for explaining the BeforeUpdate process flow. My question is where would you put the process check at?

Thank you,

Ralph Celento, GS-12, DAFC
Program Analyst, US Air Force
210-565-2095 (work)
RalphCelento@gmail.com
Ralph.Celento.1@us.af.mil

--- In MS_Access_Professionals@yahoogroups.com, "saigonf7q5" <saigonf7q5@...> wrote:
>
> That works great. Thank you very much Mr.Viescas, and thank you for the explanation about how the BeforUpdate works. I now understand why it caused the error.
>
> My name is Phucon. Thanks again.
>
>
> --- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@> wrote:
> >
> > Saigon- (name?)
> >
> > You cannot force a save in the BeforeUpdate event because Access is still
> > waiting for you to decide whether to cancel the update or not. If it
> > allowed you to save, you would get in an infinite loop because BeforeUpdate
> > would try to fire again. Just let the code exit if the user replies Yes -
> > Access will immediately save the record. When the user replies No, you
> > should also do Cancel = True to halt the save.
> >
> > John Viescas, Author
> > Microsoft Access 2010 Inside Out
> > Microsoft Access 2007 Inside Out
> > Microsoft Access 2003 Inside Out
> > Building Microsoft Access Applications
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Paris, France)
> >
> >
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of saigonf7q5
> > Sent: Monday, August 19, 2013 10:52 PM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] Error 2115, in Form_BeforeUpdate procedure
> >
> > I have the procedure as shown here below. When the response is Yes, it
> > generated the Error 2115(The macro or function set to the BeforUpdate or
> > ValidationRule property for this field is preventing Microsoft Access from
> > saving the data in the field.)
> >
> > Even though the error says ".preventing Access from saving." the changes
> > were still saved, however. I have also tried the "DoCmd.RunCommand
> > acCmdSaveRecord", it still produced the same error message. What or where
> > trigger the error??
> >
> > Thanks
> > Phucon
> >
> > Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo ErrorHandler
> > If Me.Dirty = True Then
> > If MsgBox("You have made changes to the data. Save changes?",
> > vbYesNo, "Information") = vbYes Then
> > Me.Dirty = False 'force the record to be saved explicitly.
> > 'DoCmd.RunCommand acCmdSaveRecord
> > Else
> > Me.Undo
> > End If
> > End If
> > ExitProcedure:
> > Exit Sub
> >
> > ErrorHandler:
> >
> > MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
> > Form_BeforeUpdate"
> > Resume ExitProcedure
> > End Sub
> >
> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
>