Hallo Xcess-Kollegen,
ich möchte aus einem VBA-Makro heraus die .RecordSource-Eigenschaft eines Berichts (Report) setzen. Leider komme ich da nicht richtig weiter.
Report(„MeinBericht“).RecordSource=„Select * From usw…“
…wäre ja schön einfach, aber so geht es anscheinend nicht. Wer kann mir hier die nötigen Code-Zeilen zur Verfügung stellen?
Dankes
(Woly)
abfrage ändern
Hallo Woly!
Ich habe für einen ähnlich gelagerten Fall einfach die Abfrage, die als Datenquelle für den Bericht gilt, geändert.
Dim db As Database
Dim qryNeu As QueryDef
set db = currentDB
db.QueryDefs.Delete („qryRpt“) 'Löschen der alten Abfrage
Set qryNeu = db.CreateQueryDef(„qryRpt“, „Select * FROM tblTest“) ’ Neuerstellen der Abfrage
…vielleicht nicht grad die feine englische, aber es funktioniert 
JJLehto
…wenn es kompliziert geht?
ich möchte aus einem VBA-Makro heraus die
.RecordSource-Eigenschaft eines Berichts (Report) setzen.
Leider komme ich da nicht richtig weiter.
Beim Aufruf des Reports per VBA kannst Du die Datenquelle mit angeben:
DoCmd.OpenReport „kuckuck“, acViewNormal, „Abfragename“, " feldx=45"
Der letzte Argument erlaubt sogar, eine zusätzliche Where-Klausel anzubringen.
Gruß
J.
geht nicht…!
Hallo J.,
leider ist es damit bei meinem Problem nicht getan, da sich nicht nur die WHERE-Bedingung ändert, sondern auch andere Teile der Abfrage.
Gruß
(Woly)
Hallo JJLehto,
stimmt, die feine englische ist es nicht gerade, aber es funktioniert!
Ebenfalls nicht fein und nicht englisch ist diese Lösung, die mir zwischenzeitlich eingefallen ist:
DoCmd.OpenReport "ProjektberichtReport", acViewDesign
Reports![ProjektberichtReport].RecordSource = "Select \* from..."
DoCmd.Close acReport, "ProjektberichtReport", acSaveYes
DoCmd.OpenReport "ProjektberichtReport", acViewPreview
Danke, Gruß
(Woly)
Hallo,
leider ist es damit bei meinem Problem nicht getan, da sich
nicht nur die WHERE-Bedingung ändert, sondern auch andere
Teile der Abfrage.
Hmmm. Das mit der Where-Bedingung war nur das Sahnehäubchen. Du kannst hier eine komplett andere Abfrage angeben!
Wieso probierst Du das nicht einfach aus? Tut echt nicht weh!
Gruß
J.
Hi,
Ebenfalls nicht fein und nicht englisch ist diese Lösung, die
mir zwischenzeitlich eingefallen ist:
„nicht die feine Englische“ dürfte hier leicht untertrieben sein: das ist die Holzhammermethode! Lies doch bitte mein Posting nochmal!
Gruß
J.