<\/p>\n
Eine Jahresübersicht kann man für viele Anwendungen gebrauchen. Diese sollte dann natürlich nach Wunsch erweiterbar sein – etwa, um bestimmte Tage farbig zu markieren oder diese anderweitig hervorzuheben. Die Jahresübersicht dieses Beitrags soll die Monate eines Jahres untereinander mit einem Monat pro Zeile anzeigen. Die Wochentage sollen jeweils in einer Spalte angelegt werden, dadurch wird der jeweilige Monatserste natürlich mal mehr, mal weniger eingerückt dargestellt.<\/b><\/p>\n
Grundlage: die Datumstabelle<\/b><\/p>\n
Einen Bericht wie den geplanten erstellen Sie am einfachsten, wenn es eine Datenherkunft gibt, welche alle darzustellenden Tage zur Verfügung stellt. Das heißt, dass für die Darstellung eines kompletten Jahres eine Tabelle mit allen Tagen des Jahres vorliegen sollte. Diese muss zumindest die Datumsangaben enthalten und, soweit geplant, noch weitere Informationen, um Tage nach Wunsch farbig zu markieren oder auch um zusätzliche Texte hinzuzufügen.<\/p>\n
Als Beispiel verwenden wir die Tabelle tblArbeitstage <\/b>aus dem Beitrag Schichtplaner <\/b>(www.access-im-unternehmen.de\/906<\/b>). Diese enthält neben dem Primärschlüsselfeld ArbeitstagID <\/b>zunächst lediglich ein weiteres Feld namens Arbeitstag<\/b>.<\/p>\n
Berichtseinstellungen<\/b><\/p>\n
Der Bericht soll circa 30 bis 40 Elemente nebeneinander anzeigen und ca. 13 übereinander – das bedeutet, dass wir mit dem Querformat besser als mit dem Hochformat fahren werden. Nehmen Sie diese Einstellung gleich nach dem Anlegen des neuen, leeren Berichts vor (unter Access 2010 beispielsweise mit dem Ribbon-Eintrag Seite einrichten|Sei-ten-lay-out|Querformat<\/b>).<\/p>\n
Alternierende Hintergrundfarbe<\/b><\/p>\n
Für unseren Zweck benötigen wir keine alternierende Hintergrundfarbe. Daher stellen Sie die Eigenschaft Alternative Hintergrundfarbe <\/b>für den Detailbereich des Berichts auf die gleiche Farbe ein, die auch die Eigenschaft Hintergrundfarbe <\/b>aufweist (in der Regel Weiß<\/b>).<\/p>\n
Datenherkunft und Steuerelemente<\/b><\/p>\n
Als Datenherkunft stellen wir nicht die Tabelle tblArbeitstage <\/b>ein, sondern eine Abfrage namens qryJahresuebersicht<\/b>. Diese enthält zunächst die beiden Felder DatumID <\/b>und DatumWert<\/b>, die je nach der zu verwendenden Tabelle durch entsprechende Ausdrücke auf die eigentlichen Felder umgebogen werden.<\/p>\n
Auf diese Weise programmieren wir zunächst den Bericht gegen eine generische Abfrage, in der Sie die der eigentlichen Anwendung zugrunde liegende Tabelle und die gewünschten Felder angeben können. Später kommen weitere Felder hinzu – beispielsweise zum Markieren des jeweiligen Tages in einer bestimmten Farbe oder für weitere Eigenschaften.<\/p>\n
Die Abfrage sieht im aktuellen Stadium wie in Bild 1 aus.<\/p>\n
![\"Diese](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_001.png\")
<\/p>\n
Bild 1: Diese Abfrage dient als Grundlage für die Jahresübersicht.<\/span><\/b><\/p>\n Wenn Sie den Bericht namens rptJahresuebersicht <\/b>erstellt haben, fügen Sie die Abfrage als Datenherkunft hinzu. Ziehen Sie außerdem das Feld DatumWert <\/b>in den Detailbereich des Berichts und löschen Sie das automatisch hinzugefügte Bezeichnungsfeld. Das Zwischenergebnis sieht wie in Bild 2 aus.<\/p>\n Bild 2: Der Bericht mit einem einzigen Textfeld in der Entwurfsansicht<\/span><\/b><\/p>\n Erfahrungsgemäß zeigt der Bericht seine Datensätze nun untereinander an (s. Bild 3). Dies müssen wir nun ändern – die Tage eines Monats sollen alle nebeneinander angezeigt werden. Erst mit Beginn eines neuen Monats soll der Bericht eine neue Zeile beginnen.<\/p>\n Bild 3: Anzeige der Datumsangaben untereinander<\/span><\/b><\/p>\n Verantwortlich dafür, ob ein Datensatz in einem Bericht in einer neuen Zeile angezeigt wird, ist die Eigenschaft MoveLayout<\/b>. Hat diese den Wert True<\/b>, was dem Standardwert entspricht, zeigt der Bericht die Steuerelemente für den folgenden Datensatz in einer neuen Zeile an. Stellen Sie diesen Wert jedoch auf False<\/b> ein, nimmt Access keinen Wechsel zu einer neuen Zeile vor – der Datensatz wird in der gleichen Zeile gedruckt wie der vorherige. Wo aber stellen wir diese Eigenschaft ein und wie gelingt es, dass der Bericht nur zu Beginn eines neuen Monats eine neue Zeile beginnt<\/p>\n Dies erreichen wir in der Prozedur, die durch das Ereignis Beim Formatieren <\/b>des Detailbereichs des Formulars ausgelöst wird. Um in diesem Ereignis zu ermitteln, ob das Datum im aktuellen Datensatz sich im gleichen Monat befindet wie das des vorherigen Datensatzes, vergleichen wir das aktuelle Datum mit dem Datum des letzten Tages des aktuellen Monats. Nur in diesem Fall soll die Eigenschaft MoveLayout <\/b>nicht auf False <\/b>eingestellt und der folgende Datensatz somit in der nächsten Zeile gedruckt werden.<\/p>\n Die Prozedur Detailbereich_Format <\/b>aus Listing 1 vergleicht also das Datum des aktuellen Datensatzes mit einem Ausdruck, der den letzten Tag des Monats des aktuellen Datums ermittelt, und stellt MoveLayout <\/b>auf False <\/b>ein, wenn beide Ausdrücke nicht übereinstimmen.<\/p>\n Listing 1: Diese Prozedur sorgt dafür, dass alle Datensätze zu einem Monat in der gleichen Zeile des Berichts landen.<\/span><\/b><\/p>\n Das Ergebnis sieht wie in Bild 4 aus. Die Datensätze eines Monats werden nun zwar in einer Zeile angezeigt, aber leider alle übereinander.<\/p>\n Bild 4: Anzeige der Datensätze eines Monats in einer Zeile, aber übereinander<\/span><\/b><\/p>\n Dies ändern wir im folgenden Schritt. In der Ereignisprozedur Detailbereich_Format <\/b>können wir nämlich auch festlegen, an welcher Position ein Steuerelement angezeigt werden soll (s. Listing 2). In unserem Fall sollen die Datumsangaben eines Monats jeweils um die Breite des Textfeldes des vorherigen Datums nach rechts verschoben werden.<\/p>\n Listing 2: Diese Anpassung sorgt dafür, dass die Tage an der richtigen horizontalen Position erscheinen.<\/span><\/b><\/p>\n Gleichzeitig formatieren wir den Inhalt des Textfeldes bereits so, dass nur noch der Tag angezeigt wird – die Bezeichnung des Monats basteln wir später als Zeilenüberschrift hinzu. Gleiches gilt für den Wochentag, der in einer ersten Zeile über der übersicht angezeigt werden soll.<\/p>\n <\/p>\n Im gleichen Zuge wollen wir direkt sicherstellen, dass die einzelnen Wochentage bereits untereinander abgebildet werden – der erste Montag des Monats Januar soll also genau unter dem ersten Montag des Monats Februar landen.<\/p>\n Die Prozedur ergänzt die vorherige Prozedur um einen Teil, der die aktuelle Position für das Textfeld ermittelt und dieses in der Variablen sngLeft <\/b>speichert.<\/p>\n Diese Variable deklarieren wir im Kopf des Klassenmoduls des Berichts, da diese von Prozeduraufruf zu Prozeduraufruf weitergenutzt werden soll:<\/p>\n Der Wert für sngLeft <\/b>wird auf zwei verschiedene Arten ermittelt – abhängig vom aktuellen Datum:<\/p>\n Die abschließende Anweisung weist den Wert von sngLeft <\/b>der Eigenschaft Left <\/b>des Textfeldes zur Anzeige des aktuellen Datums zu.<\/p>\n Das Ergebnis sieht nun wie in Bild 5 <\/b>aus.<\/p>\n Bild 5: Anzeige der Tage der Monate<\/span><\/b><\/p>\n Monatsnamen hinzufügen<\/b><\/p>\n Als Nächstes fügen wir die Monatsnamen hinzu. Diese sollen in jeder Zeile vor den Tagestextfeldern erscheinen.<\/p>\n Also passen wir zunächst den Entwurf des Berichts an, indem wir das Textfeld txtDatumWert <\/b>etwas nach rechts verschieben und links davon ein neues Textfeld namens txtMonat <\/b>einfügen.<\/p>\n Für dieses stellen Sie die Eigenschaft Steuerelementinhalt auf den Wert =Format(DatumWert;“mmmm“) <\/b>ein (s. Bild 6).<\/p>\n Bild 6: Hinzufügen des Textfeldes zur Anzeige des Monats als Zeilenkopf<\/span><\/b><\/p>\n Außerdem muss eine Zeile der Prozedur Detailbereich_Format <\/b>angepasst werden, und zwar diejenige, welche die Position des ersten Textfeldes mit einem Datum für den jeweiligen Monatsersten ermittelt. Diese ergänzen Sie um die Breite des Textfeldes txtMonat<\/b>:<\/p>\n Wenn Sie nun in die Seitenansicht des Berichts wechseln, löst dies möglicherweise den Fehler aus Bild 7 <\/b>aus (gegebenenfalls ist Ihnen dies auch schon bei einem der vorherigen Schritte passiert). In diesem Fall verkleinern Sie einfach die Breite des Textfeldes txtDatumWert <\/b>so weit, bis der Fehler nicht mehr auftritt. Das Zwischenergebnis aus Bild 8 <\/b>liefert die Monatsnamen als Spaltenüberschrift.<\/p>\n Bild 7: Dieser Fehler wird ausgelöst, wenn Textfelder außerhalb des bedruckbaren Bereichs des Berichtes verschoben werden sollen.<\/span><\/b><\/p>\n Bild 8: Jahresübersicht mit Monatsnamen<\/span><\/b><\/p>\n Den aktuellen Zwischenstand haben wir unter rptJahresuebersicht01 <\/b>gespeichert.<\/p>\n Wochenenden markieren<\/b><\/p>\n Damit sich der Benutzer des Kalenders besser zurechtfinden kann, sollen die Tage des Wochenendes farbig markiert werden. Dies erledigen wir mit der bedingten Formatierung. Markieren Sie das Textfeld txtDatumWert <\/b>und wählen Sie aus dem Kontextmenü den Eintrag Bedingte Formatierung… <\/b>aus.<\/p>\n Im nun erscheinenden Dialog klicken Sie auf neue Regel. Einen Dialog weiter stellen Sie eine Regel wie in Bild 9 zusammen – einmal mit dem Ausdruck Wochentag([DatumWert])=7 <\/b>(für den Samstag) und einmal mit Wochentag([DatumWert])=1 <\/b>(für den Sonntag).<\/p>\n Bild 9: Festlegen der bedingten Formatierung für das Textfeld zur Anzeige des Tages<\/span><\/b><\/p>\n Das Ergebnis finden Sie in Bild 10: Die Samstage und Sonntage werden nun durch verschiedene Graustufen hervorgehoben.<\/p>\n Bild 10: Hervorhebung der Wochenenden<\/span><\/b><\/p>\n Wochentage als überschrift<\/b><\/p>\n Fehlen der Vollständigkeit halber noch die Wochentage als Spaltenüberschriften – beziehungsweise, bei spärlichem Platzangebot, die Kürzel für die Wochentage, also Mo<\/b>, Di<\/b>, Mi<\/b>, Do<\/b>, Fr<\/b>, Sa <\/b>und So<\/b>.<\/p>\n Nun wäre es schön gewesen, wenn es irgendeine Möglichkeit gäbe, dies mit nur einem Steuerelement abzubilden. Wenn wir allerdings keine Daten haben, um eine solche Zeile zu füllen, gelingt dies nicht.<\/p>\n Was bleibt uns also übrig Wir müssen wohl oder übel eine entsprechende Anzahl Textfelder oder Bezeichnungsfelder in einem eigenen Bereich wie etwa dem Berichtskopf anlegen und diese mit den Kürzeln für die Wochentage füllen.<\/p>\n Ich weiß nicht, wie es Ihnen geht, aber ich kann mir beim besten Willen nicht vorstellen, von Hand 37 Bezeichnungsfelder anzulegen und diese mit verschiedenen Beschriftungen zu füllen.<\/p>\n Also verwenden wir eine kleine Hilfsprozedur, die dem Berichtskopf 37 Steuerelemente hinzufügt. Warum gerade 37 Weil der Monatserste immer innerhalb der ersten sieben Wochentage liegt. Sollte der Monatserste ein Sonntag sein (die erste Spalte entspricht dem Montag), benötigen wir, ausgehend von maximal 31 Tagen je Monat, höchstens sieben plus 30 Spalten beziehungsweise Spaltenüberschriften mit den Kürzeln der Wochentage.<\/p>\n Die Prozedur sieht wie in Listing 3 aus. Sie öffnet den Bericht rptJahresuebersicht <\/b>in der Entwurfsansicht und referenziert diesen mit der Objektvariablen rpt<\/b>. In einer For…Next<\/b>-Schleife von 1 <\/b>bis 37 <\/b>legt die Prozedur nun mit der CreateReportControl<\/b>-Methode (nicht zu verwechseln mit der CreateControl<\/b>-Methode, die nur für Formulare funktioniert) neue Steuerelemente an.<\/p>\n Listing 3: Prozedur zum Hinzufügen der Wochentage zum Jahreskalender<\/span><\/b><\/p>\n Die Parameter des Aufrufs geben den Namen des betroffenen Berichts, die Steuerelementart (acLabel<\/b>, also Bezeichnungsfeld) und den Zielbereich (acPageHeader <\/b>für Seitenkopf) an. Anschließend stellt die Prozedur einige Eigenschaften für das soeben erstellte Bezeichnungsfeld ein und verwendet dabei das bereits erstellte Textfeld txtDatumWert <\/b>als Referenz für die Eigenschaften Breite (Width<\/b>) und Höhe (Height<\/b>).<\/p>\n Außerdem liefert dieses Steuerelement die Daten für die horizontale Position des aktuellen Bezeichnungsfeldes. Der Wert für die Eigenschaft Left <\/b>des zuerst angelegten Bezeichnungsfeldes entspricht der gleichnamigen Eigenschaft des Steuerelements txtDatumWert<\/b>, für die folgenden wird der Abstand vom linken Rand jeweils um die Breite dieses Textfeldes vergrößert.<\/p>\n Wie der Bericht nach dem Anlegen der 37 Bezeichnungsfelder aussieht, zeigt Bild 11.<\/p>\n Bild 11: Der Bericht mit Spaltenüberschriften zur Anzeige der Kürzel der Wochentage<\/span><\/b><\/p>\n Informationen darstellen<\/b><\/p>\n Nun wollen wir ja nicht nur die Datumsangaben, sondern gegebenenfalls auch noch weitere Informationen zu jedem Tag anzeigen.<\/p>\n Dazu gibt es verschiedene Möglichkeiten: Sie können beispielsweise verschiedene Schichtarten für einen Tag durch unterschiedliche Farben hervorheben. Oder Sie fügen unterhalb des Datums jeweils noch ein weiteres Feld hinzu, das den Inhalt eines entsprechenden Feldes der Datenherkunft anzeigt. Wir wollen in diesem Fall die zweite Variante implementieren. Dazu legen wir genau unterhalb des Textfeldes txtDatumWert <\/b>ein weiteres Textfeld mit gleichen Maßen an und nennen dieses txtAnzeigeWert<\/b>.<\/p>\n Dieses Feld muss natürlich seinen Wert aus der Datenherkunft beziehen. Also fügen wir der Abfrage qryJahresuebersicht <\/b>zunächst ein mit einem Platzhalterwert gefülltes Feld namens AnzeigeWert <\/b>hinzu (als Platzhalter soll der Buchstabe x <\/b>dienen). <\/p>\n Die Abfrage sieht im Entwurf nun wie in Bild 12 aus.<\/p>\n Bild 12: Ergänzung der Abfrage qryJahresuebersicht um ein Feld zur Anzeige von Inhalten<\/span><\/b><\/p>\n Das Feld AnzeigeWert <\/b>können Sie nun auch als Steuerelementinhalt des soeben angelegten Textfeldes txtAnzeigeWert <\/b>einstellen.<\/p>\n Dieses zeigt dann wie in Bild 13 <\/b>den Platzhalter x<\/b> unterhalb der jeweiligen Datumsangabe an.<\/p>\n Bild 13: Jahresübersicht, vorerst mit Platzhaltern<\/span><\/b><\/p>\n Beispielanwendung<\/b><\/p>\n Um zu demonstrieren, wie Sie nun Texte in den Feldern unterhalb der Tage anzeigen können, legen wir eine kleine Beispieltabelle mit den anzuzeigenden Tagen an. Diese Tabelle ist wie in Bild 14 aufgebaut und muss zumindest ein Feld mit dem Datum (hier TerminDatum<\/b>) und eines mit dem anzuzeigenden Text enthalten (TerminText<\/b>).<\/p>\n Bild 14: Tabelle mit den anzuzeigenden Beispielterminen<\/span><\/b><\/p>\n Um diese Daten im Bericht anzuzeigen, müssen Sie die Tabelle tblTermine <\/b>in die Abfrage qryJahresuebersicht <\/b>und dort speziell das Feld TerminText <\/b>in das Feld AnzeigeWert <\/b>integrieren.<\/p>\n Dazu fügen Sie zunächst die Tabelle tblTermine <\/b>zum Entwurf dieser Abfrage hinzu. ändern Sie den Ausdruck für das Feld AnzeigeWert <\/b>wie folgt:<\/p>\n Außerdem müssen Sie noch eine Verknüpfung erstellen, die dafür sorgt, dass die Termine der Tabelle tblTermine <\/b>den richtigen Daten der Tabelle tblArbeitstage <\/b>zugeordnet wird. Dazu verbinden Sie die beiden Felder Arbeitstag <\/b>und TerminText<\/b>.<\/p>\n Aktuell würde die Abfrage nur solche Datensätze der Tabelle tblArbeitstage <\/b>anzeigen, für deren Datum ein entsprechender Datensatz in der Tabelle tblTermine <\/b>vorliegt.<\/p>\n Damit die Abfrage nach wie vor alle Datensätze der Tabelle tblArbeitstage<\/b> liefert und dort, wo vorhanden, noch die Werte des Feldes TerminText <\/b>der Tabelle tblTermine <\/b>beisteuert, stellen Sie die Verknüpfungseigenschaften der Beziehung zwischen den beiden Tabellen wie in Bild 15 ein. <\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_002.png\")
<\/p>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_003.png\")
<\/p>\nPrivate Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, FormatCount As Integer<\/span>)\r\n If <\/span>Not<\/span> Me!DatumWert = DateSerial(Year(Me!DatumWert), Month(Me!DatumWert) + 1, 1) - 1 Then<\/span>\r\n Me.MoveLayout = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_004.png\")
<\/p>\nPrivate Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, FormatCount As Integer<\/span>)\r\n If <\/span>Not<\/span> Me!DatumWert = DateSerial(Year(Me!DatumWert), Month(Me!DatumWert) + 1, 1) - 1 Then<\/span>\r\n Me.MoveLayout = False<\/span>\r\n End If<\/span>\r\n If <\/span>Day(Me!DatumWert) = 1 Then<\/span>\r\n sngLeft<\/span> = (Weekday(Me!DatumWert, vbMonday) - 1) * Me!txtDatumWert.Width\r\n Else<\/span>\r\n sngLeft<\/span> = sngLeft<\/span> + Me!txtDatumWert.Width\r\n End If<\/span>\r\n Me!txtDatumWert.Left<\/span> = sngLeft\r\nEnd Sub<\/span><\/pre>\nDim <\/span>sngLeft As Single<\/span><\/pre>\n\n
![\"Anzeige](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_005.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_007.png\")
<\/p>\nsngLeft<\/span> = Me!txtMonat.Width + (Weekday(Me!DatumWert, vbMonday) - 1) * Me!txtDatumWert.Width<\/pre>\n![\"Dieser](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_006.png\")
<\/p>\n![\"Jahresübersicht](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_008.png\")
<\/p>\n![\"Festlegen](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_009.png\")
<\/p>\n![\"Hervorhebung](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_010.png\")
<\/p>\nPublic Sub <\/span>WochentageUeberschriften()\r\n Dim <\/span>rpt As <\/span>Report\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>lbl As <\/span>Label\r\n Dim <\/span>sngLeft As Single<\/span>\r\n DoCmd.OpenReport \"rptJahresuebersicht\", acViewDesign\r\n Set<\/span> rpt = Reports!rptJahresuebersicht\r\n For i = 1 To 37\r\n Set<\/span> lbl = rpt.Application.CreateReportControl(rpt.Name, acLabel, acPageHeader)\r\n With<\/span> lbl\r\n If <\/span>i = 1 Then<\/span>\r\n sngLeft<\/span> = rpt!txtDatumWert.Left\r\n Else<\/span>\r\n sngLeft<\/span> = sngLeft<\/span> + rpt!txtDatumWert.Width\r\n End If<\/span>\r\n .Left<\/span> = sngLeft\r\n .Width = rpt!txtDatumWert.Width\r\n .Height = rpt!txtDatumWert.Height\r\n .Caption = Format(i + 1, \"ddd\")\r\n End With<\/span>\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_011.png\")
<\/p>\n![\"Ergänzung](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_012.png\")
<\/p>\n![\"Jahresübersicht,](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_013.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_014.png\")
<\/p>\nAnzeigeWert: TerminText<\/pre>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_015.png\")
<\/p>\n
![\"Ergebnis](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_016.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_05\/pic_903_017.png\")
<\/p>\n