Very Computer

Greetings,

I am trying to use the findfirst method on a table type recordset.
The search field is a date/time field in an access 2.0 mdb

The following code does not find the record, ever.

TestRS.FindFirst "(TestID=#" & Format(pTestDate, "General Date") &
"#)"

I have tried a number of variations of #, ", ' and other punctuation
and formating the ptestdate as a number, no formated etc.

In access It will find the record if in the find dialog box it is
marked as search as formated.

How can I do this in vb?

Thanks,

Eric

Why don't you build the condition in a variable, and then issue
the FINDFIRST on the string.  This way you could put a
breakpoint on the FINDFIRST, and see how the statement looks.

Hope this helps,

JP

Quote:>The following code does not find the record, ever.
>TestRS.FindFirst "(TestID=#" & Format(pTestDate, "General Date") &
>"#)"
>I have tried a number of variations of #, ", ' and other punctuation
>and formating the ptestdate as a number, no formated etc.

Kurt Hjortdahl

Quote:>Why don't you build the condition in a variable, and then issue
>the FINDFIRST on the string.  This way you could put a
>breakpoint on the FINDFIRST, and see how the statement looks.

When I go to the debug window I get the date from the RS to look the
same as the Criteria.  ie Visually, it looks like it matches.  Here is
the updated code:
----
  Dim ReplaceWhere As String
  ReplaceWhere = "(TransID=#" & TransID & "#)"
  MsgBox ReplaceWhere
  FeedRS.FindFirst ReplaceWhere
----

In access It will find the record if in the find dialog box it is
marked as search as formated, if not checked search as formated, then
I cannot find the match.

I'm lost, as I have tried a number of different variations using the
format function and none have worked.

Can I do something with formating the criteria like this:
ReplaceWhere = "(Format(TransID, ""General Number"") =" &
Format(TransID,""General Number"") & ")"
I have tried but have syntax problems . .

Ideas?

How do others do this?  I'm sure I'm not first to try this . ..

Eric

FeedRS!TransID  General Date (eg 1/1/1995 12:05:00 AM)
TransID         Function Parameter passed as a date.  Also a General Date
FeedRS!TransID  is an access 2.0 field formated as a General Date
---
Public Function ReplaceRecipe(TransID As Date, InvControl As Boolean)
'Finds any occurance of the transaction and replaces
.....
Dim FeedRS as Recordset
Set FeedRS = DB.OpenRecordset("FeedLog")      'The feed log
.....
  Dim ReplaceWhere As String
  ReplaceWhere = "([TransID]=#" & TransID & "#)"
  MsgBox ReplaceWhere
  FeedRS.FindFirst ReplaceWhere
  If FeedRS.NoMatch then
        . . . .. .
  Else
     'Replace
      . .. . .
---

In access, when I open the table and search for a value that I have
copied from a record and pasted into the search box, when I press find
first it cannot find it.  If I check Search as Formated, then it is
found.  I assume that I am running into the same problem in VB.

I understand that Dates are stored as numbers and have tried createing
another field in the query and searching on that.  (I format the
TransID to TargetID: Format("TransID","General Number")  It still
doesn't match.

I always get NoMatch = True

When I go to access or open the forms I can see that there are records
that match.

???
Ideas?

Thanks

Eric