<\/p>\n
Was die Darstellung von Terminen und Kalendern angeht, ist Outlook der Platzhirsch. Es gibt kaum eine Ansicht, die sich damit nicht verwirklichen lässt. Oder doch Nun: Ihre Kunden oder Sie selbst haben bestimmt Ideen, die selbst Outlooks Berichts-Engine an die Leistungsgrenze bringen. Und hier kommt Access ins Spiel: Verwenden Sie Berichte und bringen Sie Access dazu, Ihre Termine ganz nach Wunsch anzuzeigen.<\/b><\/p>\n
Die Anzeige von Terminen in Access-Berichten ist seit jeher mit Bastelei verbunden – außer Sie begnügen sich damit, die Termine einfach tabellarisch aufzulisten. Dann brauchen Sie wirklich nicht viel mehr als einen handelsüblichen Bericht, in dessen Detailbereich Sie die vorliegenden Termine eintragen. Anspruchsvoller wird es dann schon, wenn der Bericht die Termine und deren Zeitaufwand hübsch grafisch aufbereitet darstellen soll – genau so, wie es auch beispielsweise in der Tagesübersicht von Outlook der Fall ist (siehe Bild 1).<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Anzeige der Termine in der Tagesübersicht von Outlook<\/span><\/b><\/p>\n Auch erfahrenen Berichtsdesignern dürfte der Nachbau eines solchen Layouts leichte Sorgenfalten auf die Stirn legen, ist man doch normalerweise gewohnt, die Daten schön untereinander anzuordnen und eventuelle Feinheiten durch Gruppierungen oder Unterberichte abzudecken. Wer schon in unseren Beitrag Berichte manuell füllen <\/b>(Shortlink 659) hineingeschaut hat, ahnt bereits, dass es hier nicht mit rechten Dingen – äh, Steuerelementen – zuging, sondern dass wir hier von Berichtsmethoden wie Print <\/b>und Line <\/b>Gebrauch gemacht haben.<\/p>\n Das allein reicht allerdings längst nicht aus, um Termine so wie unter Outlook darzustellen (genau genommen werden wir nicht jedes Detail nachbilden, doch die wichtigsten Elemente berücksichtigen wir natürlich).<\/p>\n Beginnen wir jedoch bei den Daten, die unserem Bericht zugrunde liegen – und die sind bei Weitem das am wenigsten Komplizierte dieser Lösung.<\/p>\n Die Tabelle tblTermine <\/b>sieht wie in Bild 2 aus und enthält die folgenden Felder:<\/p>\n Bild 2: Die Tabelle tblTermine in der Entwurfsansicht<\/span><\/b><\/p>\n Die Funktion der letzten drei Felder wird weiter hinten erläutert, außerdem erfahren Sie dort, wie diese Felder gefüllt werden. Aktuell reicht es, wenn Sie wissen, dass die in diesem Beitrag vorgestellte Lösung Ihnen diese Aufgabe abnimmt.<\/p>\n Den Aufbau der Tabelle tblFarben <\/b>entnehmen Sie Bild 3. Sie enthält neben dem Primärschlüsselfeld ID <\/b>ein Feld zur Bezeichnung der Farbe (Farbe<\/b>) sowie ein Feld mit dem Zahlenwert, der die Farbe repräsentiert (Farbwert<\/b>).<\/p>\n Bild 3: Diese Tabelle speichert die Hintergrundfarben für die Termine im Bericht.<\/span><\/b><\/p>\n Das war schon fast alles, was Sie zum Modellieren eines Berichts wie in Bild 5 benötigen – es fehlen nur noch ein paar Hilfstabellen, Abfragen und einige Zeilen VBA-Code, um den Bericht zu füllen.<\/p>\n Bild 5: Beispiel für einen Terminbericht mit überlappenden Terminen<\/span><\/b><\/p>\n Termineingabe<\/b><\/p>\n Auf die Beschreibung von Formularen zur Eingabe der Termine verzichten wir in diesem Beitrag aus Platzgründen. Sie können die Termine allerdings in ein handelsübliches Formular eingeben oder diese auch aus Outlook importieren. Wie das geht, erfahren Sie beispielsweise im Beitrag Outlook-Termine im Griff <\/b>(Shortlink 439).<\/p>\n Grundlagen des Kalenderberichts<\/b><\/p>\n Glücklicherweise gibt es auch Tage ohne Termine, und daher enthält ein Kalender auch nicht für jeden Tag Aufzeichnungen oder Einträge. Der Terminbericht sollte aber trotzdem für jeden Tag eine eigene Seite anzeigen – allein, damit man nicht immer auf das Datum schauen muss, wenn man den Kalender am Bildschirm oder auch in ausgedruckter Form durchblättert. Nach Montag soll Dienstag folgen und nicht schon der Mittwoch, wenn es am Dienstag keine Termine gibt.<\/p>\n Wie aber bringen wir Access dazu, ganz banal einen 365-seitigen Bericht als Grundlage für den Terminkalender eines Jahres zu liefern – ohne dass für jeden Tag ein Termin angelegt wäre<\/p>\n Nun, das geht ganz einfach: Wir brauchen einfach nur eine Datenherkunft, die tatsächlich alle 365 Tage liefert. Die Tabelle tblKalenderdaten <\/b>ist eine solche Datenherkunft: Sie enthält für jeden Tag des Jahres 2009 einen eigenen Datensatz mit einem Primärschlüssel und einem Datumsfeld (siehe Bild 4). Wenn Sie möchten, so können Sie diese Tabelle durch weitere Spalten wie Werktag oder Feiertag ergänzen und solche Tage später im Bericht anders formatieren.<\/p>\n Bild 4: Diese Tabelle liefert die Grundlage für einen ganzjährigen Kalenderbericht.<\/span><\/b><\/p>\n Für Letzteres sollten Sie unbedingt einen eindeutigen Schlüssel festlegen, damit die Tabelle kein Datum doppelt enthalten kann. Damit das Füllen der Tabelle nicht soviel Arbeit macht, übernimmt die Routine aus Listing 1 diese Aufgabe. Sie erwartet das Start- und das Enddatum als Parameter und legt Datensätze für den angegebenen Zeitraum an.<\/p>\n Listing 1: Füllen der Tabelle tblKalenderdaten<\/p>\n Bericht anlegen<\/b><\/p>\n In den folgenden Absätzen erfahren Sie, wie Sie den Bericht aus Bild 5 anlegen und diesen mit Inhalt füllen. Damit Sie den Bericht Ihren Bedürfnissen anpassen können, bauen wir ihn Stück für Stück auf.<\/p>\n Den Start macht ein leerer Bericht, dem Sie übergangsweise die Tabelle tblKalenderdaten <\/b>als Datenherkunft zuweisen.<\/p>\n Eine Seite pro Tag<\/b><\/p>\n Der Kalender soll jeden Tag auf einer eigenen Seite anzeigen. Daher reicht es nicht aus, einfach nur das Feld Kalenderdatum <\/b>aus der Datenherkunft in den Detailbereich des Berichts zu ziehen. Sie müssen auch noch dafür sorgen, dass nach (oder vor) jedem Datensatz ein Seitenwechsel erfolgt. Theoretisch würde es reichen, den Detailbereich einfach groß genug zu gestalten.<\/p>\n Allerdings soll der Detailbereich möglichst nur den Kalender selbst enthalten, daher benötigen wir einen anderen Berichtsbereich als Unterkunft für das Feld Kalenderdatum (das ja im Bericht auch das Datum anzeigen soll).<\/p>\n Der Seitenbereich wäre eine gute Wahl, aber auch diesen sparen wir für eventuelle Elemente wie eine Überschrift auf. Die Kalenderdaten sollen in der richtigen Reihenfolge angezeigt werden, was Sie durch Anlegen einer Sortierung für das Feld Kalenderdatum <\/b>im Bericht erreichen.<\/p>\n Und wenn Sie schon einmal dabei sind, können Sie auch gleich eine Gruppierung daraus machen und das Feld Kalenderdatum <\/b>im Gruppenkopf unterbringen.<\/p>\n Dem Gruppenkopfbereich weisen Sie dann noch über das Setzen des Werts Vor Bereich <\/b>für die Eigenschaft Neue Seite <\/b>einen Seitenumbruch hinzu und stellen so sicher, dass jedes Datum auf einer neuen Seite angezeigt wird (siehe Bild 6).<\/p>\n Bild 6: Dieser Bericht zeigt jeden Tag auf einer neuen Seite an.<\/span><\/b><\/p>\n In der Seitenansicht sieht der Bericht nun wie in Bild 7 aus und liefert die erwarteten Datumsangaben auf je einer eigenen Seite.<\/p>\n Bild 7: Die Grundlage für den Terminkalender mit Tagesübersicht<\/span><\/b><\/p>\n Stundenplan hinzufügen<\/b><\/p>\n Im nächsten Schritt fügen wir das Raster hinzu, das den Tag beziehungsweise den Detailbereich in 24 Elemente aufteilt und diese mit den entsprechenden Stundenangaben versieht (siehe Bild 8).<\/p>\n Bild 8: Der Terminkalender besitzt nun ein Raster, in das man nur noch die Termine einfügen muss.<\/span><\/b><\/p>\n Dies geschieht in einer Routine, die im Ereignis Beim Drucken <\/b>des Detailbereichs des Berichts ausgelöst wird:<\/p>\n Die Routine UhrzeitrasterAnlegen <\/b>(Listing 2) deklariert zunächst vier Variablen namens sngRepX1<\/b>, sngRepX2<\/b>, sngRepY1 <\/b>und sngRepY2<\/b>. Darin speichert sie die Koordinaten des Detailbereichs relativ zur linken oberen Ecke, die sie aus den Eigenschaften ScaleTop<\/b>, ScaleWidth<\/b>, ScaleLeft <\/b>und ScaleHeight <\/b>erhält.<\/p>\n Listing 2: Herstellen eines Rasters zur optischen Unterstützung der anschließend hinzugefügten Termine<\/p>\n Danach baut die Routine auch schon die Linienstruktur und die darin enthaltenen Stundenzahlen auf, und zwar in einer Schleife, welche die Werte 1 <\/b>bis 25 <\/b>durchläuft – immerhin gibt es 24 Stunden, von denen jede oben und unten durch eine Linie begrenzt werden möchte.<\/p>\n Beschriftungen brauchen wir aber ebenfalls nur 24, weshalb der untere Teil der Schleife nur ausgeführt wird, solange die Zählervariable einen Wert kleiner 25 <\/b>aufweist. Man hätte auch zwei Schleifen aufbauen können – das ist aber sicher Geschmackssache.<\/p>\n Innerhalb der Schleife sorgt die Line<\/b>-Anweisung zunächst dafür, dass 25 Linien sorgfältig auf die Höhe des Detailbereichs aufgeteilt werden. Die Breite wird dabei durch den ersten und dritten Parameter angegeben, wobei der erste den Wert 0 <\/b>und der dritte einen Wert aufweist, welcher der Breite des Detailbereichs entspricht.<\/p>\n Die vertikale Position der Linie geben der zweite und der vierte Parameter der Line<\/b>-Funktion an, welche die gleiche Formel enthalten. Diese liefert den dem Wert von i <\/b>entsprechenden Anteil der Gesamthöhe des Detailbereichs in der aktuellen Einheit, standardmäßig also in Twips.<\/p>\n Termine vorbereiten<\/b><\/p>\n Nun geht es an den Teil des Berichts, in dem eine Menge Gehirnschmalz steckt – zumindest, wenn man dem Benutzer ermöglichen möchte, auch sich überschneidende Termine in den Kalender einzutragen. Man könnte nun sagen, dass dies keinen Sinn macht, da man normalerweise immer nur eine Tätigkeit zur gleichen Zeit betreibt – aber möglicherweise möchte der Benutzer ja auch weitere Ereignisse im Terminkalender unterbringen.<\/p>\n <\/p>\n Schauen wir uns also an, was man braucht, um zwei oder mehr Termine im Bericht unterzubringen, die sich zumindest teilweise überschneiden. Die erste wichtige Erkenntnis ist dabei, dass die Termine nur dort auf mehrere Spalten aufgeteilt werden, wo auch mehrere sich überschneidende Termine angezeigt werden sollen. Dabei kann es sich um zwei Termine handeln, die sich ganz oder teilweise überlappen, vielleicht sind es aber auch drei oder mehr. Dabei gibt es dann auch wieder Varianten: Wenn der erste, zweite und dritte Termin einen gemeinsamen Zeitpunkt haben, dann brauchen Sie auch drei Spalten. Wenn sich hingegen der erste und der zweite Termin überschneiden, der dritte Termin aber erst nach dem ersten Termin beginnt, reichen zwei Zeilen aus – der dritte Termin kann dann ja in der ersten Zeile hinter dem ersten Termin eingefügt werden.<\/p>\n Danach folgen dann möglicherweise weitere Termine, die sich mit keinem anderen Termin überschneiden und die deshalb wieder über die ganze Breite des Berichts gestreckt werden sollen.<\/p>\n Das ist der erste Schritt zur Lösung: Wir müssen herausfinden, welche Bereiche es für den aktuellen Tag gibt und wie viele Spalten jeder Bereich aufweist. Einen Bereich mit x Spalten und einen Bereich mit y Spalten trennt ein, wenn auch noch so kleiner, Bereich ohne Termin. Und zusätzlich müssen wir ermitteln, wie viele Spalten der jeweilige Bereich benötigt.<\/p>\n Bei diesem Schritt hilft die Abfrage qryZeitSpaltenanzahl <\/b>mit der Entwurfsansicht aus Bild 9. Sie führt das Ergebnis der Abfragen qryZeit <\/b>und qryTermine <\/b>zusammen.<\/p>\n Bild 9: Die Abfrage qryZeitSpaltenanzahl in der Entwurfsansicht<\/span><\/b><\/p>\n Die Abfrage qryZeit <\/b>(siehe Bild 10) kombiniert den Inhalt der beiden Tabellen tblStunden <\/b>und tblMinuten <\/b>so, dass das Ergebnisfeld der Abfrage alle Minuten von 0:00 <\/b>bis 23:59 <\/b>inklusive Stundenangabe liefert. Die Abfrage qryTermine <\/b>entspricht weitgehend der Tabelle tblTermine<\/b>, enthält aber ein zusätzliches Feld namens Endzeit1 <\/b>mit folgendem Inhalt:<\/p>\n Bild 10: Die Abfrage qryZeit liefert alle Zeiten von 0:00 bis 23:59 im Minutenabstand.<\/span><\/b><\/p>\n Dieser Ausdruck liefert den gleichen Wert wie das Feld Endzeit<\/b>, wenn der Termin 60 Minuten oder länger dauert, sonst erhält Endzeit1 <\/b>einen Wert, welcher der Startzeit plus 60 Minuten entspricht. Somit ergibt sich aus Startzeit und Endzeit1 immer ein Termin, der mindestens eine Stunde dauert – warum, erfahren Sie später.<\/p>\n Welches Ergebnis aber liefert die Abfrage qryZeitSpaltenanzahl<\/b> Betrachten wir zunächst die ersten beiden Felder. Diese liefern alle Kombinationen aus den Minuten eines Tages (von 0:00 <\/b>bis 23:59<\/b>) und den Terminen.<\/p>\n Wenn nun für den ersten Januar drei Termine vorliegen, wird jede Minute aus qryZeit <\/b>für jeden Termin einmal mit den Datensätzen der Tabelle qryTermine <\/b>verknüpft. Nun kommt noch eine Gruppierung hinzu, welche die beiden Felder Zeit <\/b>aus qryZeit <\/b>und Termindatum <\/b>aus qryTermine <\/b>betrifft. Jede Kombination aus Zeit <\/b>und Termindatum <\/b>wird somit nur noch einmal angezeigt. Fehlt noch das dritte Feld mit der Bezeichnung InBereich<\/b>. Es liefert die Summe eines Ausdrucks, der aus zwei mit Und <\/b>verknüpften boolschen Ausdrücken besteht:<\/p>\n Der Ausdruck liefert den Wert True <\/b>(also -1<\/b>), wenn für den aktuellen Datensatz die Startzeit <\/b>eines Termins vor dem Wert des Feldes Zeit <\/b>liegt und der Inhalt von Endzeit1 <\/b>hinter Zeit<\/b>, und er liefert False <\/b>(also 0<\/b>), wenn eine der beiden Bedingungen nicht zutrifft.<\/p>\n Wenn es nun beispielsweise einen Termin gibt, dessen Start vor einem Zeitpunkt, sagen wir 10:00 Uhr, und dessen Ende nach diesem Zeitpunkt liegt, dann liefert der obige Ausdruck den Wert -1<\/b>.<\/p>\n Vielleicht gibt es auch zwei oder mehr solcher Termine, dann liefert das Feld InBereich <\/b>die Summe der True<\/b>-Werte, also beispielsweise -1+(-1)+(-1)=-3<\/b>. Das Vorzeichen ist uns derzeit egal, wichtig ist nur, dass der Ausdruck für jede Minute eines Tages die Anzahl der Termine liefert, die für diese Minute festgelegt sind.<\/p>\n Wenn Sie sich das Ergebnis ansehen, werden Sie beispielsweise Werte wie in Bild 11 vorfinden. Dort gibt es bis 0:50 genau einen Termin und ab 0:51 sind es zwei. Ob der erste Termin vorher endete und dann zwei neue beginnen oder ob zum ersten Termin einer hinzukommt, ist egal – wichtig ist nur, dass Sie wissen, wie viele Termine in jeder Minute laufen.<\/p>\n Bild 11: Um 0:51 kommt zum ersten Termin ein zweiter hinzu.<\/span><\/b><\/p>\n Wie können wir nun daraus ableiten, über wie viele Spalten sich die Termine erstrecken beziehungsweise welchen Zeitraum dieser Bereich einnimmt Und wie will man eigentlich zwei Bereiche mit unterschiedlicher Spaltenzahl voneinander trennen, wenn die Termine etwa eines einspaltigen und eines mehrspaltigen Bereichs unmittelbar aufeinanderfolgen Hier hilft ein Kunstgriff: Der Ausdruck, der ermittelt, ob ein Termin zu einer bestimmten Minute stattfindet oder nicht, lässt die letzte Minute des Terminzeitraums aus.<\/p>\n Auch wenn ein Termin etwa bis zu einer vollen Stunde wie 12:00 Uhr dauert, wird er nur bis 11:59 Uhr berücksichtigt ([Endzeit]>[Zeit]<\/b>). Wenn der nächste Termin nun um 12:00 Uhr beginnt und kein Termin vor 12:00 Uhr beginnt und nach 12:00 Uhr endet, wird durch den Wert 0 <\/b>für das Feld InBereich <\/b>der Abfrage qryZeitSpaltenanzahl <\/b>eine Zone gekennzeichnet, die keinen Termin enthält und somit den Wechsel zwischen zwei Bereichen markieren kann.<\/p>\n Das ist zum Beispiel in Bild 12 zum Zeitpunkt 12:00 Uhr der Fall.<\/p>\n Bild 12: Um 13:00 Uhr gehen zwei Termine zu Ende und ein weiterer beginnt – Zeit, die Anzahl der Spalten zu prüfen.<\/span><\/b><\/p>\n Nachdem Sie nun wissen, wie wir die Anzahl der Termine pro Minute und die Zeitpunkte für das Umstellen der Spaltenanzahl für die Ausgabe der Terminblöcke ermitteln, fehlt noch die Routine, mit der wir diese Informationen auswerten und in die Felder Spalte<\/b>, Spaltenzahl <\/b>und Bereich <\/b>der Tabelle tblTermine <\/b>eintragen können.<\/p>\n Diese Routine heißt BereicheUndSpaltenanzahlErmitteln <\/b>(Listing 3) und wird einmal beim Öffnen des Berichts aufgerufen.<\/p>\n Listing 3: Vorbereiten der Termine für die mehrspaltige Anzeige im Terminbericht<\/p>\n Die Routine durchläuft zunächst alle Datensätze der soeben beschriebenen Abfrage qryZeitSpaltenanzahl<\/b>. Der Wert einer temporären Variablen namens intAktuellerBereich <\/b>ist beim Start 0 <\/b>und wird dann jeweils auf den Wert von intBereich <\/b>gesetzt – also entweder 0 <\/b>oder einen von der Anzahl der gleichzeitigen Termine abhängigen negativen Wert.<\/p>\n Dies hat den Hintergrund, dass bei jedem Durchlauf geprüft werden soll, ob entweder die Anzahl der Termine in der vorherigen Minute gleich 0 war und nun höher ist oder ob es vorher einen oder mehrere Termine gab und jetzt keinen mehr.<\/p>\n Solange kein Bereichsübergang eines oder mehrerer Termine gefunden wird, prüft die Routine jeweils, ob es in der aktuellen Minute mehr Termine gibt, als es maximal in den bisherigen Minuten des aktuellen Bereichs gab.<\/p>\n Dies dient dazu, die Anzahl der Spalten für diesen Bereich zu ermitteln. Erst wenn die Anzahl der aktuellen Termine einer Minute 0 ist, erkennt die Routine einen Bereichswechsel und schreibt die maximale Terminanzahl dieses Bereichs in das Feld Spaltenzahl <\/b>und eine laufende Nummer für den Bereich in das Feld Bereich <\/b>der Tabelle tblTermine<\/b>. Dies geschieht für alle Einträge der Abfrage qryZeitSpaltenanzahl<\/b>.<\/p>\n Nun fehlt noch die Ermittlung der Spalte, in welche der Bericht die einzelnen Termine einfügen soll. Dies geschieht innerhalb einer For…Next<\/b>-Schleife für jeden der zuvor ermittelten Bereiche. Innerhalb dieser Schleife öffnet die Routine ein Recordset, das alle Termine des aktuellen Bereichs enthält – und zwar in chronologischer Reihenfolge.<\/p>\n Der erste Termin gehört zweifelsohne in die erste Spalte, was auch direkt durch Eintragen der Zahl 1<\/b> in das Feld Spalte <\/b>des entsprechenden Datensatzes manifestiert wird. Die übrigen werden in einer Do While<\/b>-Schleife durchlaufen.<\/p>\n Innerhalb dieser Schleife durchläuft eine weitere For…Next<\/b>-Schleife alle Spalten dieses Bereichs und prüft, ob in der aktuellen Spalte schon ein Termin liegt, der sich mit dem aktuellen Termin der Do While<\/b>-Schleife überschneidet. Falls dies der Fall ist, prüft die Routine die nächste Spalte und so weiter, bis eine freie Spalte gefunden wurde. Auch hier wird die Spalte wieder in das Feld Spalte <\/b>des aktuellen Datensatzes der Tabelle tblTermine <\/b>eingetragen.<\/p>\n Dieses Spiel wiederholt sich so lange, bis alle Termine mit Bereich, Spaltennummer und Spaltenzahl ausgestattet sind. In einem einfachen Fall sieht dies dann wie in Bild 13 aus.<\/p>\n Bild 13: Termindatensätze mit den Informationen, die zur Anzeige in einem mehrspaltigen Kalenderbericht nötig sind<\/span><\/b><\/p>\n Termine in den Bericht bringen<\/b><\/p>\n Die Termine müssen Sie nun nur noch im Bericht unterbringen. Dazu brauchen Sie noch zwei weitere Abfragen. Die erste, qryRptTermineMehrspaltig<\/b>, führt die Termine aus tblTermine <\/b>mit den Farbbezeichnungen aus der Tabelle tblFarben <\/b>zusammen (siehe Bild 14).<\/p>\n Bild 14: Diese Abfrage führt Termine und Farben zusammen.<\/span><\/b><\/p>\n Nun müssen wir die Termine noch in eine Form überführen, die sie als Datenherkunft für den Terminbericht verwendbar macht. Dazu stellen Sie einfach eine weitere Abfrage zusammen, welche die zuvor erstellte Abfrage mit der Tabelle tblKalenderdaten <\/b>zusammenführt. Zwischen dem Feld Kalenderdatum <\/b>der Tabelle tblKalenderdaten <\/b>und dem Feld Termindatum <\/b>der Abfrage qryRptTermineMehrspaltig <\/b>stellen Sie eine Beziehung her, die alle Datensätze der Tabelle tblKalenderdaten<\/b>, aber nur diejenigen der Tabelle qryRptTermineMehrspaltig <\/b>enthält, deren Termindatum mit dem Kalenderdatum des aktuellen Datensatzes zusammenhängt (siehe Bild 15).<\/p>\n Bild 15: Zusammenführen von Terminen und Kalenderdaten im Entwurf …<\/span><\/b><\/p>\n Die Datenblattansicht aus Bild 16 zeigt das Ergebnis dieser Abfrage: Es sind alle Datumsangaben enthalten, egal ob dort ein Termin stattfindet oder nicht. Wenn mehrere Termine an einem Datum stattfinden, wird dieses in Form der entsprechenden Anzahl Datensätze realisiert.<\/p>\n Bild 16: … und in der Datenblattansicht<\/span><\/b><\/p>\n Diese Abfrage weisen Sie dem bereits vorbehandelten Bericht statt der bisherigen Datenherkunft tblKalenderdaten <\/b>zu. Das bereits im Seitenkopf enthaltene Feld Kalenderdatum <\/b>können Sie dort belassen, da es ja auch in der neuen Datenherkunft enthalten ist.<\/p>\n Die übrigen sieben Felder ziehen Sie einfach aus der Feldliste in den Detailbereich (siehe Bild 17). Stellen Sie die Eigenschaft Sichtbar <\/b>der hinzugefügten Steuerelemente auf den Wert Nein <\/b>ein.<\/p>\n Bild 17: Der Bericht sieht in der Entwurfsansicht recht banal aus. Die Steuerelemente sollen alle unsichtbar sein.<\/span><\/b><\/p>\n Das Eintragen übernimmt die Routine TermineEinfuegen<\/b> (Listing 4). Die Routine ermittelt wiederum zunächst die Abmessungen des Detailbereichs und kontrolliert, ob der aktuelle Datensatz einen konkreten Termin enthält (es könnte ja auch einfach ein Datum sein) und fügt nur dann den Termin hinzu. Dabei werden die Koordinaten der dazu verwendeten und mit der Line<\/b>-Methode gezeichneten Rechtecke über die aktuellen Maße des Berichts sowie die Anzahl der Spalten und die Länge des Termins ermittelt.<\/p>\n Listing 4: Eintragen der Termine in den Bericht<\/p>\n Wenn der Termin kürzer als eine Stunde ist, dann kommt das bereits weiter oben besprochene Feld Endzeit1 <\/b>der Datenherkunft zum Tragen, dass Terminen von einer Dauer unter einer Stunde eine neue Endzeit zuweist, die den Termin auf die Dauer einer Stunde verlängert. Ist das der Fall, liegt also der Wert von Endzeit1 <\/b>hinter Endzeit, zeichnet die Routine noch ein Rechteck über das bereits vorhandene Rechteck für den Termin. Dieses ist auf der linken Seite ein wenig schmaler, sodass dort eine kleine Zunge herausschaut, welche die eigentliche Dauer des Termins grafisch anzeigt, wie es auch unter Outlook geschieht (siehe Bild 18).<\/p>\n Bild 18: Die Länge von Terminen, die weniger als eine Stunde dauern, wird durch eine kleine Zunge auf der linken Seite dargestellt.<\/span><\/b><\/p>\n Der eigentliche Körper des Termins ist dann dennoch hoch genug, um die Anzeige der Terminbezeichnung und der Dauer zu gewährleisten.<\/p>\n Nach dem Zeichnen der Kästen für die grafische Darstellung sind eben jene Texte an der Reihe. Da der Raum für die Terminbezeichnung in Abhängigkeit von der Anzahl der Spalten recht knapp werden kann und der Text nicht über den Rand der Terminbox hinaus gezeichnet werden soll, prüft die Funktion TextWidth <\/b>des Report<\/b>-Objekts die zu erwartende Länge der Terminbezeichnung und kürzt diese jeweils um einen Buchstaben, bis der Betreff in das Kästchen passt. Ist das erledigt, werden nochmals vier Zeichen abgeschnitten und durch drei Punkte (…) ersetzt, um die Kürzung zu verdeutlichen. Darunter schreibt die Routine schließlich noch die Dauer des Termins.<\/p>\n Termin für Termin<\/b><\/p>\n Was aber geschieht, wenn ein Tag nicht nur einen, sondern mehrere Termine hat Eigentlich müsste doch dann jeweils eine neue Seite mit dem gleichen Datum, aber dem nächsten Termin angelegt werden So wäre es auch, wenn die Routine TermineEinfuegen <\/b>nicht am Ende den Wert der Eigenschaft MoveLayout <\/b>des Berichts einstellen würde. Diese Eigenschaft legt fest, ob der nächste Datensatz im nächsten Detailbereich ausgegeben werden soll, was der Normalzustand ist, oder ob die Daten im gleichen Detailbereich erscheinen sollen.<\/p>\n Und genau das ist es, was diesen Bericht überhaupt möglich macht: Immerhin sind die einzelnen Detailbereiche eines Berichts unter Access naturgemäß untereinander angeordnet, was einer nebenläufigen Anordnung von Terminen entgegenstünde.<\/p>\n Also stellt die Routine MoveLayout <\/b>auf False<\/b>, wenn der aktuelle Datensatz einen Termin enthält, und verhindert so den Sprung nach unten zum nächsten Detailbereich.<\/p>\n Nun gibt es noch ein Problem: Das Raster zur Anzeige der Uhrzeiten und der Linien zu ihrer optischen Hervorhebung wird aktuell noch mit jedem Datensatz gedruckt.<\/p>\n Das ist nicht schlimm, wenn ein Tag nur einen oder keinen Termin enthält, weil die Routine UhrzeitrasterAnlegen <\/b>dann ja auch nur einmal aufgerufen wird.<\/p>\n Wenn ein Tag allerdings zwei oder mehr Termine enthält, dann wird das Raster entsprechend der Anzahl der Termine gedruckt, was den gleichen Effekt hat, als wenn man die Uhrzeiten und Linien fett drucken würde.<\/p>\n Damit dies nicht geschieht, deklarieren Sie im Berichtsmodul eine Variable namens bolRaster<\/b>:<\/p>\n Diese hat standardmäßig den Wert False<\/b>, sodass Sie in der Routine, die durch das Ereignis Beim Drucken <\/b>des Berichts ausgelöst wird, genau dann das Raster anlegen sollten, wenn bolRaster <\/b>den Wert False <\/b>hat: <\/p>\n Danach wird bolRaster <\/b>auf True <\/b>eingestellt, damit beim nächsten Termin nicht wieder das komplette Raster ausgegeben wird.<\/p>\n Damit dies nach der Abarbeitung aller Termine einer Seite auf der folgenden Seite wieder geschieht, legen Sie noch eine weitere Routine an, die durch das Ereignis Beim Formatieren <\/b>des Seitenkopfes ausgelöst wird. Diese Routine stellt bolRaster <\/b>wieder auf False <\/b>ein, damit das Raster im nächsten Detailbereich wieder gedruckt wird:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die hier vorgestellte Lösung ist ein Beispiel dafür, was man mit Berichten alles anstellen kann. Auf die gleiche Weise können Sie theoretisch mit vielen anderen Daten verfahren, die Sie bisher aufgrund der Einschränkungen durch die vertikale Anordnung der Berichtsbereiche nicht wie gewünscht ausgeben konnten.<\/p>\n Der in diesem Beitrag beschriebene Terminbericht kann ebenfalls noch erweitert werden. Denkbar wären etwa das vorherige Festlegen des Zeitraums, der pro Tag angezeigt werden soll. Auch könnte man die Terminboxen mit weiterem Schnickschnack wie einem schattierten Hintergrund versehen.<\/p>\n Vielleicht möchten Sie ja auch dem Berichtskopf noch eine Übersicht des aktuellen Monats hinzufügen, wie es in Outlook der Fall ist<\/p>\n Eine andere Ansicht der Termine ist natürlich auch möglich. So könnten Sie die Termine für eine Woche nebeneinander anzeigen, wobei die Darstellung mehrerer Termine am gleichen Tag nebeneinander wohl nicht sinnvoll wäre.<\/p>\n Haben Sie weitere Ideen für Berichte, die wir in Access im Unternehmen <\/b>vorstellen sollen Dann teilen Sie uns diese unter der E-Mail-Adresse info@access-im-unternehmen.de <\/b>mit.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Termine.mdb<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic002_opt.jpeg\")
<\/p>\n\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic005_opt.jpeg\")
<\/p>\nPublic Sub KalenderdatenFuellen(datStart As Date, datEnde As Date)\r\nDim dat As Date\r\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nSet db = CurrentDb\r\ndb.Execute "DELETE FROM tblKalenderdaten", dbFailOnError\r\nSet rst = db.OpenRecordset("tblKalenderdaten", dbOpenDynaset)\r\nFor dat = CDate(datStart) To CDate(datEnde)\r\n rst.AddNew\r\n rst!Kalenderdatum = dat\r\n rst.Update\r\nNext dat\r\nEnd Sub<\/pre>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic006_opt.jpeg\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic007_opt.jpeg\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic008_opt.jpeg\")
<\/p>\nPrivate Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)\r\n UhrzeitrasterAnlegen\r\n End Sub<\/pre>\n
Private Sub UhrzeitrasterAnlegen\r\n 'Koordinaten für den Bericht\r\n Dim sngRepX1 As Single\r\n Dim sngRepX2 As Single\r\n Dim sngRepY1 As Single\r\n Dim sngRepY2 As Single\r\n Dim i As Integer\r\n Dim lngColor As Long\r\n With Me\r\n sngRepY1 = .ScaleTop\r\n sngRepX1 = .ScaleLeft\r\n sngRepX2 = .ScaleWidth\r\n sngRepY2 = .ScaleHeight\r\n 'Raster mit Zeiten bauen\r\n For i = 1 To 25\r\n lngColor = RGB(225, 225, 225)\r\n Me.Line (sngRepX1, _\r\n sngRepY1 + (i - 1) * (sngRepY2 - sngRepY1) \/ 24) _\r\n -(sngRepX2, _\r\n sngRepY1 + (i - 1) * (sngRepY2 - sngRepY1) \/ 24), _\r\n lngColor\r\n CurrentX = 0\r\n If i < 25 Then\r\n lngColor = RGB(0, 0, 0)\r\n Me.ForeColor = lngColor\r\n Me.FontSize = 9\r\n Me.Print Format(DateAdd("h", i - 1, 0), "hh");\r\n Me.FontSize = 5\r\n Me.Print Format(DateAdd("h", i - 1, 0), " nn")\r\n End If\r\n Next i\r\n End With\r\n End Sub<\/pre>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic009_opt.jpeg\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic010_opt.jpeg\")
<\/p>\nEndzeit1: Wenn([Endzeit]>DatAdd("n";60;[Startzeit]);[Endzeit];DatAdd("n";60;[Startzeit]))<\/pre>\nSumme([Startzeit]<[Zeit] Und [Endzeit1]>[Zeit])<\/pre>\n
![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic011_opt.jpeg\")
<\/p>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic012_opt.jpeg\")
<\/p>\nPublic Sub BereicheUndSpaltenanzahlErmitteln()\r\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nDim intAktuellerBereich As Integer\r\nDim intBereichVorher As Integer\r\nDim intBereichSpaltenMax As Integer\r\nDim datBereichStart As Date\r\nDim datBereichEnde As Date\r\nDim datTermindatum As Date\r\nDim intSpalte As Integer\r\nDim strSQL As String\r\nDim i As Integer\r\nSet db = CurrentDb\r\nSet rst = db.OpenRecordset("SELECT * FROM qryZeitSpaltenanzahl", _\r\ndbOpenDynaset)\r\nDo While Not rst.EOF\r\n If intBereichVorher < 0 And rst!InBereich = 0 Then\r\n datBereichEnde = rst!Zeit\r\n intAktuellerBereich = intAktuellerBereich + 1\r\n strSQL = "UPDATE tblTermine " _\r\n & "SET Spaltenzahl = " & -1 * intBereichSpaltenMax _\r\n & ", Bereich = " & intAktuellerBereich _\r\n & " WHERE Startzeit >= " & ISODatum(datBereichStart) _\r\n & " AND Endzeit <= " & ISODatum(datBereichEnde) _\r\n & " AND Termindatum = " & ISODatum(rst!Termindatum)\r\n db.Execute strSQL, dbFailOnError\r\n datTermindatum = rst!Termindatum\r\nElseIf intBereichVorher = 0 And rst!InBereich < 0 Then\r\n datBereichStart = DateAdd("n", -1, rst!Zeit)\r\n intBereichSpaltenMax = 0\r\nEnd If\r\nIf intBereichSpaltenMax > rst!InBereich Then\r\n intBereichSpaltenMax = rst!InBereich\r\nEnd If\r\nintBereichVorher = rst!InBereich\r\nrst.MoveNext\r\nLoop\r\nFor i = 1 To intAktuellerBereich\r\nSet rst = db.OpenRecordset("SELECT * FROM qryTermine " _\r\n& "WHERE Bereich = " & i & " ORDER BY Termindatum ASC, " _\r\n& "Startzeit ASC, Endzeit DESC", dbOpenDynaset)\r\nIf Not rst.EOF Then\r\n rst.Edit\r\n rst!Spalte = 1\r\n rst.Update\r\n rst.MoveNext\r\n Do While Not rst.EOF\r\n For intSpalte = 1 To rst!Spaltenzahl\r\n If IsNull(DLookup("ID", "qryTermine", _\r\n & "Spalte = " & intSpalte & " AND Endzeit1 > " _\r\n & ISODatum(rst!Startzeit))) Then\r\n rst.Edit\r\n rst!Spalte = intSpalte\r\n rst.Update\r\n End If\r\n Next intSpalte\r\n rst.MoveNext\r\nLoop\r\nEnd If\r\nNext i\r\nEnd Sub<\/pre>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic013_opt.jpeg\")
<\/p>\n![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic014_opt.jpeg\")
<\/p>\n![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic015_opt.jpeg\")
<\/p>\n![\"pic016.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic016_opt.jpeg\")
<\/p>\n![\"pic017.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic017_opt.jpeg\")
<\/p>\nPrivate Sub TermineEinfuegen()\r\n Dim lngColor As Long\r\n Dim sngRepX1 As Single, sngRepX2 As Single\r\n Dim sngRepY1 As Single, sngRepY2 As Single\r\n Dim strTermin As String\r\n Dim sngDateX1 As Single, sngDateX2 As Single\r\n Dim sngDateY1 As Single, sngDateY2 As Single\r\n Dim sngDateX1A As Single, sngDateY2A As Single\r\n Dim intSpalte As Integer, intSpaltenzahl As Integer\r\n Dim sngGesamtbreite As Single, sngTextOffset As Single\r\n Dim bolTooLong As Boolean\r\n Dim sngMargin As Single\r\n sngMargin = 5\r\n With Me\r\n .ScaleMode = 3\r\n sngRepY1 = .ScaleTop\r\n sngRepX1 = .ScaleLeft\r\n sngRepX2 = .ScaleWidth\r\n sngRepY2 = .ScaleHeight\r\n If Not IsNull(Me!Termindatum) Then\r\n 'Termine einfügen\r\n lngColor = Me.Farbwert\r\n intSpalte = Me!Spalte\r\n intSpaltenzahl = Me!Spaltenzahl\r\n sngGesamtbreite = sngRepX2 - sngRepX1 - 200\r\n sngDateX1 = 200 + (intSpalte - 1) * sngGesamtbreite _\r\n \/ intSpaltenzahl\r\n sngDateX2 = sngDateX1 + sngGesamtbreite \/ intSpaltenzahl\r\n sngDateY1 = sngRepY1 + CSng(Me.Startzeit) * sngRepY2\r\n sngDateY2 = sngRepY2 * CSng(Me.Endzeit)\r\n Me.Line (sngDateX1 + sngMargin, sngDateY1 + sngMargin) _\r\n -(sngDateX2 - sngMargin, sngDateY2 - sngMargin), _\r\n lngColor, BF\r\n lngColor = RGB(200, 200, 200)\r\n Me.Line (sngDateX1, sngDateY1)-(sngDateX2, sngDateY2), _\r\n lngColor, B\r\n If Me.Endzeit < Me.Endzeit1 Then\r\n lngColor = Me.Farbwert\r\n sngDateY2A = sngRepY2 * CSng(Me.Endzeit1)\r\n sngDateX1A = sngDateX1 + 30\r\n Me.Line (sngDateX1A + sngMargin, sngDateY1 + _\r\n sngMargin)-(sngDateX2 - sngMargin, sngDateY2A _\r\n - sngMargin), lngColor, BF\r\n lngColor = RGB(200, 200, 200)\r\n Me.Line (sngDateX1A, sngDateY1)-(sngDateX2, _\r\n sngDateY2A), lngColor, B\r\n sngTextOffset = 30\r\n Else\r\n sngTextOffset = 0\r\n End If\r\n Me.FontSize = 8\r\n Me.FontBold = True\r\n If Helligkeit(Me.Farbwert) > &H180 Then\r\n Me.ForeColor = &H0\r\n Else\r\n Me.ForeColor = &HFFFFFF\r\n End If\r\n Me.CurrentX = sngDateX1 + 20 + sngTextOffset\r\n Me.CurrentY = sngRepY1 + CSng(!Startzeit) * sngRepY2 + 20\r\n strTermin = Me!Termin\r\n Do While Me.TextWidth(strTermin) > _\r\n sngDateX2 - sngDateX1 - sngTextOffset\r\n bolTooLong = True\r\n strTermin = Left(strTermin, Len(strTermin) - 1)\r\n Loop\r\n If bolTooLong = True Then\r\n strTermin = Left(strTermin, Len(strTermin) - 4) & "..."\r\n End If\r\n Me.Print strTermin\r\n Me.FontSize = 6\r\n Me.CurrentX = sngDateX1 + 20 + sngTextOffset\r\n Me.Print !Startzeit & " - " & !Endzeit\r\n MoveLayout = False\r\n Else\r\n MoveLayout = True\r\n End If\r\n End With\r\n End Sub<\/pre>\n
![\"pic018.png\"](\"..\/fileadmin\/_temp_\/2009_02\/Termine-web-images\/pic018_opt.jpeg\")
<\/p>\nDim bolRaster As Boolean<\/pre>\n
Private Sub Detailbereich_Print(Cancel As _\r\n Integer, PrintCount As Integer)\r\n If bolRaster = False Then\r\n UhrzeitrasterAnlegen\r\n bolRaster = True\r\n End If\r\n TermineEinfuegen\r\n End Sub<\/pre>\n
Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n bolRaster = False\r\n End Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n