PDA

Vollständige Version anzeigen : Berichte


schlarb
10.05.2001, 20:46
Hallo zusammen,
Ich habe ein Formular in dem mehrere Optionsgruppen sind. Je nach Auswahl innerhalb einer Optionsgruppe oder mehrere soll anschließend ein Bericht generiert werden.
Wie führe ich die Auswahldaten zu einem Bericht zusammen.

[Dieser Beitrag wurde von schlarb am 10.05.2001 editiert.]

HAFISENIOR
13.05.2001, 18:27
Hi
meine unprofessionelle Lösung sieht folgendermaßen aus:


On Error GoTo rptKursverlauf_Err

If (Forms!Kursverlauf!W_Ausw = 42 And Forms!Kursverlauf!Z_Ausw = 30) Then
DoCmd.OpenReport "Kurs1M", acDesign, "", ""
Reports!Kurs1M!Dia.RowSource = "SELECT Kursverlauf.Datum AS Ausdr1, First(Kursverlauf.CHF) AS Einstiegskurs FROM Kursverlauf GROUP BY Kursverlauf.Datum, (Year([Datum])*12+Month([Datum])-1)HAVING (((Kursverlauf.Datum) > Now() - (1 * 30)))ORDER BY (Year([Datum])*12+Month([Datum])-1);"
Reports!Kurs1M!TxtW.Caption = "CHF"
DoCmd.Close acReport, "Kurs1M", acSaveYes
DoCmd.OpenReport "Kurs1M", acViewPreview
End If
If (Forms!Kursverlauf!W_Ausw = 42 And Forms!Kursverlauf!Z_Ausw = 90) Then
DoCmd.OpenReport "Kurs6M", acDesign, "", ""
Reports!Kurs6M!Dia.RowSource = "SELECT Kursverlauf.Datum AS Ausdr1, First(Kursverlauf.CHF) AS Einstiegskurs FROM Kursverlauf GROUP BY Kursverlauf.Datum, (Year([Datum])*12+Month([Datum])-1)HAVING (((Kursverlauf.Datum) > Now()-(3*30))) ORDER BY (Year([Datum])*12+Month([Datum])-1);"
Reports!Kurs6M!TxtW.Caption = "CHF"
DoCmd.Close acReport, "Kurs6M", acSaveYes
DoCmd.OpenReport "Kurs6M", acViewPreview
End If
If (Forms!Kursverlauf!W_Ausw = 42 And Forms!Kursverlauf!Z_Ausw = 180) Then


Im obigen Beispiel sind "nur" zwei Optionsgruppen, die abgefragt werden.
Es gibt sicher "elegantere" Lösungen.

Gerhard Hafner