G
Guest
Thanks for taking the time to read my question.
I have code that opens a recordset. The recordset is a query that has 2
criteria. I know that I need to have qdf.parameter(0) in there, but not sure
how to use it.
Am I on the right track?
Dim dbs As Database
Dim rst As Recordset
Dim qdf As QueryDef
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("qrySpecDates")
Set qdf.Parameters(0) =
[Forms]![frmtblFarmData]![frmtblSpec].[Form]![tblFarmDataIDNumber]
Set qdf.Parameters(1) =
[Forms]![frmtblFarmData]![frmtblSpec].[Form]![SpecCategory]
Set rst = qdf.OpenRecordset()
rst.MoveFirst
MsgBox rst!SpecCategory
rst.Close
Set dbs = Nothing
Thanks,
Brad
I have code that opens a recordset. The recordset is a query that has 2
criteria. I know that I need to have qdf.parameter(0) in there, but not sure
how to use it.
Am I on the right track?
Dim dbs As Database
Dim rst As Recordset
Dim qdf As QueryDef
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("qrySpecDates")
Set qdf.Parameters(0) =
[Forms]![frmtblFarmData]![frmtblSpec].[Form]![tblFarmDataIDNumber]
Set qdf.Parameters(1) =
[Forms]![frmtblFarmData]![frmtblSpec].[Form]![SpecCategory]
Set rst = qdf.OpenRecordset()
rst.MoveFirst
MsgBox rst!SpecCategory
rst.Close
Set dbs = Nothing
Thanks,
Brad