Pasar parametros a un subformulario

[Edu]

Buenas tardes a todos, quisiera saber si me pueden ayudar con lo siguiente:

Tengo un subformulario, el cual me mostrara el resultado de una consulta de
seleccion, la cual tiene dos parametros. Para evitar que al abrir el
formulario principal, el subformulario me pida los parametros, dejo el
RecordSource del subformulario en blanco.

Se que mediante dos cuadros de texto en el formulario principal obtengo el
valor de los dos parametros y realizo la siguiente operacion depues de
actualizar el ultimo:

Private Sub AbrirOrigen()
Dim RstOrigen As Recordset, MiConsultaOrigen As QueryDef

Set MiConsultaOrigen = CurrentDb.QueryDefs("Mi Consulta")
MiConsultaOrigen.Parameters(0) = Texto1
MiConsultaOrigen.Parameters(1) = Texto2
Set RstOrigen = QMovCon.OpenRecordset
[Formulario Principal].Subformulario.Recordset = RstOrigen

Tenia entendido que asi funcionaba, pero ni con ".Recorset= RstOrigen", ni
con ".RecordSource = RstOrigen" funciona...

¿sabe alguien como paso definitivamente estos dos parametros ya establecidos
al RecordSource del subformulario?

Nota:

si establezco los parametros desde la consulta a "Entre
[Formularios]![Formulario Principal]![Parametro1] Y [Formularios]![Formulario
Principal]![Parametro2], y luego establezco el RecordSource del
subformulario...Resulta!, pero no quiero que los parametros solicitados en la
consulta queden asi.

[José Mª Fueyo]

Hola Edu
Construye la consulta en tiempo de ejecución, sín usar parámetros. Luego la
cadena de texto resultante se la asignas al recordsource del subformulario.

Salu2
--
José Mª Fueyo
[MS MVP Access]

[Edu]

Gracias José Mª, pero lo que sucede es que realmente al consulta de seleccion
es una consulta de union, que a su vez, depende de otras 6 consultas, donde
cada una de ellas lleva los parametros.

Te agradezco si me puedes dar otra solucion.

[José Mª Fueyo]

Hola
¿Probaste a tener las sentencias de cada una de las seis consultas en tu
código, configurarlas sustituyendo el valor de sus parámetros, y generar una
sentencia final como resultado de crear una consulta de unión de todas, la
cual pasas a la propiedad recordsource del subformulario?

[Ju@nK [MVP 2006/9]]

Crea la unión y pasa los parametros solo al resultado, ej.:

"Select c1, c2 from
(Select campo1 as c1, campo2 as c2 from tabla1 union
Select campo3 as c1, campo4 as c2 from tabla2 union
Select campo5 as c1, campo6 as c2 from tabla3 union
Select campo7 as c1, campo8 as c2 from tabla4 union
Select campo9 as c1, campo10 as c2 from tabla5 union
Select campo11 as c1, campo12 as c2 from tabla6) as Union1
Where c1= " & TuParametro

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**
"Edu" <E...@discussions.microsoft.com> escribió en el mensaje
news:5E5697BC-4A4B-4B4C...@microsoft.com...