Access Bericht autom. - Paramter für Query

Hallo,

Ich habe einen Query mit einigen Subqueries.
Nun habe ich in einem Subquery 2 Paramter drin.

Wenn ich den Access Bericht aufrufe, fragt Access mich nach den beiden Werten für den Subquery.

Jetzt möchte ich das ganze automatisieren.

Wenn ich OpenReport nutze kann ich eine where Klausel angeben.
Aber die bezieht sich ja auf den „Main“ Query und nicht auf die Subqueries.
Kann ich irgendwie sonst Paramter mit übergeben ?

thx a lot
Martin

Hallo nochmal,

Ich könnte die Datenquelle verändern.
Nur dazu müßte ich bei Report_Open Ereignis an die Recordsource herankommen.
Nur diese ist bei mir eine Abfrage.

Komme ich irgendwie an den Text der Abfrage heran ?

Das ich statt …
Me.RecordSource = Abfrage1
gleich
Me.RecordeSource = "Select … "

Me.RecordSource liefertt mir den Namen de Abfrage.
Ich bräuchte aber den Inhalt Text der Abfrage.

Danke im vorraus
Martin

Hallo.

Me.RecordSource liefertt mir den Namen de Abfrage.
Ich bräuchte aber den Inhalt Text der Abfrage.

Geh über die QueryDefs Deiner Datenbank und lass Dir die SQL-Eigenschaft der Abfrage anzeigen. Achtung: DAO referenzieren!

Gruß Eillicht zu Vensre

habe text
Hi

Geh über die QueryDefs Deiner Datenbank und lass Dir die
SQL-Eigenschaft der Abfrage anzeigen. Achtung: DAO
referenzieren!

cool … 1000 dank !

Martin

Access Bericht - kann Paramter nicht setzen
Hallo,

ich habe das Problem das ich die Paramter für den Bericht nicht setzen kann.
Als Datenquelle dient eine Abfrage. (Ein Query mit Subqueries)

Ich übergebe die Paramter an den Bericht per OpenArgs.
Nun lese ich im Report_Open Ereignis diese Paramter aus.

Ich hole mir den Query mit …
Set db = CurrentDb
Set query = db.QueryDefs(Me.RecordSource)

So nun habe ich versucht die Paramter zu setzen mit …
query.Paramters(0).Value = datum_von
query.Paramters(1).Value = datum_bis

Nur rufe ich den Bericht jetzt auf, kommt trotzdem die Frage nach den Paramterwerten.

Ich habe auch versucht den SQL Text des query zu holen und die Paramter zu setzen indem ich Replace mache an den jeweiligen Stellen.

Und dann …
Me.RecourdSource = ueberarbeiteterSQLText

Geht auch nicht.

Habe ich etwas vergessen ?
Oder muss ich etwas beachten ?

1000 Danke
Martin

Holla.

Oder muss ich etwas beachten ?

Es heißt ParamEter. Nothing for ungood, aber Du hast ca. 20mal Paramter geschrieben.

Gruß Eillicht zu Vensre