<\/p>\n
Das aktuelle Datum ist unter Access schnell eingegeben – es reicht die Tastenkombination Strg + Semikolon. Sonstige Daten wählt man ab Access 2007 schnell mit dem eingebauten Datepicker aus. Oder Sie verwenden die Lösung aus dem Beitrag „Flexible Datumsfelder“ (www.access-im-unternehmen.de\/690). Wenn Sie aber gleich einen Zeitraum, bestehend aus zwei Datumsangaben, eingeben müssen, brauchen Sie größere Kaliber – so eines wie wir im vorliegenden Beitrag beschreiben.<\/b><\/p>\n
Viele Anwendungen erfordern die Eingabe nicht nur eines einzigen Datums, sondern gleich eines ganzen Bereichs. Das sieht im einfachsten Fall wie in Bild 1 aus.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic001.png\")
<\/p>\n
Bild 1: Einfaches Beispiel für die Eingabe eines Datumsbereichs<\/span><\/b><\/p>\n Das dort dargestellte Formular enthält zwei Textfelder zur Eingabe des Start- und des Enddatums. Das Ziel dieses Beitrags ist, ein Formular zu erstellen, das entweder per Doppelklick in eines der betroffenen Datumsfelder oder über eine entsprechende Schaltfläche angezeigt werden kann. Es soll gegebenenfalls einen eventuell bereits in den Textfeldern vorhandenen Datumsbereich gleich beim Öffnen anzeigen und die Möglichkeit bieten, diesen anzupassen beziehungsweise neu zu setzen.<\/p>\n Am einfachsten wäre die Auswahl eines Datumsbereichs, wenn diese mit einer Mausgeste funktionieren könnte – Klick auf das erste Datum in einer Datumsübersicht, mit gedrückter Maus zum zweiten Datum fahren, loslassen, fertig. Aber wie lässt sich dies realisieren Zunächst einmal benötigen wir ein Formular, das die infrage kommenden Datumsangaben zur Auswahl anzeigt. Und bevor dieses überhaupt irgendein Datum anzeigt, müssen wir uns erstmal überlegen, welche Zeiträume überhaupt erfassbar sein sollen. Zeiträume in der Vergangenheit In der Zukunft Oder einfach ein paar Monate vor und hinter dem aktuellen Datum Nun: Wenn uns diese Frage am Erstellen einer schicken Lösung hindert, dann parametrisieren wir dies einfach und legen je nach Anwendung fest, wie der Zeitraum aussehen soll. <\/p>\n Wie aber soll die Datumsübersicht zur Auswahl eines Datumsbereichs genau aufgebaut sein Angenommen, wir würden jeweils ein Jahr abdecken, wobei wir ein bestimmtes Intervall im Code festlegen und dem Benutzer die Möglichkeit geben, monatsweise vor- und zurückzublättern, wäre eine zeilenweise Anzeige der Monate mit ihren Tagen wohl am geeignetsten.<\/p>\n Bauen wir also zunächst ein Formular, das für jeden Tag eines Jahres ein Steuerelement enthält und das wie in Bild 2 aussieht.<\/p>\n Bild 2: So soll das Formular für die Datumsauswahl später aussehen.<\/span><\/b><\/p>\n Das Formular soll nach folgenden Regeln arbeiten:<\/p>\n Einsatz des Datumsauswahlformulars<\/b><\/p>\n Möglicherweise möchten Sie gar nicht so genau wissen, wie dieses Formular funktioniert, sondern es einfach nur in Ihren eigenen Anwendungen einsetzen. Für diesen Fall erfahren Sie nun, wie Sie diese Lösung in eine eigene Anwendung integrieren und verwenden. Zuerst importieren Sie die folgenden Elemente der Beispieldatenbank in die Zielanwendung:<\/p>\n Anschließend benötigen Sie nur noch ein paar Zeilen Code, die Sie für die Ereignisprozedur Beim Laden <\/b>des betroffenen Formulars hinterlegen.<\/p>\n Hierzu gehen Sie folgendermaßen vor:<\/p>\n Bild 3: Anlegen des Ereignisses, das unser Formular um die Funktion zum Auswählen von Datumsbereichen erweitern soll<\/span><\/b><\/p>\n Listing 1: Füllen der Tabelle tblSuchfelder mit allen möglichen Suchfeldern<\/p>\n Dim objDatumsauswahl As clsDatumsauswahl<\/p>\n Private Sub Form_Load()<\/p>\n Set objDatumsauswahl = New clsDatumsauswahl<\/p>\n With objDatumsauswahl<\/p>\n Set .Form = Me<\/p>\n Set .StartdateTextbox = Me!txtStartdatum<\/p>\n Set .EnddateTextbox = Me!txtEnddatum<\/p>\n End With<\/p>\n End Sub<\/p>\n Fertig! Sie brauchen nun nur noch in die Formularansicht zu wechseln und einen Doppelklick auf einem der Textfelder auszuführen.<\/p>\n Erstellung und individuelle Anpassung<\/b><\/p>\n Nach der Einführung geht es an die technischen Hintergründe. Die erste Frage ist: Wie stellen wir die ganzen Tage der Jahresübersicht dar Die Antwort lautet: Mit Bezeichnungsfeldern. Diese bieten, wie wir gleich sehen werden, alle notwendigen Ereignisprozeduren, sie können Texte anzeigen und wir können verschiedene Hintergrundfarben für sie einstellen.<\/p>\n Welche Elemente brauchen wir für das Formular<\/p>\n Die ersten drei Kategorien von Bezeichnungsfeldern erhalten immer die gleiche Position – egal, welche Monate welchen Jahres angezeigt werden. Es ändern sich lediglich die Beschriftungen der Zeilenüberschriften, also die Monate.<\/p>\n Die 366 Bezeichnungsfelder für die Tage werden je nach Startmonat unterschiedlich in der Matrix zwischen Monaten und Tagen aufgeteilt. Das liegt daran, dass wir in den Spaltenüberschriften feste Wochentage festlegen und die Datumsangaben eines jeden Monats daran ausrichten müssen. Der 1. Januar 2010 ist beispielsweise ein Freitag, der 1. Februar 2010 ein Montag. Dementsprechend besitzt der erste Tag eines jeden Monats einen unterschiedlichen Abstand zum linken Rand, die übrigen Tage reihen sich dahinter ein.<\/p>\n Und auch die Beschriftungen müssen je nach dem in der ersten Zeile angezeigten Monat dynamisch angepasst werden. Für diese Lösung schien es am sinnvollsten, die Bezeichnungsfelder für die Tage schlicht von 001<\/b> bis 366 <\/b>durchzunummerieren und den Rest zur Laufzeit einzustellen. Beim Erstmaligen Anlegen werden diese Steuerelemente also einfach links oben im Formularentwurf abgelegt.<\/p>\n Erstellen des Formulars zur Anzeige des Jahreskalenders<\/b><\/p>\n Zu Beginn bekommen wir es gleich mal mit einer richtigen Fleißaufgabe zu tun: Das Anlegen der Bezeichnungsfelder. Wenn wir richtig gezählt haben, kommen wir immerhin auf 416 Felder, die wir anlegen und mit Namen versehen müssen. Einige davon, die als Spalten- und Zeilenüberschriften dienen, müssen wir gar noch genau ausrichten. Das Ausrichten müssen wir anschließend wahrscheinlich noch mehrfach wiederholen, da wir ja die Breite und Höhe der Felder mit denen der 366 Bezeichnungsfelder abstimmen müssen, welche die Tage anzeigen.<\/p>\n Na, klingelt“s Das ist natürlich keine Aufgabe für Access im Unternehmen<\/b>-Leser. Dafür stellen wir entweder einen Hilfsprogrammierer ein oder – noch besser – Sie automatisieren das Ganze.<\/p>\n Immerhin stellt Access-VBA einige Methoden zur Verfügung, um nicht nur Formulare, sondern auch die enthaltenen Steuerelemente anzulegen und mit den gewünschten Eigenschaften zu versehen.<\/p>\n Bevor Sie beginnen, legen Sie ein Formular namens frmDatumsauswahl <\/b>an und stellen seine Eigenschaften Navigationsschaltflächen<\/b>, Bildlaufleiste<\/b>, Datensatzmarkierer <\/b>und Trennlinie <\/b>auf Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Anschließend rufen Sie einfach die Prozedur SteuerelementeErstellen<\/b> auf. Das Ergebnis sieht wie in Bild 4 aus, die übrigen dort sichtbaren Steuerelemente legen wir später an.<\/p>\n Bild 4: Das Formular zur Datumsauswahl mit allen Steuerelementen in der Entwurfsansicht<\/span><\/b><\/p>\n Listing 2 zeigt den Code, der für das Anlegen der Bezeichnungsfelder nötig ist. Zu Beginn schließt die Prozedur das Formular, falls dieses noch geöffnet ist. Dann öffnet sie das Formular in der Entwurfsansicht und füllt die Objektvariable frm<\/b> mit einem Verweis auf das Formular, um später einfacher darauf verweisen zu können.<\/p>\n Listing 2: Füllen des Formulars mit den nötigen Bezeichnungsfeldern<\/p>\n Public Sub SteuerelementeErstellen()<\/p>\n Dim frm As Form<\/p>\n Dim ctl As Control<\/p>\n Dim strForm As String<\/p>\n Dim i As Integer<\/p>\n DoCmd.Close acForm, "frmDatumsauswahl"<\/p>\n DoCmd.OpenForm "frmDatumsauswahl", acDesign<\/p>\n Set frm = Forms!frmDatumsauswahl<\/p>\n For i = frm.Controls.Count To 1 Step -1<\/p>\n Application.DeleteControl "frmDatumsauswahl", frm.Controls(i – 1).Name<\/p>\n Next i<\/p>\n Set ctl = Application.CreateControl(strForm, acLabel, acDetail, , , cBorder, cBorder, 6 * cMass, cMass)<\/p>\n ctl.Name = "lblTopLabel"<\/p>\n ctl.Caption = "Monat\/Tag"<\/p>\n ctl.FontWeight = 700<\/p>\n For i = 1 To 12<\/p>\n Set ctl = Application.CreateControl(strForm, acLabel, acDetail, , , cBorder, _<\/p>\n i * cMass + cBorder, 6 * cMass, cMass)<\/p>\n ctl.Name = "lblLabel" & Format(i, "000")<\/p>\n ctl.FontWeight = 700<\/p>\n Next i<\/p>\n For i = 0 To 36<\/p>\n Set ctl = Application.CreateControl(strForm, acLabel, acDetail, , , _<\/p>\n cBorder + (i + 6) * cMass, cBorder, cMass, cMass)<\/p>\n ctl.Name = "lblTop" & Format(i, "000")<\/p>\n ctl.Caption = Choose(i Mod 7 + 1, "M", "D", "M", "D", "F", "S", "S")<\/p>\n ctl.FontWeight = CBool(i Mod 7 > 4) * -700<\/p>\n Next i<\/p>\n For i = 1 To 366<\/p>\n Set ctl = Application.CreateControl(strForm, acLabel, acDetail, , , 0, 0, cMass, cMass)<\/p>\n ctl.Name = Format(i, "000")<\/p>\n Next i<\/p>\n DoCmd.Close acForm, strForm, acSaveYes<\/p>\n End Sub<\/p>\n Da wir diese Prozedur wie oben angekündigt wohl öfter durchlaufen müssen, löschen wir zu Beginn jeweils die bereits vorhandenen Bezeichnungsfelder, deren Name entweder mit lbl <\/b>beginnt oder nur aus Zahlen besteht (IsNumeric<\/b>).<\/p>\n Auf diese Weise verhindern wir, dass bereits bestehende Steuerelemente, wie die in Bild 4 bereits sichtbaren Schaltflächen, jedesmal neu anlegen müssen.<\/p>\n Die For…Next<\/b>-Schleife zum Löschen der Bezeichnungsfelder ermittelt zunächst die Anzahl der Bezeichnungsfelder und löscht diese dann, wobei sie beim letzten Bezeichnungsfeld beginnt (anderenfalls würde die For…Next<\/b>-Schleife durch das Löschen von Elementen mit dem Index durcheinanderkommen).<\/p>\n Beim Löschen kommt die Methode DeleteControl <\/b>zum Einsatz, die schlicht den Formular- und den Steuerelementnamen als Parameter erwartet.<\/p>\n Die folgenden vier Anweisungen erstellen das Bezeichnungsfeld mit der Beschriftung Monat\/Tag<\/b>, das ganz links oben positioniert wird. Das Erstellen übernimmt die Methode CreateControl<\/b>, der wir den Namen des Zielformulars, die Steuerelementart (acLabel<\/b>), den Detailbereich als Zielbereich (acDetail<\/b>) sowie die linke und obere Position und die Höhe und Breite mitgeben.<\/p>\n Die hier verwendeten Konstanten werden im Modul mdlDatumsauswahl<\/b> deklariert:<\/p>\n Public Const cMass As Integer = 300<\/p>\n Public Const cBorder As Integer = 80<\/p>\n cBorder <\/b>gibt dabei den Standardabstand zum Formularrahmen an und cMass <\/b>liefert die Standardbreite und -höhe eines der 366 Tag-Bezeichnungsfelder.<\/p>\n Die Breite der Zeilenüberschriften muss bei der Schriftart und -größe aus Bild 2 sechs Mal so breit sein wie die der Tag-Bezeichnungsfelder, deshalb taucht in der Anweisung der Ausdruck 6 x cMass <\/b>auf. Die folgenden drei Anweisungen legen Name, Beschriftung und Schriftbreite des frisch angelegten Steuerelements fest.<\/p>\n Nachdem wir nun vier Zeilen zum Anlegen eines einzigen Steuerelements benötigt haben, geht es ab jetzt etwas effizienter zu: Die Anweisungen der folgenden For…Next<\/b>-Schleife zeichnen immerhin für das Anlegen von zwölf Steuerelementen verantwortlich, nämlich der Zeilenüberschriften mit den Monatsnamen.<\/p>\n Auch hier erstellt die CreateControl<\/b>-Methode die Bezeichnungsfelder, wobei hier bei der Angabe des Abstands vom oberen Rand eine Variable ins Spiel kommt: i * cMass + cBorder<\/b>. Dadurch werden die Steuerelemente jeweils um cMass <\/b>nach unten versetzt.<\/p>\n Auch der Name des Steuerelements wird in Abhängigkeit von der Laufvariablen i <\/b>vergeben (lblLabel001<\/b>, lblLabel002<\/b>…).<\/p>\n Für die Zeilenüberschriften benötigen wir genau 37 Steuerelemente. Warum gerade 37 Ein Monat kann an jedem Tag von Montag bis Sonntag beginnen und hat maximal 31 Tage. Der erste Tag liegt also im Extremfall auf der siebten Position von links, plus die fehlenden maximal 30 Tage ergibt 37 Tage. Die For…Next<\/b>-Schleife mit den Anweisungen zum Anlegen der Spaltenüberschriften läuft von 0 <\/b>bis 36<\/b>. Die Steuerelemente werden mit dem Abstand cBorder + (i + 6) * cMass <\/b>vom linken Rand angelegt.<\/p>\n Beim ersten Element ist i = 0<\/b>, es beginnt also genau am rechten Rand des ganz links oben positionierten Bezeichnungsfeldes Monat\/Tag<\/b>. Die übrigen Elemente werden dann jeweils um die Breite eines Elements nach rechts verschoben, damit alle genau nebeneinanderliegen. Der Name wird auf lblTop001<\/b>, lblTop002<\/b>… festgelegt. Der Ausdruck für die Bezeichnung ist erklärungsbedürftig:<\/p>\n Choose(i Mod 7 + 1, "M", "D", "M", "D", "F", "S", "S")<\/p>\n Die Choose<\/b>-Methode erwartet im ersten Parameter einen Index für die Auswahl der in der folgenden Parameterliste enthaltenen Elemente. Ist der erste Wert 1<\/b>, dann liefert sie "M" <\/b>zurück, ist der Wert 7<\/b>, heißt der Rückgabewert "S"<\/b>.<\/p>\n Interessant ist die Ermittlung des Indexes: Dieser basiert wiederum auf der Laufvariablen i <\/b>der For…Next<\/b>-Schleife. i <\/b>wird durch 7 <\/b>geteilt und mit Mod <\/b>der Rest ermittelt, zu dem noch der Wert 1 <\/b>hinzuaddiert wird. Ist i <\/b>also beispielsweise 0<\/b>, lautet der Index 1<\/b>. Die ganz linke Spaltenüberschrift soll also die Beschriftung "M" <\/b>für Montag erhalten. <\/p>\n Für die elfte Spalte hat i <\/b>den Wert 10<\/b>. 10 Mod 7 <\/b>liefert den Rest 3<\/b>, plus 1 <\/b>ergibt 4<\/b>. Die zehnte Spaltenüberschrift lautet "D" <\/b>für Donnerstag. Sie sehen: Man kann in einer Zeile Funktionalität unterbringen, die zwar auch ohne Verwendung spezieller VBA-Funktionen möglich ist, aber wesentlich mehr Zeilen benötigen würde.<\/p>\n Fehlen noch die 366 Bezeichnungsfelder für die eigentlichen Tage. Die For…Next<\/b>-Schleife durchläuft folgerichtig 366 Elemente, wobei einfach nur Bezeichnungsfelder mit dem Namen 001<\/b>, 002<\/b>… und der Höhe und Breite cMass <\/b>angelegt werden.<\/p>\n Den Rest erledigen wir zur Laufzeit, denn die Position und Beschriftung der Steueuerelemente ist ohnehin von den jeweils anzuzeigenden Monaten abhängig. Sie könnten maximal die ersten 28 Elemente mit den Zahlen 1 bis 28 beschriften, aber bereits die Position dieser Elemente kann erst festgelegt werden, wenn der Monat bekannt ist, der in der ersten Zeile angezeigt werden soll: Sie wissen einfach vorher nicht, auf welchen Wochentag der erste Tag des jeweiligen Monats fällt.<\/p>\n <\/p>\n Formatierung der Bezeichnungsfelder<\/b><\/p>\n Eigentlich müssten wir beim Erstellen der Steuerelemente noch weitere Eigenschaften einstellen wie beispielsweise die Schriftart, die Schriftgröße, die Rahmenfarbe, die Ausrichtung des Inhalts, die Hintergrundart et cetera.<\/p>\n Wenn Sie allerdings einige Male die Prozedur aus Listing 2 durchlaufen, werden Sie feststellen, dass das Anlegen von über 400 Steuerelementen einige Zeit in Anspruch nimmt. Um hier Zeit zu sparen, legen wir einfach Standardwerte für das Anlegen von Bezeichnungsfeldern fest. Dazu gehen Sie folgendermaßen vor:<\/p>\n Fertig! Wenn Sie nun ein Bezeichnungsfeld zum Formular hinzufügen, werden die neuen Eigenschaften gleich berücksichtigt. Dies gilt allerdings nur für das aktuelle Formular.<\/p>\n Kalender zur Laufzeit aufbauen<\/b><\/p>\n Nicht ganz ohne ist die Aufgabe, die 366 Bezeichnungsfelder zur Anzeige der einzelnen Tage zu arrangieren und zu beschriften – ganz zu schweigen von der Funktion, die sie später ausführen sollen (mehr dazu im Anschluss).<\/p>\n Der Aufbau des Formulars geschieht in der Ereignisprozedur Beim Laden <\/b>des Formulars (s. Listing 3). Diese Prozedur enthält einige Zeilen, die sich mit Objekten wie colLabels <\/b>und objLabel <\/b>beschäftigen – auf diese Objekte kommen wir später zurück, sie haben eine besondere Aufgabe.<\/p>\n Listing 3: Einstellen der Tages-Bezeichnungsfelder zur Laufzeit<\/p>\n Private Sub Form_Open(Cancel As Integer)<\/p>\n Dim intMonthStart As Integer, intYearStart As Integer<\/p>\n Dim datAktuell As Date, datEnd As Date, datStart As Date, datCenter As Date<\/p>\n Dim x As Integer, y As Integer, i As Integer<\/p>\n Dim intDaycount As Integer<\/p>\n Dim objLabel As clsLabel<\/p>\n Set colLabels = New Collection<\/p>\n datStart = Split(Me.OpenArgs, "|")(0)<\/p>\n datEnd = Split(Me.OpenArgs, "|")(1)<\/p>\n Me!txtStartdatum = datStart<\/p>\n Me!txtEnddatum = datEnd<\/p>\n intDaycount = DateDiff("d", datStart, datEnd)<\/p>\n datCenter = DateDiff("d", intDaycount \/ 2, datEnd)<\/p>\n intMonthStart = Month(datCenter – 180)<\/p>\n intYearStart = Year(datCenter – 180)<\/p>\n datAktuell = DateSerial(intYearStart, intMonthStart, 1)<\/p>\n For i = 1 To 366<\/p>\n With Me.Controls(Format(i, "000"))<\/p>\n Set objLabel = New clsLabel<\/p>\n Set objLabel.Label = Me.Controls(Format(i, "000"))<\/p>\n colLabels.Add objLabel<\/p>\n .Caption = Day(datAktuell)<\/p>\n If datAktuell >= datStart And datAktuell <= datEnd Then<\/p>\n .BackColor = &HCCCCCC<\/p>\n End If<\/p>\n If Day(datAktuell) = 1 Then<\/p>\n x = Weekday(datAktuell, vbMonday) – 1<\/p>\n y = y + 1<\/p>\n Else<\/p>\n x = x + 1<\/p>\n End If<\/p>\n .FontWeight = CBool(x Mod 7 > 4) * -700<\/p>\n .Left = cMass * (x + 6) + cBorder<\/p>\n .Top = cMass * y + cBorder<\/p>\n .Tag = datAktuell<\/p>\n .Visible = y <= 12<\/p>\n If y < 13 Then<\/p>\n Me.Controls("lbllabel" & Format(y, "000")).Caption = Format(datAktuell, _<\/p>\n "mmmm yyyy")<\/p>\n End If<\/p>\n datAktuell = DateAdd("d", 1, datAktuell)<\/p>\n End With<\/p>\n Next i<\/p>\n End Sub<\/p>\n Für die ersten Zeilen müssen Sie wissen, dass das Formular einen Wert für seinen Öffnungsparameter, also die Eigenschaft OpenArgs<\/b>, erwartet, den die aufrufende Funktion entsprechend zusammenstellen muss – auch hierzu später mehr.<\/p>\n Dieser Öffnungsparameter enthält die beiden Datumsangaben der Textfelder wie in Bild 1 zu sehen. Der enthaltene Ausdruck könnte etwa so aussehen:<\/p>\n 1.1.2010|31.4.2010<\/p>\n Die Prozedur Form_Load <\/b>ermittelt aus diesem mit dem Pipe-Zeichen getrennten Ausdruck die Werte für seine Variablen datStart <\/b>und datEnd<\/b>, die fortan unseren Datumsbereich enthalten.<\/p>\n Mit diesen Werten werden auch gleich die beiden Textfelder txtStartdatum <\/b>und txtEnddatum <\/b>des Formulars gefüllt, damit der Datumsbereich nicht nur visuell, sondern auch schriftlich vorliegt.<\/p>\n Der übergebene Bereich soll möglichst in der Mitte des Kalenders zur Datumsauswahl angezeigt werden. Dazu ermitteln wir zunächst den Tag, der in der Mitte des Bereichs liegt:<\/p>\n intDaycount = DateDiff("d", datStart, datEnd)<\/p>\n datCenter = DateDiff("d", intDaycount \/ 2, datEnd)<\/p>\n Von diesem Tag aus bewegen wir uns circa ein halbes Jahr in die Vergangenheit und bestimmen den Monat und das Jahr für die erste Zeile des Kalenders:<\/p>\n intMonthStart = Month(datCenter – 180)<\/p>\n intYearStart = Year(datCenter – 180)<\/p>\n Die maximal 366 anzuzeigenden Tage durchlaufen wir mit einer Schleife. Innerhalb dieser Schleife zählen wir die Tage hoch, wobei wir mit dem ersten Tag des ersten Monats der Kalenderanzeige beginnen und den wir wie folgt bestimmen:<\/p>\n datAktuell = DateSerial(intYearStart, intMonthStart, 1)<\/p>\n Danach beginnt der Hauptteil der Arbeit, nämlich eine For…Next<\/b>-Schleife mit 366 Durchläufen. Innerhalb der Schleife werden hauptsächlich die Bezeichnungsfelder 001 <\/b>bis 366 <\/b>bearbeitet. Diese werden in Abhängigkeit vom Wert des Schleifenzählers referenziert:<\/p>\n With Me.Controls(Format(i, "000"))<\/p>\n Zunächst wird die Beschriftung auf den Tag des aktuellen Datums eingestellt:<\/p>\n .Caption = Day(datAktuell)<\/p>\n Danach prüft die Prozedur, ob sich der Tag innerhalb des beim Start des Formulars übergebenen Datumsbereichs befindet, und, falls ja, wird der Hintergrund der betroffenen Bezeichnungsfelder entsprechend eingestellt:<\/p>\n If datAktuell >= datStart And datAktuell <= datEnd Then<\/p>\n .BackColor = &HCCCCCC<\/p>\n End If<\/p>\n Danach kümmern wir uns um die Position des jeweiligen Bezeichnungsfeldes. Dieses muss ja unterhalb der entsprechenden Spaltenüberschrift (Wochentag) und auf Höhe der richtigen Zeilenüberschrift (Monat) positioniert werden. Dazu ermittelt die folgende If…Then<\/b>-Bedingung zunächst die notwendigen Koordinaten in Form von x <\/b>und y<\/b>. Die erste Bedingung ist erfüllt, wenn der Tag-Teil des aktuellen Datums 1 <\/b>ist, also wenn ein neuer Monat beginnt. Dann wird die Koordinate x<\/b> auf die Position eingestellt, die dem Wochentag des aktuellen Datums, also des ersten Tags des Monats entspricht, und die y<\/b>-Koordinate um 1 <\/b>erhöht.<\/p>\n Ist der aktuelle Tag nicht der erste Tag des Monats, wird die x<\/b>-Position einfach um 1 <\/b>erhöht:<\/p>\n If Day(datAktuell) = 1 Then<\/p>\n x = Weekday(datAktuell, vbMonday) – 1<\/p>\n y = y + 1<\/p>\n Else<\/p>\n x = x + 1<\/p>\n End If<\/p>\n Mit diesen Koordinaten erledigen wir den Rest. Für Samstage und Sonntage soll der Tag jeweils fett gedruckt werden:<\/p>\n .FontWeight = CBool(x Mod 7 > 4) * -700<\/p>\n Die Position kann nach Ermittlung der x- und y-Koordinaten leicht berechnet werden:<\/p>\n .Left = cMass * (x + 6) + cBorder<\/p>\n .Top = cMass * y + cBorder<\/p>\n Damit wir später leicht auslesen können, welche Daten der Benutzer eingestellt hat, schreiben wir in die Eigenschaft Tag <\/b>der Beschriftungsfelder jeweils das komplette Datum:<\/p>\n .Tag = datAktuell<\/p>\n Schließlich sollen nur Tage sichtbar sein, die innerhalb der ersten zwölf Reihen beziehungsweise Monate liegen – in Nicht-Schaltjahren landet der 366. Tag nämlich in der 13. Reihe:<\/p>\n .Visible = y <= 12<\/p>\n Und schließlich müssen wir noch die Zeilenüberschriften mit den entsprechenden Monats-\/Jahresbezeichnungen im Format <Monat> <Jahr> <\/b>ausstatten:<\/p>\n If y < 13 Then<\/p>\n Me.Controls("lbllabel" & Format(y, "000")).Caption = Format(datAktuell, "mmmm yyyy")<\/p>\n End If<\/p>\n Im letzten Schritt wird das aktuelle Datum um einen Tag weiter in Richtung Zukunft geschoben, damit innerhalb der Schleife auch alle Tage richtig gefüllt und positioniert werden:<\/p>\n datAktuell = DateAdd("d", 1, datAktuell)<\/p>\n Damit sind wir mit der Gestaltung des Jahreskalenders rund um den gewählten Bereich fertig. Alle Tage befinden sich an Ort und Stelle, die Wochenenden sind fett markiert und die Tage, die sich innerhalb des beim Aufruf übergebenen Datumsbereichs befinden, sind mit einem grauen Hintergrund versehen.<\/p>\n Datumsbereiche markieren<\/b><\/p>\n Damit kommen wir zum eigentlichen Markieren des Datumsbereichs. Dies soll so aussehen:<\/p>\n Dazu sind natürlich einige Ereignisse notwendig, die durch das Herunterdrücken der linken Maustaste, dem Bewegen des Mauszeigers über verschiedene Tage bis zum gewünschten Tag bis zum Loslassen der linken Maustaste reichen. Wenn wir in die Entwurfsansicht des Formulars wechseln, ein Bezeichnungsfeld markieren und die Ereignisse im Eigenschaftsfenster betrachten, entdecken wir, dass es die notwendigen Ereigniseigenschaften anbietet: Bei Maustaste ab<\/b>, Bei Maustaste auf <\/b>und Bei Mausbewegung<\/b> (siehe Bild 5).<\/p>\n Bild 5: Bezeichnungsfelder liefern alle notwendigen Ereigniseigenschaften.<\/span><\/b><\/p>\n Beim Drücken der Maustaste über einem der Datumsbezeichnungsfelder soll durch die Ereignisprozedur Bei Maustaste ab <\/b>Folgendes geschehen:<\/p>\n Dann fährt der Benutzer bei gedrückter Maustaste zum Zieldatum. Dabei wird ständig das Ereignis Bei Mausbewegung <\/b>ausgelöst, was hierzu führt:<\/p>\n Schließlich fehlt noch das Loslassen der linken Maustaste über dem gewünschten Enddatum. Im dadurch ausgelösten Ereignis Bei Maustaste auf <\/b>soll Folgendes geschehen:<\/p>\n Das ist schon alles – aber nur fast: Denn wir müssen die drei Ereignisse nicht nur programmieren, sondern dies auch noch für gleich 366 Steuerelemente erledigen. Immerhin soll ja jedes der Steuerelemente auf das Anklicken, Überfahren und Loslassen der Maus reagieren!<\/p>\n Sie ahnen es bereits: Wir werden nun nicht insgesamt über 1.000 Ereignisprozeduren anlegen. Stattdessen erzeugen wir ein Klassenmodul, das wir für jedes Bezeichnungsfeld einmal instanzieren und das dann die Ausführung der Ereignisprozeduren für das jeweilige Steuerelement übernimmt. Den Code dieser Klasse, die Sie unter dem Namen clsLabel <\/b>speichern, finden Sie in Listing 4. Erst einmal schauen wir uns jedoch an, wie diese Klasse verwendet wird.<\/p>\n Listing 4: Einstellen der Tages-Bezeichnungsfelder zur Laufzeit<\/p>\n Private WithEvents m_lbl As Label<\/p>\n Public Property Set Label(lbl As Label)<\/p>\n Set m_lbl = lbl<\/p>\n With m_lbl<\/p>\n .OnMouseDown = "[Event Procedure]"<\/p>\n .OnMouseUp = "[Event Procedure]"<\/p>\n .OnMouseMove = "[Event Procedure]"<\/p>\n End With<\/p>\n End Property<\/p>\n Private Sub m_lbl_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)<\/p>\n Dim i As Integer<\/p>\n For i = 1 To 366<\/p>\n m_lbl.Parent.Controls(Format(i, "000")).BackColor = &HFFFFFF<\/p>\n Next i<\/p>\n m_lbl.BackColor = &HCCCCCC<\/p>\n intDown = m_lbl.Name<\/p>\n DoCmd.CancelEvent<\/p>\n End Sub<\/p>\n Private Sub m_lbl_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)<\/p>\n If Button = 1 Then<\/p>\n If Not m_lbl.Name = CStr(Format(intDown, "000")) Then<\/p>\n If Not intUp = CInt(m_lbl.Name) Then<\/p>\n If Not intUp = 0 Then<\/p>\n m_lbl.Parent.Controls(CStr(Format(intUp, "000"))).BackColor = &HFFFFFF<\/p>\n End If<\/p>\n intUp = m_lbl.Name<\/p>\n m_lbl.BackColor = &HFF<\/p>\n End If<\/p>\n End If<\/p>\n End If<\/p>\n End Sub<\/p>\n Private Sub m_lbl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)<\/p>\n Dim i As Integer<\/p>\n Dim intHelp As Integer<\/p>\n intUp = m_lbl.Name<\/p>\n If intUp < intDown Then<\/p>\n intHelp = intUp<\/p>\n intUp = intDown<\/p>\n intDown = intHelp<\/p>\n End If<\/p>\n m_lbl.Parent.txtStartdatum = m_lbl.Parent.Controls(Format(intDown, "000")).Tag<\/p>\n m_lbl.Parent.txtEnddatum = m_lbl.Parent.Controls(Format(intUp, "000")).Tag<\/p>\n For i = intDown To intUp<\/p>\n m_lbl.Parent.Controls(Format(i, "000")).BackColor = &HCCCCCC<\/p>\n Next i<\/p>\n End Sub<\/p>\n Für das Instanzieren dieser Klasse sind die Zeilen der Ereignisprozedur Beim Laden <\/b>des Formulars frmDatumsauswahl <\/b>zuständig, die wir vorhin nicht berücksichtigt haben. Zunächst wird im Klassenmodul des Formulars frmDatumsauswahl <\/b>ein Collection<\/b>-Objekt namens colLabels <\/b>deklariert:<\/p>\n Dim colLabels As Collection<\/p>\n Dieses Collection<\/b>-Objekt wird später jeweils eine Instanz der Klasse clsLabel <\/b>für jedes der 366 Tages-Bezeichnungsfelder aufnehmen. Warum deklarieren wir dieses im Modulkopf und nicht innerhalb des Form_Load<\/b>-Ereignisses Weil die Variable und ihr Inhalt sonst gleich nach Beenden der Form_Load<\/b>-Prozedur ungültig würde. <\/p>\n Innerhalb dieser Prozedur deklarieren wir jedoch ein Objekt namens objLabel<\/b>, das jeweils auf eine Instanz der Klasse clsLabel <\/b>verweisen wird.<\/p>\n Dim objLabel As clsLabel<\/p>\n Warum kann diese Variable innerhalb der Prozedur deklariert werden, obwohl sie doch nach deren Ablauf ebenfalls ihre Gültigkeit verlieren dürfte Weil wir einen Verweis auf diese Objektvariable zum Collection<\/b>-Objekt colLabels <\/b>hinzufügen, dessen Lebensdauer der Lebensdauer des Formulars frmDatumsauswahl <\/b>entspricht.<\/p>\n In Form_Load <\/b>erzeugen wir die benötigte Instanz des Collection<\/b>-Objekts:<\/p>\n Set colLabels = New Collection<\/p>\n Danach geht es in der Schleife weiter, die alle 366 Label<\/b>-Steuerelemente durchläuft und deren Position und Beschriftung einstellt. Dort erstellen wir zunächst eine neue Instanz der Klasse clsLabel<\/b>:<\/p>\n Set objLabel = New clsLabel<\/p>\n Damit wir wissen, auf welches Label<\/b>-Steuerelement sich dieses Objekt bezieht, weisen wir seiner Eigenschaft Label <\/b>einen Verweis auf das aktuell in der Schleife behandelte Steuerelement zu:<\/p>\n Set objLabel.Label = Me.Controls(Format(i, "000"))<\/p>\n Und damit dieses nicht in den ewigen Jagdgründen verschwindet, wenn die Prozedur endet, fügen wir die Objektvariable zum Collection<\/b>-Objekt colLabels <\/b>hinzu, dessen Lebensdauer deutlich länger ist:<\/p>\n colLabels.Add objLabel<\/p>\n Das war es: Die Prozedur Form_Load<\/b> hat 366 Instanzen der Klasse clsLabel <\/b>erstellt und diese in einer Collection konserviert. Was die auf dieser Klasse basierenden Objekte genau tun, schauen wir uns nun an.<\/p>\n Die Klasse clsLabel<\/b><\/p>\n Neben dem Instanzieren der Objekte auf Basis der Klasse clsLabel <\/b>ist bislang nur wichtig, dass wir diesen einen Verweis auf jeweils ein Label<\/b>-Steuerelement übergeben können. Dieses wird in der Klasse clsLabel <\/b>in der folgenden Variablen gespeichert:<\/p>\n Private WithEvents m_lbl As Label<\/p>\n Die Variable ist mit dem Schlüsselwort WithEvents <\/b>deklariert, was dazu führt, dass Sie innerhalb der Klasse, in der es deklariert wurde, auf die durch das Steuerelement ausgelösten Ereignisse reagieren können – Sie können also Ereignisprozeduren für die benötigten Ereignisse OnMouseDown<\/b>, OnMouseUp <\/b>und OnMouseMove <\/b>für den Objektverweis auf das Steuerelement anlegen. <\/p>\n Erst einmal müssen Sie der Klasse clsLabel <\/b>jedoch den Verweis auf das jeweilige Label übergeben. Dies geschieht über die Property Set<\/b>-Methode, die als Parameter den Verweis auf das Label<\/b>-Steuerelement erwartet.<\/p>\n Diese Prozedur speichert jedoch nicht nur den Verweis in der Variablen m_lbl<\/b>, sondern sie stellt gleich noch ein paar Eigenschaften dieses Objekts ein – dies ist problemlos möglich, wenn ein Verweis darauf vorliegt.<\/p>\n Bei diesen Eigenschaften handelt es sich um die drei Ereigniseigenschaften OnMouseDown<\/b>, OnMouseUp <\/b>und OnMouseMove<\/b>. Sie werden jeweils auf den Wert [Event Procedure]<\/b> eingestellt. Wenn Sie das Eigenschaftsfenster eines dieser Steuerelemente zu diesem Zeitpunkt anzeigen könnten, würde es wie in Bild 6 aussehen.<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic002.png\")
<\/p>\n\n
\n
\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic003.png\")
<\/p>\n\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic004.png\")
<\/p>\n\n
\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic005.png\")
<\/p>\n\n
\n
\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic006.png\")
<\/p>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_04\/DatumsbereicheAuswaehlen_5-web-images\/pic007.png\")
<\/p>\n