[AccessD] Error #: 3709 "The search key was not found in any record"

[Robert]

Thanks, I have added some checks there.

WBR
Robert

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bill Benson
Sent: Wednesday, July 15, 2015 7:05 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Error #: 3709 "The search key was not found in any
record"

I've never seen it be a gotcha.

But i did note you don't test if rstevents! Startdatetime before usingbit in
a comparison.

The only thung i see that relates to a search item bot being found is

rstEvents.FindFirst

Are you sure something is not null there?
All this time I didn't know about the MoveFirst "gotcha", and I don't think
I've ever run into that, but I will make the necessary changes. I did know
about the moving through the record set (MoveLast then MoveFirst) before
retrieving RecoundCount for an accurate Record Count.

All that said, do you think the omission would cause a 3709 error, and not
just a No Record error?


WBR
Robert


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Tuesday, July 14, 2015 2:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Error #: 3709 "The search key was not found in any
record"

I don't see MoveFirst in there anywhere, just a MoveLast.  EOF and BOF can
potentially be true when you don't start on the first record, and Record
Count in a DAO recordset  can return -1 if you don't movelast then movefirst
before calling it.

Charlotte Foust
(916) 206-4336

On Mon, Jul 13, 2015 at 5:22 PM, Robert <robert at servicexp.com> wrote:

> Ok so I'm at my wits-end here; for some reason I have a customer that 
> is intermittently getting the above error.
>
> 1) There is no corrupted records, I can add and or delete records, I 
> can delete all records, etc.
> 2) There are no primary keys on memo fields.
> 3) I can compact and repair both back end db's with no problem
> 4) I have run both db's through JetCOMP.
>
> I simply cannot find any problems with the data or structure of these 
> databases.
>
> MS Access 2007 .mde front end
> Ms Access 2002 .mdb back end (both) One is secured and the other is not.
>
> Here is the code (I know it's not very efficient but...:-) ) that is 
> generating the error maybe 2 to 3 times a day. (this function is 
> called every 5-10 minutes during a 10 hour day)
>
>
>
>
> **********************************************************************
> *************************
>
>
> '---------------------------------------------------------------------
> ------------------
> '. Procedure : SyncroniseEventTbl
> '. DateTime  : 11/15/2006 19:57
> '. Author    : Robert
> '. Revision  :
> '  Purpose   : Synchronize The ServiceCall Table and The Event Table (2
> different db's)
>
> '---------------------------------------------------------------------
> ------------------
> '
> Public Function SyncroniseEventTbl() As Boolean
>       Dim db                  As DAO.Database
>       Dim rstSCTbl            As DAO.Recordset
>       Dim rstEvents           As DAO.Recordset
>       Dim lRN                 As Long
>       Dim dOldDate            As Date
>       Dim dNewDate            As Date
>
>       Dim dSchTimeStart       As Date
>       Dim dSchTimeEnd         As Date
>
>       'Let do a quick orphan kill run before we start
> 10       On Error GoTo HandleErr
> 20     DeleteScheduleEventOrphan
>
> 30    Set db = CurrentDb
> 40    Set rstSCTbl = db.OpenRecordset("qryselShedulerViewCal",
> dbOpenForwardOnly)
> 50    Set rstZones = db.OpenRecordset("qrySelZones", dbOpenDynaset)
> 60    Set rstEvents = db.OpenRecordset("Event", dbOpenDynaset)
>       ''Debug.Print "Syncing Tbls"
> 70    PMIncrement 1, "Opening and Retrieving Schedule data ..."
> 80    With rstSCTbl
> 90     If .RecordCount > 0 Then
> 100       DoEvents
> 110      Do Until .EOF
> 120      PMIncrement 1, "Opening and Retrieving Schedule data ..."
> 130       CalendarLocked = False
> 140        rstEvents.FindFirst "RepairNumber= " & CLng(!RepairNumber)
>
> 150         If rstEvents.NoMatch = True Then 'Lets add the event to the
> table
> 160           If IsNull(!DateScheduled) = True Then 'We don't want to add
> any none scheduled items
>     GoTo MoveHere:
> 170           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