[AccessD] Delete Record Problem

[Doug Steele]

Hi Rocky:

Can you delete a record manually from the recordset bound to the form?
I've had problems in the past where the recordset won't allow deletions.

I know I've had a similar problem to you in the past - I think that I got
around it by using something like DoCmd.RunSQL "Delete * from myTable where
unique key = whatever"

Doug

On Tue, May 9, 2017 at 3:35 PM, Bill Benson <bensonforums at gmail.com> wrote:

> 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
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>