Openrecordset mit Parametern in der Abfrage

[[e-mail]]

Hi

In der Abfrage "Rechnung" habe ich einen Parameter z.B.
Jahr definiert (PARAMETERS Jahr Text; SELECT .....)

Ich möchte nun diese Abfrage aus VB aufrufen. Mustercode:
set rs = CurrentDb.OpenRecordset("Rechnung")

Wie kann ich den Parameter "Jahr" in VB setzen und
übergeben?

Danke für die Unterstützung
Erwin

[Michael Zimmermann]

Hallo!

Post by ***@hotmail.com
In der Abfrage "Rechnung" habe ich einen Parameter z.B.
Jahr definiert (PARAMETERS Jahr Text; SELECT .....)
set rs = CurrentDb.OpenRecordset("Rechnung")
Wie kann ich den Parameter "Jahr" in VB setzen und
übergeben?

Dim db as Dao.Database
Dim rsd As Dao.Recordset
Dim qdf As Dao.Querydef

set db = CurrentDb
Set qdf = db.QueryDefs("Rechnung")
qdf.Parameters("Jahr").Value = "DeinWert"
Set rsd = qdf.Openrecordset()

Gruß aus Mainz
Michael