[AccessD] Delete Record Problem

[Rocky Smolin]

No.  All records.  And it was the same for two other forms - similar -
courses for Firms and Associations.  So I used the same technique for them
as well.

R


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Wednesday, May 10, 2017 9:33 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Delete Record Problem

Is this the same for all records, or only particular records? Is it possible
that the ones not being deleted is one that has not truly been saved yet,
but that which when you leave it in form view it does become saved, and then
can be deleted if tried again?

On Tue, May 9, 2017 at 6:26 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