Hallo Gemeinde,
ich habe ein Formular mit einem Kombi-Feld und einer Schaltfläche.
Hier wähle ich eine Jahreszahl aus und dann öffne ich mit dem Button den Bericht. (mit filtern nach dem ausgewählten Jahr)
Private Sub cmdBericht_Click()
If Not IsNull(Me!cboJahrBericht1) Then
DoCmd.OpenReport "rptBerAllesMitPrüfung", acViewPreview, , _
"(qryBerAllesMitPrüfung.PruefPruefJahr) ='" & Me!cboJahrBericht1 & "'"
'aus cboJahrBericht1 wird die Jahreszahl an die Abfrage weitergegeben
DoCmd.Close acForm, "frmBerichte" 'schließen des Auswahlformulars
Else
MsgBox "Erst ein Jahr auswählen!", , ""
End If
End Sub
Jetzt möchte ich noch das die Jahreszahl die ich im Formular ausgewählt habe im Bericht in einem Textfeld angezeigt wird.
Aber ich verstehe nicht wie ich das zweite Kriterium noch in den Code einfügen kann.
(cboJahrBericht1 aus frmBericht soll in txtPruefPruefJahr im Bericht rptBerAllesMitPrüfung)
Ich habe es versucht mit:
Private Sub cmdBericht_Click()
If Not IsNull(Me!cboJahrBericht1) Then
DoCmd.OpenReport "rptBerAllesMitPrüfung", acViewPreview, , _
"(qryBerAllesMitPrüfung.PruefPruefJahr) ='" & Me!cboJahrBericht1 & "AND" & "[rptBerAllesMitPrüfung]![txtPruefPruefJahr]='" & Me!cboJahrBericht1 & "'"
DoCmd.Close acForm, "frmBerichte"
Else
MsgBox "Erst ein Jahr auswählen!", , ""
End If
End Sub
Hat jemand eine Idee was ich falsch mache??
Würde mich sehr über eine Antwort freuen.
Gruß
Danny
Und wo drückt jetzt der Schuh?
PS: Warum ist PruefPruefJahr vom Datentyp Text?
Hallo Lachtaube,
ich habe versucht mit der Tab Taste zu arbeiten da hat er vorzeitig gespeichert. :-\
Habe es gerade ergänzt!! hoffe das ist so verständlich.
TXT weil in der Kopfzeile des Berichts die Jahreszahl so angezeigt werden soll.
Hallo,
das Jahr ist eine Zahl und sollte es auch beleiben. Der Kopfzeile ist egal ob Zahl oder Text.
Hallo Klaus,
Ist das denn so generell richtig zusammengestellt?? Scheinbar habe ich generell einen Fehler oder Denkfehler drin.
Ich versuche mal weiter!!!
Gruß
Danny
Hallo Danny,
Du könntest das Jahr im Paramater "OpenArgs" übergeben und beim
Laden/Öffnen des Berichts das Feld damit befüllen.
gruss ekkehard
Hallo Leute,
es war mal wieder total einfach >:(
Im Bericht, im Textfeld unter Steuerelemente Inhalt: =[Formulare]![frmBerichte]![cboJahrBericht1]
und schon klappt es. Obwohl das Auswahlformular geschlossen wird!!!
Ich danke euch für eure Beiträge und wohl bis bald :)
Gruß
Danny