[AccessD] Delete Record Problem

[John Colby]

They are taking after Google.  Never delete anything, just archive it 
and use it for mining personal info to sell Ads.

;)

On 5/9/2017 6:26 PM, Rocky Smolin 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
>

-- 
John W. Colby