too few parameters (1 Viewer)

My Query:

PARAMETERS [Forms]![CurrentList]![ListID] Text ( 255 );
SELECT Join.*, Join.ListID
FROM [Join]
WHERE (((Join.ListID)=[Forms]![CurrentList]![ListID]));

I then want to make T a recordset based on this query in my code:

Dim d As Database
Dim T As Recordset

Set d = CurrentDb()
Set T = d.OpenRecordset("qryCurrentList")

I get an error saying too few parameters, 1 expected.

How do I correct this?

You need to have your form open and active (not design view) when you run the query. Oh, and the control named has to be there also.

When you run the query from VBA, you need to explicitly set the parameter values. Use the code I posted yesterday.

http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=46570&highlight=dao.database