<\/p>\n
Mit Access-Bericht lässt sich eine Menge anstellen, was allerdings einiges an Erfahrung und übung erfordert. Ein Monatskalender, der Datumsangaben in einem Raster von Wochen und Wochentagen enthält, ist erstens eine recht interessante Aufgabe und zweitens macht er sich auf verschiedenen Dokumenten gut: Haben Sie schon einmal überlegt, einem Kunden eine Monatsübersicht zu dem Tag mitzuliefern, an dem ein Ereignis wie zum Beispiel eine Bestellung erfolgt<\/b><\/p>\n<\/p><\/div>\n Tage mal Wochen<\/p>\n Ein Monatskalender ist üblicherweise in ein Raster eingeteilt, das oben die Kalendertage (Montag, Dienstag …), links die Kalenderwochen und in der aufgespannten Tabelle die Tagesdaten enthält. Anschaulich zeigt dies Abb. 1.<\/p>\n Bild 1: Ein Monatskalender als Bericht<\/span><\/b><\/p>\n<\/p><\/div>\n Datenherkunft eines Kalenderberichts<\/b><\/p>\n Es gibt prinzipiell zwei Möglichkeiten, einen Kalender wie in Bild 1 zu erstellen: Die erste beruht darauf, eine Reihe von Steuerelementen in der gezeigten Anordnung zu platzieren und diese zur Laufzeit mit den gewünschten Werten zu füllen. Da aber keiner Lust hat, mehr als 50 Steuerelemente in den Berichtsentwurf einzufügen, stellen wir hier eine etwas elegantere Lösung vor, die außerdem wesentlich datenbankbezogener ist: Dazu benötigen Sie zunächst eine Tabelle mit Kalenderdaten. Diese sieht im Entwurf wie in Bild 2 aus und wird mit der Routine aus Listing 1 gefüllt. Mit dem Aufruf dieser Routine übergeben Sie das Start- und das Enddatum der anzulegenden Datumsdatensätze. Der Aufruf zum Anlegen aller Kalenderdaten des Jahres 2007 sieht etwa so aus:<\/p>\n Listing 2: Snapshot-Datei ohne visuelles Snapshot Viewer Control ausdrucken<\/p>\n Bild 2: Entwurf einer Tabelle mit Kalenderdaten<\/span><\/b><\/p>\n<\/p><\/div>\n Eins nach dem anderen<\/b><\/p>\n Damit Sie die Vorgehensweise leicht nachvollziehen können, beschreiben wir Schritt für Schritt, wie der Kalenderbericht entsteht.<\/p>\n Zunächst legen Sie einen Bericht an, weisen ihm als Datenherkunft die Tabelle tblKalenderdaten<\/b> zu und speichern ihn unter dem Namen rptMonatsansichtKlein<\/b>.<\/p>\n Fügen Sie das Feld Kalenderdatum<\/b> zum Detailbereich hinzu und wechseln Sie zur Vorschauansicht: Es ergibt sich das Bild aus Bild 3. Der Bericht enthält nun zumindest schon einmal eine Reihe von Kalenderdaten.<\/p>\n Bild 3: Bericht mit einer Auflistung von Kalenderdaten<\/span><\/b><\/p>\n<\/p><\/div>\n Allerdings soll der Kalender ja nur die Tage anzeigen. Dazu fügen Sie ein Textfeld namens txtTag <\/b>hinzu, entfernen sein Beschriftungsfeld und stellen seine Eigenschaft Steuerelementinhalt <\/b>auf den folgenden Ausdruck ein:<\/p>\n Entfernen Sie außerdem das ursprüngliche Datumstextfeld Kalenderdatum<\/b>. Der Bericht zeigt in der Vorschau nun immerhin schon einmal die Kalendertage an (siehe Bild 4).<\/p>\n Bild 4: Statt der kompletten Daten zeigt der Bericht nun nur noch die Kalendertage an.<\/span><\/b><\/p>\n<\/p><\/div>\n Nun wollen diese angeordnet werden – und zwar so, dass jeweils die Montage ganz links und jeweils die Tage einer Woche in einer Reihe stehen. Dazu setzen Sie die Eigenschaft MoveLayout<\/b> ein, die [1] genauer erläutert.<\/p>\n Jedes angezeigte Datum soll auf den Wochentag geprüft und davon abhängig von links nach rechts positioniert werden. Die dafür notwendige Routine muss also für jeden Datensatz ausgelöst werden, was etwa mit der Ereigniseigenschaft Beim Formatieren <\/b>des Detailbereichs möglich ist. Listing 2 zeigt eine Routine, die wie gewünscht vorgeht. <\/p>\n Listing 2: Aufteilen der Tageszahlen auf mehrere Reihen á sieben Spalten<\/p>\n Diese Routine prüft, ob es sich bei dem Tag um einen Sonntag handelt, und legt den Abstand des Steuerelements vom linken Rand auf das Siebenfache des Werts der Konstanten cintBreite<\/b> fest, die im gleichen Modul deklariert wird. Dadurch verschiebt die Routine alle Textfelder, deren Datum einen Sonntag enthält, relativ weit nach rechts.<\/p>\n In allen anderen Fällen, also bei den Wochentagen Montag bis Samstag, ermittelt die Routine den Abstand vom linken Rand über das Produkt aus dem Wert der Weekday<\/b>-Funktion (die etwa für den Montag standardmäßig den Wert 2<\/b> liefert) und dem Wert der oben genannten Konstanten.Gleichzeitig stellt sie die Eigenschaft MoveLayout <\/b>jeweils auf den Wert False <\/b>ein, was dazu führt, dass der folgende Datensatz in die gleiche Zeile geschrieben wird. Im Bericht sieht das nun wie in Bild 5 aus.<\/p>\n Bild 5: Kalendertage in Reih und Glied – allerdings noch reichlich viel für eine Monatsübersicht.<\/span><\/b><\/p>\n<\/p><\/div>\n <\/p>\n Daten eines Monats anzeigen<\/b><\/p>\n Nun enthält der Bericht noch alle Tage der Datenherkunft, allerdings soll er nur die Tage eines einzigen Monats anzeigen. Der Einfachheit halber soll dies standardmäßig der Monat zum aktuellen Tag sein, den Sie mit der VBA-Funktion Date <\/b>ermitteln können; alternativ kann der Bericht das gewünschte Daten aus dem öffnungsargument (OpenArgs<\/b>-Parameter, ab Access 2002) oder einer globalen Variablen entnehmen, die man natürlich vorher entsprechend füllen muss. Zu diesem Tag ermitteln Sie dann mit den in [2] vorgestellten Funktionen den ersten und den letzten Tag des Monats. [3] liefert die beiden Funktionen MontagErmitteln<\/b> und SonntagErmitteln<\/b>.<\/p>\n Diese brauchen Sie, um den ersten Montag der ersten und den letzten Sonntag der letzten Zeile zu ermitteln – auch wenn sie nicht zum aktuellen Monat gehören. Immerhin soll der Bericht wie in Bild 1 die erste und die letzte Zeile um die fehlenden Tage ergänzen und diese grau einfärben. Um die übersicht zu wahren, speichern Sie die Ergebnisse dieser Funktionen in den folgenden im Berichtsmodul deklarierten Variablen:<\/p>\n In einer weiteren Variablen speichern Sie das Referenzdatum – also bis dato das aktuelle Datum:<\/p>\n Die Datenherkunft soll nun auf die Daten des Monats (plus Vorläufer\/Nachzügler), in dem der aktuelle Tag oder der per OpenArgs <\/b>übergebene Tag liegt, eingeschränkt werden. Dies erledigen Sie in der Routine, die durch das Ereignis Beim öffnen <\/b>des Berichts ausgelöst wird (s. Listing 3).<\/p>\n Listing 3: Ermitteln des angezeigten Zeitraums und filtern des Berichts<\/p>\n Die Routine prüft zunächst, ob der Aufruf ein öffnungsargument enthält, und verwendet dieses oder alternativ das aktuelle Datum als Referenzdatum. Dann füllt es die vier oben genannten Variablen dateErsterTagDesMonats<\/b>, dateLetzterTagDesMonats<\/b>, dateErsterKalendertag <\/b>und dateLetzterKalendertag<\/b>.<\/p>\n Anhand der letzten beiden dieser Variablen stellt die Routine dann ein Filterkriterium zusammen, weist es der Eigenschaft Filter <\/b>des Berichts zu und aktiviert den Filter durch Setzen der Eigenschaft FilterOn <\/b>auf den Wert True<\/b>. Das Ergebnis ist die Berichtsvorschau in Bild 6.<\/p>\n Bild 6: Die Kalendertage eines Monats inklusive einiger Tage des vorherigen Monats<\/span><\/b><\/p>\n<\/p><\/div>\n Monatsansicht mit Beschriftungen und Linien versehen<\/b><\/p>\n Der größte Teil der Arbeit ist nun erledigt, nun folgen noch einige Schönheitsarbeiten. Da wäre zunächst der Kopfbereich des Berichts, der ein Textfeld namens txtMonat <\/b>für die Anzeige des Monats sowie die Bezeichnung der Wochentage enthält.<\/p>\n Diese fügen Sie ganz einfach wie in Bild 7 hinzu. Gleichzeitig ergänzen Sie den Bericht um ein weiteres Textfeld namens txtKW<\/b> im Detailbereich, das die Kalenderwoche anzeigen soll; dieses Textfeld bleibt zunächst ungebunden.<\/p>\n Bild 7: Der Entwurf der Monatsansicht mit überschriften und Textfeld für die Kalenderwoche<\/span><\/b><\/p>\n<\/p><\/div>\n Das Textfeld txtMonat <\/b>soll den (ausgeschriebenen) Monat und das Jahr anzeigen. Es ist ungebunden und wird erst durch die Prozedur, die beim Formatieren des Seitenkopfes ausgelöst wird, gefüllt – siehe weiter unten.<\/p>\n Die Beschriftungsfelder zur Anzeige der Tagesüberschriften (M<\/b>, D<\/b>, M<\/b>, D<\/b>, F<\/b>, S<\/b>, S<\/b>) benennen Sie durchgängig mit lbl1<\/b>, lbl2<\/b>, lbl3<\/b> und so weiter.<\/p>\n Am besten sieht die Monatsansicht im übrigen aus, wenn alle Beschriftungs- und Textfelder ihren Inhalt zentriert anzeigen.<\/p>\n Um die horizontale Anordnung brauchen Sie sich keine Sorgen zu machen, die richten Sie mit ein paar geeigneten Zeilen VBA-Code.<\/p>\n Achten Sie aber darauf, dass die Steuerelemente jeweils die gleiche vertikale Position und die gleiche Höhe aufweisen.<\/p>\n Nicht in der Abbildung zu erkennen, aber dennoch notwendig ist eine waagerechte Linie am unteren Rand des Berichtskopfes. Diese soll die Tagesüberschriften optisch von den Tagen trennen.<\/p>\n Die folgenden Zeilen fügen Sie der Ereignisprozedur ReportOpen <\/b>hinzu. Die Anweisungen sorgen dafür, dass die Breite der einzelnen Steuerelemente in Abhängigkeit von der Konstanten cintBreite <\/b>eingestellt wird:<\/p>\n Kalenderwoche füllen und ausrichten<\/b><\/p>\n Damit das Feld txtKW<\/b> die Kalenderwoche anzeigt, fügen Sie der Ereignisprozedur Detailbereich_Format <\/b>noch die folgende Zeile hinzu:<\/p>\n Und damit der Bericht zwischen Kalenderwoche und dem ersten Tag einer jeden Zeile ebenfalls einen vertikalen Strich ausgibt, fügen Sie außerdem diese Zeile hinzu (ohne Zeilenumbruch, weitere Informationen zum Anlegen von Linien in Berichten finden Sie in [3]).<\/p>\n Die gleiche Linie soll im Kopfbereich des Berichts fortgesetzt werden. Dazu legen Sie eine Prozedur für das Ereignis Beim Formatieren <\/b>des Seitenkopfes an, das wie in Listing 4 aussieht. Diese Routine sorgt auch für das Füllen der überschrift mit dem ausgeschriebenen Monat und dem vierstelligen Jahr.<\/p>\n Listing 4: Hinzufügen einer vertikalen Linie zum Kopfbereich und füllen der überschrift<\/p>\n Wochenenden fett drucken<\/p>\n Es dient der besseren übersicht, wenn Sie die Wochenenden fett drucken. Daher fügen Sie der Routine Detailbereich_Format <\/b>noch die folgenden Zeilen hinzu.<\/p>\n Diese prüfen, ob der Wochentag dem Wert 1 <\/b>(Sonntag) oder 7 <\/b>(Samstag) entspricht und gibt die Datumsangaben entsprechend fett aus:<\/p>\n Vorläufer und Nachzügler "ausgrauen"<\/b><\/p>\n Schließlich soll der Bericht die Tage, die nicht zum aktuellen Monat gehören, aber dennoch zum Auffüllen der ersten und\/oder letzten Zeile angezeigt werden, noch in grauer Farbe ausgeben. <\/p>\n Dies erledigen die folgenden Zeilen (ebenfalls in Detailbereich_Format <\/b>einzufügen):<\/p>\n Aufruf des Berichts<\/b><\/p>\n Der Aufruf des Berichts zum Anzeigen eines bestimmten Monats erfolgt über folgende Anweisung, wobei Sie für den Parameter OpenArgs <\/b>ein Datum angeben, das sich in dem gewünschten Monat befindet:<\/p>\n Bericht in andere Berichte Zum Einbinden des Berichts als Unterbericht müssen Sie diesen etwas ändern. Wenn Sie den angezeigten Monat des Unterberichts etwa vom Inhalt eines Textfeldes namens txtReferenzdatum<\/b> im Hauptbericht abhängig machen wollen, können Sie dieses wie folgt erledigen. Erstellen Sie vorher eine Kopie des Berichts rptMonatsansichtKlein<\/b>, die Sie speziell für den Einsatz als Unterformular verwenden. <\/p>\n Anschließend ändern Sie den Teil der Ereignisprozedur Report_Open <\/b>mit der Ermittlung des Referenzdatums ab, indem Sie <\/p>\n durch<\/p>\n und <\/p>\n durch<\/p>\n ersetzen (jeweils in einer Zeile).<\/p>\n Die erste änderung sorgt dafür, dass der Unterbericht das Referenzdatum aus dem Textfeld txtReferenzdatum <\/b>des Hauptberichts bezieht und die zweite ersetzt das Filtern der Datenherkunft (das sich in Unterberichten nicht einstellen lässt) durch eine Zeile, die das Kriterium direkt an die Datenherkunft anfügt. Nun müssen Sie nur noch einen Hauptbericht erstellen, ein Textfeld namens txtReferenzdatum <\/b>und den Unterbericht sowie einige Text- und Bezeichnungsfelder für die überschrift mit Monat und Jahr sowie den Tagen in den Hauptbericht einfügen – diese werden nämlich nicht aus dem Seitenkopf des Unterberichts übernommen.<\/p>\n Den kompletten Aufbau der in einen Hauptbericht eingebauten Monatsansicht finden Sie in den Berichten rptMonatsansichtImUnterbericht <\/b>und rptMonatsansicht<\/b> der Beispieldatenbank; der Entwurf sieht nun etwa wie in Bild 8 aus.<\/p>\n \n\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic001_opt.jpeg\")
\n <\/div>\n\nPublic Sub KalendertabelleFuellen(dateStartdatum As Date, dateEnddatum As Date)\r\n Dim dateAktuellesdatum As Date\r\n Dim db As DAO.Database\r\n Dim strDatum As String\r\n Set db = CurrentDb\r\n ''Alte Daten löschen\r\n db.Execute "DELETE FROM tblKalenderdaten", dbFailOnError\r\n ''Daten in einer Schleife eintragen\r\n For dateAktuellesdatum = dateStartdatum To dateEnddatum\r\n strDatum = SQLDatum(dateAktuellesdatum)\r\n db.Execute "INSERT INTO tblKalenderdaten(Kalenderdatum) VALUES(" _
& strDatum & ")", dbFailOnError\r\n Next dateAktuellesdatum\r\nEnd Sub\r\nKalendertabelleFuellen "1.1.2007", "31.12.2007"<\/pre>\n\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic002_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic003_opt.jpeg\")
\n <\/div>\n\n=Day(Kalenderdatum)<\/pre>\n
\n ![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic004_opt.jpeg\")
\n <\/div>\n\nConst cintBreite As Integer = 300 \r\nPrivate Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n ''Wenn Wochentag = Sonntag, dann...\r\n If Weekday(Me!Kalenderdatum) = 1 Then\r\n ''implizit: Me.MoveLayout = True, Ausgabe in nächster Zeile fortsetzen\r\n ''Steuerelement rechts anordnen\r\n Me!txtTag.Left = cintBreite * 7\r\n ''... sonst:\r\n Else\r\n ''nicht zur nächsten Zeile vorrücken\r\n Me.MoveLayout = False\r\n ''Steuerelemente passend anordnen\r\n Me!txtTag.Left = cintBreite * (Weekday(Me.Kalenderdatum) - 1)\r\n End If\r\nEnd Sub<\/pre>\n
\n ![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic005_opt.jpeg\")
\n <\/div>\n\nDim dateErsterTagDesMonats As Date\r\nDim dateLetzterTagDesMonats As Date\r\nDim dateErsterKalendertag As Date\r\nDim dateLetzterKalendertag As Date<\/pre>\n
Dim dateReferenzdatum As Date<\/pre>\n
Private Sub Report_Open(Cancel As Integer)\r\n ''Prüfen, ob Datum übergeben wurde (ab Access 2002), \r\n ''sonst aktuelles Datum als Referenzdatum verwenden\r\n If IsNull(Me.Properties!OpenArgs) Then\r\n dateReferenzdatum = Date\r\n Else\r\n dateReferenzdatum = Me.OpenArgs\r\n End If\r\n ''Ersten und letzten Tag des Monats ermitteln\r\n dateErsterTagDesMonats = MonatsbeginnErmitteln(dateReferenzdatum)\r\n dateLetzterTagDesMonats = MonatsendeErmitteln(dateReferenzdatum)\r\n ''Aus erstem und letztem Tag die ersten und letzten Tage der \r\n ''jeweiligen Kalenderwochen ermitteln\r\n dateErsterKalendertag = MontagErmitteln(dateErsterTagDesMonats)\r\n dateLetzterKalendertag = SonntagErmitteln(dateLetzterTagDesMonats)\r\n ''Filter des Berichts auf die anzuzeigenden Tage einstellen und \r\n ''aktivieren\r\n Me.Filter = "Kalenderdatum >= " & SQLDatum(dateErsterKalendertag) _
& " AND Kalenderdatum <= " & SQLDatum(dateLetzterKalendertag)\r\n Me.FilterOn = True\r\nEnd Sub<\/pre>\n\n ![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic006_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic007_opt.jpeg\")
\n <\/div>\n\nDim i As Integer\r\n''Breite von Steuerelementen einstellen\r\nMe!txtTag.Width = cintBreite\r\nMe!txtMonat.Width = 8 * cintBreite\r\nMe.lineSeitenkopf.Width = 8 * cintBreite\r\n''Breite der Tagesüberschriften einstellen\r\nFor i = 1 To 7\r\n Me.Controls("lbl" & i).Left = _
(i) * cintBreite\r\n Me.Controls("lbl" & i).Width = cintBreite\r\nNext i<\/pre>\nMe!txtKW = Kalenderwoche(Me!Kalenderdatum)<\/pre>\n
Me.Line (cintBreite, 0)-(cintBreite, Me.Section(acDetail).Height), 0<\/pre>\n
Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n ''Vertikale Linie links neben erster Tagesüberschrift einfügen\r\n Me.Line (cintBreite, Me.lbl1.Top)-(cintBreite, Me.Section(acPageHeader).Height), 0\r\n ''Monatsüberschrift eintragen\r\n Me!txtMonat = Format(dateReferenzdatum, "mmmm") & " " & Year(dateReferenzdatum)\r\nEnd Sub<\/pre>\n
Select Case Weekday(Me.Kalenderdatum)\r\n Case 1, 7\r\n Me.txtTag.FontBold = True\r\n Case Else\r\n Me.txtTag.FontBold = False\r\nEnd Select<\/pre>\n
If Month(Me!Kalenderdatum) <> _
Month(dateReferenzdatum) Then\r\n Me!txtTag.ForeColor = &HCCCCCC\r\nElse\r\n Me!txtTag.ForeColor = &H0\r\nEnd If<\/pre>\nDoCmd.OpenReport "rptMonatsansichtKlein", View:=acViewPreview, OpenArgs:="1.1.2007"<\/pre>\n
einbinden<\/b><\/p>\nIf IsNull(Me.OpenArgs) Then\r\n dateReferenzdatum = Date\r\nElse\r\n dateReferenzdatum = Me.OpenArgs\r\nEnd If<\/pre>\n
dateReferenzdatum = Me.Parent.txtReferenzdatum<\/pre>\n
Me.Filter = "Kalenderdatum >= " & SQLDatum(dateErsterKalendertag) & " AND Kalenderdatum <= " & SQLDatum(dateLetzterKalendertag)\r\nMe.FilterOn = True<\/pre>\n
Me.RecordSource = "SELECT * FROM tblKalenderdaten WHERE Kalenderdatum >= " & SQLDatum(dateErsterKalendertag) & " AND Kalenderdatum <= " & SQLDatum(dateLetzterKalendertag)<\/pre>\n
![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Monatskalender-web-images\/pic008_opt.jpeg\")
<\/p>\n