فیلتر کردن dataset

[bonnny]

سلام
من تو برنامم منبع دیتاست رو یه query گذاشتم تا اینجا مشکلی نیست
ولی وقتی برای criteria , query میزارم مشکل پیدا میکنه.
من چجوری برای query باید پارامتر بزارم.
این کد منه برای dataset


Dim rst As Recordset
Set rst = db.OpenRecordset("SelectPNameSortByDate", DB_OPEN_DYNASET)


"SelectPNameSortByDate" اسم query منه.
من میخوام بدونم تو این دستور چجوری پارامتر تعریف کنم.
ممنون

[dadsara]

باسلام

Dim Ftxt, Etxt As String
Ftxt = [Forms]![F_Amarmah]![Text1]
Dim db As Database
Dim rst, rst1 As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT Count(Complaints.CP_No) AS CountOfCP " _
& " FROM Complaints INNER JOIN CPReferences ON Complaints.CP_ID = CPReferences.RF_CP_ID " _
& " WHERE (((CPReferences.RF_Date) < " & Ftxt & ") And ((Complaints.CP_FinishDate) >= " & Ftxt & " Or (Complaints.CP_FinishDate) Is Null)) ")
بجای [Forms]![F_Amarmah]![Text1 نام فرم و متغیرهای خودت را قرار بده
- البته این در حالتی که قبلا کوئری ساخته نشده باشد و اینجا کوئری نوشته می شود
ولی اگر قصد دارید در اینجا تنها نام کوئری را صدا بزنید خود طبیعی که باید پارامتر مورد نظر را در قسمت شرط خود کوئری قرار بدهید