Consulta de Parametros en procedimiento

[Edu]

Hola nuevamente,
Alguno de ustedes, me puede recordar, como hago para
asignarle el valor del parametro que me solicita una
consulta, desde un procedimiento.
Ej:
Tengo una consulta de actualizacion "Actualizar" que al
abrirla me pregunta un parametro como "[periodo a
actualizar]". desde el procedimiento le
doy "docmd.openquery ('Actualizar') y quiero que no me
pregunte el parametro, si no asignarselo mediante una
variable.

[Juan M Afan de Ribera]

Tendrás que escribir un poco más de código. Por ejemplo

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
Set qdf = db.QueryDefs("Actualizar")
qdf.Parameters(0) = TuVariable

qdf.Execute

Set qdf = Nothing
Set db = Nothing

Espero que te sirva

--
Saludos,
Juan M Afan de Ribera
[MVP Access]
http://www.mvp-access.com/juanmafan

"Edu" <anon...@discussions.microsoft.com> escribió en el mensaje
news:3bb301c4a649$cfd1c0b0$a501...@phx.gbl...

[Sashka]

No hay forma con docmd.openquery..... podrías crear una función así...

Public Sub ConsultaconParms(ByVal LaConsulta As String, ParamArray params())
Dim i As Long, x As Long
Dim qdf As QueryDef 'query to be run
i = UBound(params)
Set qdf = CurrentDb.QueryDefs(LaConsulta)
If i > -1 Then
For x = 0 To i
qdf.Parameters(x).Value = params(x)
Next x
End If
qdf.Execute
qdf.Close
Set qdf = Nothing
End Sub

La llamas así:
ConsultaconParms "consulta3", 300, "mod3", #19/08/2004#

SOLO funcionará con consultas de acción.... además debes tener en cuenta el
orden de los parámetros... por ejemplo esa es una consulta de actualización,
en donde el único campo a actualizar es la primera cantidad... las otras 2
con criterios (primero se ponen la actualizaciones)

Sashka
MS MVP Access
MCP ASP.Net

"Edu" <anon...@discussions.microsoft.com> escribió en el mensaje
news:3bb301c4a649$cfd1c0b0$a501...@phx.gbl...