
HELP with Parameter queries and Data Control
Hi!
I've a problem with parameters queries with data control.
Here it is:
The query: "Ordenar Por"
PARAMETERS [ParamOrden] TEXT;
SELECT * FROM [Tabla Datos Pacientes] ORDER BY [ParamOrden] ASC;
There is a data control named dataexamenes, so what I want to do is to Run
the query and make that the dataexamenes points to the resulted records.
The parameter of the query depends of an array of buttons.
So;
Dim tmpquery as QueryDef
Set tmpQuery = DataExamenes.Database.QueryDefs("Ordenar Por")
Case 0
tmpQuery.Parameters("ParamOrden") = CampoNombre$
Set tmpRs = tmpQuery.OpenRecordset(dbOpenDynaset)
Case 1
tmpQuery.Parameters("ParamOrden") = CampoApPaterno$
Set tmpRs = tmpQuery.OpenRecordset(dbOpenDynaset)
End Select
Set DataExamenes.Recordset = tmpRs
But it doesn't work... :(
Any ideas?
Thanks!
Juan Ignacio S.