[AccessD] Delete Record Problem

Steve Schapel steve at datamanagementsolutions.biz
Wed May 10 16:29:19 CDT 2017 

Hi Rocky

Ok, fair enough.

Here's another random thought... Check the Allow Deletions property of the 
form?

Regards
Steve


-----Original Message----- 
From: Rocky Smolin
Sent: Thursday, May 11, 2017 1:34 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Delete Record Problem

Steve:

It's a query " qrySocietyCourseOfferings".  Whe I run it a la carte I can
add, modify, and delete records.  So it is updateable.  Here's the SQL view:

SELECT tblShippingData_Society.fldSDSocOrgType,
tblSocietyCourseOfferings.fldSocietyCourseOfferingCourseNumber,
tblSocietyCourseOfferings.fldSocietyCourseOfferingID,
tblCourses.fldCourseName, tblSociety.fldSocietyName,
tblSocietyCourseOfferings.fldSocietyCourseOfferingPDFMaterialsOnly,
tblSocietyCourseOfferings.fldSocietyCourseOfferingJustMaterialsNoPDF,
tblDiscussionLeader.fldDLFirstName, tblDiscussionLeader.fldDLLastName,
tblSocietyCourseOfferings.fldSocietyCourseOfferingDate,
tblSocietyCourseOfferings.fldSocietyCourseOfferingName,
tblSocietyCourseOfferings.fldCourseID,
tblSocietyCourseOfferings.fldSocietyID,
tblSocietyCourseOfferings.fldDiscussionLeaderID,
tblSocietyCourseOfferings.fldSocietyCourseOfferingStateID,
tblSocietyCourseOfferings.fldSocietyCourseOfferingAHIMaterialsFee,
tblSocietyCourseOfferings.fldSocietyCourseOfferingRetailCourseFee,
tblSocietyCourseOfferings.fldSocietyCourseOfferingDays,
tblSocietyCourseOfferings.fldSocietyCourseOfferingCity,
tblSocietyCourseOfferings.fldSocietyCourseOfferingDiscussionLeader,
tblSocietyCourseOfferings.fldSocietyCourseOfferingMinimumParticipants,
tblSocietyCourseOfferings.fldSocietyCourseOfferingMaximumParticipants,
tblSocietyCourseOfferings.fldSocietyCourseOfferingTotalParticipants,
tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredParticipants,
tblSocietyCourseOfferings.fldSocietyCourseOfferingRegisteredAsOf,
tblSocietyCourseOfferings.fldSocietyCourseOfferingComments,
tblSocietyCourseOfferings.fldSocietyCourseOfferingStatus,
tblSocietyCourseOfferings.fldSocietyCourseCancelledDate,
tblSocietyCourseOfferings.fldSocietyCourseOfferingYear,
tblSocietyCourseOfferings.fldSocietyCourseOfferingStrengthOfCourses,
tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterSent,
tblSocietyCourseOfferings.fldSocietyCourseOfferingParticipantLetterStatus,
tblSocietyCourseOfferings.fldSocietyCourseOfferingCPEDirectorLetterSent,
tblSocietyCourseOfferings.fldSocietyCourseOfferingOKToMarket,
tblSocietyCourseOfferings.fldSocietyCourseOfferingStartMarketing,
tblSocietyCourseOfferings.fldSocietyCourseOfferingEndMarketing,
tblSocietyCourseOfferings.fldSocietyCourseOfferingSameCourseLastYearID,
tblSocietyCourseOfferings.fldSocietyCourseOfferingPriorCourseLastYearID,
tblDiscussionLeader.fldDLBasicRating,
tblDiscussionLeader.fldDLSemiSeniorRating,
tblDiscussionLeader.fldDLBeginningInChargeRating,
tblDiscussionLeader.fldDLSupervisoryRating,
tblDiscussionLeader.fldDLSupervisoryRating,
tblDiscussionLeader.fldDiscussionLeaderID,
tblSocietyCourseOfferings.fldSocietyCourseOfferingPreCourseMaterialsSent,
tblShippingData_Society.*, *
FROM (((tblSocietyCourseOfferings LEFT JOIN tblCourses ON
tblSocietyCourseOfferings.fldCourseID = tblCourses.fldCourseID) INNER JOIN
tblSociety ON tblSocietyCourseOfferings.fldSocietyID =
tblSociety.fldSocietyID) LEFT JOIN tblDiscussionLeader ON
tblSocietyCourseOfferings.fldDiscussionLeaderID =
tblDiscussionLeader.fldDiscussionLeaderID) LEFT JOIN tblShippingData_Society
ON tblSocietyCourseOfferings.fldSocietyCourseOfferingID =
tblShippingData_Society.fldCourseOfferingID
ORDER BY tblSociety.fldSocietyName,
tblSocietyCourseOfferings.fldSocietyCourseOfferingDate,
tblSocietyCourseOfferings.fldSocietyCourseOfferingName;



-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Steve Schapel
Sent: Tuesday, May 09, 2017 11:20 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Delete Record Problem

Hi Rocky

I'd be interested to know what is the Record Source of the form.

Regards
Steve

-----Original Message-----
From: Rocky Smolin
Sent: Wednesday, May 10, 2017 5:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Delete Record Problem

Yeah I tried that one after I failed with RunSQL.  They should all work
(I've used all three for 20 years) but there's something fishy about this
app and I guess I don't have the patience to get to the bottom of it. Maybe
it's time to hang up the mouse.

R


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
Sent: Tuesday, May 09, 2017 8:51 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Delete Record Problem

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
>


--
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

-- 
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