Error in using FIND method in ADO recordset

[Yanto]

I tried to use Find in ADO recordset (MSDE) as follows:

rst.Find "(([UserID]=" & pubUserID & ") And ([FormReportID]=" &
DLookup("[FormReportID]", "tblFormReports", "[FormReportName]='" & Me.name &
"'") & "))"

this code result an error like this:

"The application is using arguments that are of the wrong type, are out of
acceptable range, or are in conflict with one another"

If I remove the part folows the word "And", no error produced, it seems that
I can't use "And" in criteria.
Any comment please? anything wrong with that code?
TIA

Rgds

Yanto

 

[Michel Walsh]

Hi,

You can't have a complex clause with the ADO FIND method. Indeed, opening a
(large) recordset to spot one of its record is generally not the most
multi-user friendly design. Try to open just the part of the recordset you
need, at the beginning, or use a Filter (which accept multiple clause with
AND/OR conjunctions). If all that fail, open a recordset with the WHERE
clause already in place:

Dim uvw As ADO.Recordset
Set uvw=CurrentProject.Connection.Execute("SELECT ... WHERE UserID=" &
.... )


rather than using Find, and inspect that new recordset (rather than the old
one).


Hoping it may help,
Vanderghast, Access MVP

 

[Yanto]

Thanks a lot, Michael
Rgds

Yanto

Hi,

You can't have a complex clause with the ADO FIND method. Indeed, opening a
(large) recordset to spot one of its record is generally not the most
multi-user friendly design. Try to open just the part of the recordset you
need, at the beginning, or use a Filter (which accept multiple clause with
AND/OR conjunctions). If all that fail, open a recordset with the WHERE
clause already in place:

Dim uvw As ADO.Recordset
Set uvw=CurrentProject.Connection.Execute("SELECT ... WHERE UserID=" &
... )


rather than using Find, and inspect that new recordset (rather than the old
one).


Hoping it may help,
Vanderghast, Access MVP

I tried to use Find in ADO recordset (MSDE) as follows:

rst.Find "(([UserID]=" & pubUserID & ") And ([FormReportID]=" &
DLookup("[FormReportID]", "tblFormReports", "[FormReportName]='" &

Me.name

&
"'") & "))"

this code result an error like this:

"The application is using arguments that are of the wrong type, are out of
acceptable range, or are in conflict with one another"

If I remove the part folows the word "And", no error produced, it seems that
I can't use "And" in criteria.
Any comment please? anything wrong with that code?
TIA

Rgds

Yanto