[AccessD] Delete Record Problem

[Bill Benson]

It seems to me toy do not need a colon after on error goto IsIt2501.

Is that perhaps causing the error code to be ignored and the msgbox
announcing delete occurred to happen?

>From my non-flammable Note 3,
Bill Benson

On May 9, 2017 6:28 PM, "Rocky Smolin" <rockysmolin at bchacc.com> wrote:

Dear List:



I have a bound form.  With a delete button.  Behind the button is some
simple code.  The line which runs the delete is being executed; "Delete
Done" message is displayed.



But the record is not being deleted.  It's still there!



I've posted the delete module's code below.



I have another form that does Accounting Firm Courses instead of Society
Courses.  Same problem!



Any idea why this simple command is not working?  This is an mdb being
developed in A2010.



MTIA





Rocky Smolin

Beach Access Software

760-683-5777

 <http://www.bchacc.com> www.bchacc.com

 <http://www.e-z-mrp.com> www.e-z-mrp.com

Skype: rocky.smolin







If IsNull(Me.fldSocietyCourseOfferingID) Then Exit Sub



If gintAccessLevel < 3 Then

    MsgBox "Read Write Access Required", , vbExclamation

    Exit Sub

End If



On Error GoTo IsIt2501:



Dim inI As Integer



    intI = DCount("fldCourseOfferingID", "tblParticipantCourseOffering", _

        "fldCourseOfferingID = " & Me.fldSocietyCourseOfferingID)



    If intI <> 0 Then

        intReply = MsgBox("This Course Offering appears in " & intI _

            & " Particpant Course History record(s). " _

            & vbCrLf & vbCrLf & "Deleting this Course Offering will delete
it from those Participant histories. " _

                & vbCrLf & vbCrLf & "Do you still wish to delete this Course
Offering?", vbYesNo)

        If intReply = vbNo Then

            MsgBox "Course Offering Not Deleted.", vbExclamation

            Exit Sub

        End If

    End If



    intReply = MsgBox("OK to Delete this course?", vbYesNo)

    If intReply = vbNo Then

        MsgBox "Delete Canceled.", vbExclamation

        Exit Sub

    End If





    DoCmd.RunCommand acCmdDeleteRecord

    MsgBox "Delete Done.", vbExclamation

    Exit Sub



IsIt2501:

    If Err.Number = 2501 Then

        Exit Sub

    Else

        MsgBox "Error: " & Err.Number & " - " & Err.Description

    End If

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com