Office: (Office 2000) Werte aus Formular an Bericht übergeben

guten morgen zusammen,

ich schlage mich nun seit mehreren Stunden mit einem VBA problem herum.

ich habe in einem formular 2 felder, wo der User Einträge tätigen soll. Beim drücken eines buttons sollen diese werte dann an einen Bericht übergeben werden, wo ich diese dann verwenden will, um eine sqlabfrgae zu erstellen und das Ergebnis dann im Bericht auszugeben.
hab schon einiges probiert.

z.B.

DoCmd.OpenReport "Berichtname", acViewPreview, , "[TextfeldNameImBericht]=" & Me!TextfeldImFormular & " AND "[TextfeldNameImBericht2]=" & Me!TextfeldImFormular2

oder

DoCmd.OpenReport "Berichtname", acViewPreview, , "[GlobaleVariableInBericht]=" & Me!TextfeldImFormular"
(Hier kommt der Fehler 2491. Aktion oder Methode nicht zulässig)

Bei diesen möglichkeiten hab ich die Befehle mehrfach umgestellt.

Ein weiterer Versuch von mir war, dass ich im Bericht 2 Kombinationfelder zur Auswahl gemacht habe.
aber dann ist mir aufgefallen, dass ich ja im bericht selbst gar nichts mehr auswählen kann, sondern diese mir da nur leer angezeigt werden.

Natürlich könnte ich auch eine normale abfrage bauen, aber die wird sehr tricky, da ich mind. 5 JOINS brauche(habe ich getestet, das ergebnis ist nicht das was es sein sollte). deshalb will ich die abfrage erst im bericht über vba machen, da ich mir hier werte schön zwischenspeichern kann und einfache mehrere Abfragen machen kann.

kann mir von euch jemand helfen?? wäre echt klasse!!!

vielen dank im voraus und freundliche grüsse

christoph

:)

 

DoCmd.OpenReport "Berichtname", acViewPreview, , "[TextfeldNameImBericht]=" & Me!TextfeldImFormular & " AND " & "[TextfeldNameImBericht2]=" & Me!TextfeldImFormular2

oder

DoCmd.OpenReport "Berichtname", acViewPreview, , "[GlobaleVariableInBericht]=" & Me!TextfeldImFormular" Anführungszeichen ist überflüssig

 

Hallo Christoph,
du kannst die beiden Werte als OpenArgs mit einem Trennzeichen übergeben.
Beim Öffen/Formatieren des Berichts kannst Du diese dann auswerten:

Beim Aufruf:
Code:

Im Bericht:
Code:

Dann kannst Du die Werte entsprechend in der Abfrage verwenden.

Gruß
Vincenz

 

Vielen Dank für die schnellen Antworten!!!!
Werde die beiden Möglichkeiten sofort ausprobieren!

 

also ich habe die beiden möglichkeiten jetzt mal ausprobiert, leider ohne erfolg.

PHP:

         DoCmd.OpenReport "test1", acViewPreview, , "[txtVertName]='" & Me!Kombinationsfeld1 & "' AND " & "[txtBucht]=" & Me!txtAusBucht


 

Diese Meldung sagt doch alles aus.
Was steht bei dir bei Datenherkunft?
Ein SQL Statment?
Wenn ja drücke auf die 3 Punkte daneben, du landest im Abfrageeditor. Speicher die Abfrage und schließe sie.

 

Hallo,
zur Übergabe eines Strings mit mehreren Werten anbei ein kleines Funktionsbeispiel.
In der anhängenden DB Formular1 auswählen und den Button anklicken.

Code hinter dem Button:
Code:

@woizawaldi
Es kann sein, das ein vermischen von benannten Parametern und Parametern, die in der Aufrufreihenfolge stehen nicht funktioniert.
Im Beispiel habe ich auf die Übergabe mittels benannter Parameter verzichtet. In meiner vorigen Antwort wollte ich damit den Übergabeparameter kennzeichnen.


Code Report_BeimÖffnen:
Code:

Gruß
Vincenz

 

juhu es klappt!
danke nochmals an euch beide!

@vfrei:
Hab nach deiner Variante nochmals probiert. Habe einfach versucht 2 normal strings, also keine variable zu übergeben. das hat dann funktioniert.
Danach habe ich mit den anführungszeichen und den kaufmannsunds herumgespielt und es klappt!!!

DANKE!!!! das WE ist gerettet!!!!!

PHP:

         DoCmd.OpenReport "Berichtname", acViewPreview, , , , OpenArgs:="" & StringAusFromular & ";" & integerAusFormular & ""
....
....
GlobaleStringVariableInBericht= Split(OpenArgs, ";")(0)
GlobaleIntegerVaribaleInBerciht= Split(OpenArgs, ";")(1)


 

gerade ist mir aufgefallen das ja " "(also 2 aufeinanderfolgende Anführungsteichen schwachsinn sind. also geht natürlich auch ohne *biggrin.gif*

PHP:

         DoCmd.OpenReport "test2", acViewPreview, , , , OpenArgs:=strName & ";" & intB