I need to make a function that checks if a query returns any results. I been struggling with this for a while now, here is what I got but I get an error message saying too few parameters expected 2.

Set db = CurrentDb
Set qry = db.OpenQueryDef("qFrameCheckOverPack")
Set rst = qry.OpenRecordset() ' The error is for this line *****
If rst.RecordCount > 0 Then
     'Query has results
Else
     'Query has no results
End If

Thanks for any help
Marcin

Instead of checking the RecordCount, I always use...

If Not(rs.EOF AND rs.BOF) Then 'Records Returned
...
...

That is using an ADODB recordset, but I would assume it would work in your case.

Mike


Mike
EchoVue.com

Ya but it does not even get that far because I get an error when I set the recordset

Does the query in question ask for Parameters? IE. Date range, Amount etc.

Mike
EchoVue.com

No there is no parameters in the query, it simply displays records of items which are overshipped. As a result I need a way of prompting the user that this order has too many items and this occurs if this query has any results.

How does the query know what the order is?

Any chance you could post the SQL of the query?
Just go into the query, select the SQL view, and copy it here.

Mike
EchoVue.com

SELECT qFrameCheckOverPack.FrameTimeStamp, qFrameCheckOverPack.ID, qFrameCheckOverPack.POS_NR, qFrameCheckOverPack.FrameNo, qFrameCheckOverPack.ItemID, qFrameCheckOverPack.QtyGood, qFrameCheckOverPack.MachineCode, qFrameCheckOverPack.IsitOverPack, IIf([MachineCode]="T1","HGP","TAM") AS MachineName
FROM qFrameCheckOverPack
WHERE (((qFrameCheckOverPack.IsitOverPack)="bad"));

the query qFrameCheckOverPack is identical to this one except I have a if statement which checks if goodqty is > origqty and if it is then it IsitOverPack = bad

The queries work fine since I can click on them and they display the correct results

Huh?!

I am afraid I am drawing a blank right now. I am also headed into a meeting - Does anyone else have any idea?

If not, I may have a couple of things we can try when I get back in an hour or two.

Mike

Mike
EchoVue.com

Ok I got pretty far, I got it working what I had to do is set each parameter for my first query. I did by
    Set Par1 = qdf.Parameters![Result]
    Par1 = [Forms]![fFrameSheet]![cboResult]

I was wondering what if one of my parameters in my query was ">70 AND <77"
How would I add that as part of a variable, but it cannot be a string because it says invalid data type

Fixed my status parameter issue, I just included it as part of my query. Thanks for the tips