[AccessD] Delete Record Problem

Stuart McLachlan stuart at lexacorp.com.pg
Tue May 9 22:51:27 CDT 2017


or CurrentDb.Execute "Delete * from myTable...."

That avoids the need for "SetWarnings...." switching

On 9 May 2017 at 17:17, Doug Steele wrote:

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




More information about the AccessD mailing list