<\/p>\n
In Ausgabe 3\/2006 hat Access im Unternehmen im Artikel „Zeitpläne mit Access erstellen“ gezeigt, wie man mit reinen Access-Bordmitteln einen grafischen Monatsplan entwickeln kann. Aufgrund zahlreicher Leseranfragen machen wir diesen Monatsplan nun etwas flexibler: etwa, um größere oder kleinere Zeitintervalle anzuzeigen oder eine Kalenderwochenansicht zu präsentieren.<\/b><\/p>\n<\/p><\/div>\n Die veränderte Oberfläche<\/p>\n Der Aufbau der Datenbankstruktur ist gegenüber dem Artikel aus [1] unverändert. Geändert haben sich nur die Oberfläche und der Code des Zeitplan-Formulars. Bild 1 zeigt die aktuelle Version des Formulars.<\/p>\n Bild 1: Zeitplan mit Einstellung auf kompletten Monat<\/span><\/b><\/p>\n<\/p><\/div>\n Die Beispiel-Datenbank ist begrenzt auf Zeiträume von einem einzelnen Tag bis zu einem Monat, also maximal 31 Tagen.<\/p>\n Der Hauptgrund dafür ist, dass im Plan kurze Texte in jedem Feld lesbar sein sollten, damit der Gast-, Kunden-, Veranstaltungsname oder sonstige mit dem Zeitplan verwaltete Informationen noch gut zu erkennen sind.<\/p>\n Wenn Sie sehr große Bildschirme oder sehr hohe Auflösungen haben, können Sie den maximal darstellbaren Zeitraum mit etwas Anpassungsarbeit, aber bei unveränderten Prinzipien, natürlich auf zwei oder drei Monate erweitern.<\/p>\n Bild 2 zeigt im Ausschnitt den oberen Rand mit den neuen, vielfältigen Einstellmöglichkeiten für den Zeitraum.<\/p>\n Abb. 2: Erweiterte Zeitauswahl und Anzeigen<\/span><\/b><\/p>\n<\/p><\/div>\n Wenn Sie die erste Version kennen, werden Ihnen sofort die Anzeige des Wochentags und der Kalenderwoche (bei jedem Montag) auffallen. Die Wochentage sind vor allem zur schnelleren Orientierung hinzugefügt, die Kalenderwoche hingegen, weil in vielen Branchen vorwiegend mit diesem Zeitraster gearbeitet wird.<\/p>\n über diesen beiden Anzeigeelementen befinden sich die erweiterten Steuerelemente zur Auswahl des darzustellenden Zeitraums und zur Naviga-tion.<\/p>\n Hier wurde zu Demonstrationszwecken bewusst etwas übertrieben. Suchen Sie sich die für Ihre Praxis passenden Möglichkeiten aus und machen Sie die weniger in Betracht kommenden Steuerelemente einfach unsichtbar.<\/p>\n Die Kombinationsfelder links zur Auswahl von Jahr und Monat waren bereits in der ersten Version des Plans vorhanden. Gleich daneben finden Sie nun eine Optionsgruppe, in der Sie auswählen können, ob eine einzelne Kalenderwoche dargestellt werden soll oder zwei oder drei Kalenderwochen. <\/p>\n Rechts davon gibt es zwei Datumsfelder, in denen immer die Grenzdaten des aktuell eingestellten Zeitraums angezeigt werden. Sie können in diese Textfelder auch direkt ein Start- und Enddatum eingeben und damit einen beliebigen Zeitraum (von maximal 31 Tagen) abseits von Monats- oder Wochenintervallen darstellen. Daneben gibt es noch zwei Schaltflächen zum Rückwärts- und Vorwärtsblättern. Spielen Sie am besten zuerst mit den verschiedenen Steuerelementen.<\/p>\n Der erweiterte Code<\/p>\n Listing 1 zeigt die Prozedur, die durch das Ereignis Beim öffnen <\/b>des Formulars ausgelöst wird.<\/p>\n Listing 1: Diese Routine wird beim öffnen des Terminformulars ausgelöst.<\/p>\n Darin wird zunächst die Sub procFormat <\/b>aufge-rufen, die mit Hilfe der bedingten Formatierung (FormatConditions<\/b>) für die spätere Einfärbung der Kalendereinträge sorgt.<\/p>\n Sie ist unverändert gegenüber der alten Kalenderversion und wird daher nicht nochmal erläutert. Danach wird das Monats-Kombinationsfeld mit dem Monat des aktuellen Datums gefüllt.<\/p>\n Dadurch wird der aktuelle Monat beim öffnen des Formulars dargestellt. Möchten Sie hingegen als Grundeinstellung die aktuelle Kalenderwoche sehen, so müssen Sie nur diese Zeile auskommentieren und dafür die nächste Codezeile aktivieren.<\/p>\n Sie ruft die AfterUpdate<\/b>-Prozedur der Optionsgruppe auf, in der ausgewählt werden kann, wie viele Wochen darzustellen sind. Dort wird bei fehlender Angabe die aktuelle Kalenderwoche eingesetzt. Abschließend wird die zentrale Sub procFill <\/b>aufgerufen, die den Kalender mit Daten füllt (Listing 2). <\/p>\n Listing 2: Die Routine procFill füllt das Kalenderformular mit Daten und färbt die Steuerelemente ein (erster Teil).<\/p>\n <\/p>\n Strukturell ist der Code ähnlich aufgebaut wie bereits im Vorgängerartikel beschrieben. Es wird daher nur ausschnittweise auf einige der änderungen eingegangen, die sich durch die neuen Intervalle und zusätzlichen Anzeigen ergeben. Mit den beiden Zeilen<\/p>\n werden die linke Startposition und die Breite der Tagesfelder in zwei Variablen geschrieben. Das passiert in Twips und auf Basis von 31 dargestellten Tagen.<\/p>\n Wenn Sie andere Darstellungsgrößen bevorzugen, können Sie das im Wesentlichen in diesen zwei Zeilen umstellen.<\/p>\n Die nächsten Codezeilen sind ebenfalls neu:<\/p>\n Zunächst werden die Daten aus den beiden Textfeldern im Formular für Start- und Endtag in Variablen gefüllt. <\/p>\n Danach wird die Anzahl der darzustellenden Tage errechnet. Diese drei Variablen werden im weiteren Verlauf für etliche Berechnungen verwendet. Mit<\/p>\n wird geprüft, ob weniger als 28 Tage dargestellt werden sollen. Nur, wenn es um weniger als diese kürzeste Monatslänge geht, wird mit der Formel <\/p>\n die Breite der einzelnen Textfelder erweitert. Dadurch wird auch bei der Darstellung nur einer Kalenderwoche oder sogar nur eines Tages die volle Kalenderbreite genutzt, um mehr Text lesbar in den Kalenderfeldern anzuzeigen.<\/p>\n In Bild 3 werden zum Beispiel nur die sieben Tage der Kalenderwoche 51\/2006 über die ganze Kalenderbreite angezeigt.<\/p>\n Bild 3: Eine Kalenderwoche füllt den kompletten Plan<\/span><\/b><\/p>\n<\/p><\/div>\n Ebenfalls verändert ist der Abschnitt zum Füllen der überschriftenfelder: lngDays <\/b>ist die Anzahl der darzustellenden Tage.<\/p>\n Für jeden Tag gibt es also einen Schleifendurchlauf. Werden weniger als 28 Tage dargestellt, so wird in der oberen und unteren Beschriftung nicht nur der Monatstag angezeigt, sondern im Format d.m.<\/b> auch die Monatszahl. Das hilft bei der Orientierung, wie ebenfalls in Bild 3 zu sehen ist:<\/p>\n In den folgenden, sich ähnlich wiederholenden Zeilen wie<\/p>\n werden die Position von links und die Breite der Kalendereinträge und Beschriftungen eingestellt.<\/p>\n Die Position ist abhängig von i<\/b>, also der wievielte Tag in der Darstellung es ist. Die Breite hingegen ist für alle Steuerelemente die bereits erläuterte Tagesbreite.<\/p>\n Für die Anzeige der Kalenderwoche sind 31 Textfelder oberhalb der Tagesüberschriften positioniert.<\/p>\n Nur jene Textfelder, die sich über einem Montag befinden, werden mit der Kalenderwoche beschriftet. Dafür sorgt diese Codestelle:<\/p>\n Wenn der Wochentag ein Montag ist (Case 1<\/b>), dann wird das Textfeld mit Hilfe der DatePart<\/b>-Funktion gefüllt.<\/p>\n Dazu noch ein Hinweis: Wenn Sie im Formular auf eine Kalenderwochenzahl über einem Montag klicken, wechselt der Kalender auf die Anzeige dieser Kalenderwoche beziehungsweise, je nach Optionsfeldeinstellung, auf die Anzeige der nächsten zwei oder drei Kalenderwochen.<\/p>\n Nach dem Füllen der anzuzeigenden Steuerelemente folgt <\/p>\n Die Zählvariable i <\/b>ist an dieser Stelle der höchste anzuzeigende Tag. Sind das weniger als 31, so werden die aktuell nicht benötigten Steuerelemente auf unsichtbar gesetzt, damit sie nicht im Weg stehen, das heißt anzuzeigende Elemente überlagern.<\/p>\n Neue Prozeduren<\/b><\/p>\n Die weiteren kleinen, neuen Prozeduren regeln die verschiedenen Intervalle im Formular. Als Beispiel zeigt Listing 3 die Prozedur AfterUpdate <\/b>des Optionsfeldes für die Anzahl der Kalenderwochen. <\/p>\n Listing 3: Auch nach dem Betätigen des Kalenderwoche-Optionsfeldes wird die Kalenderansicht aktualisiert.<\/p>\n Zuerst wird das Kombinationsfeld mit dem Monat geleert, um nicht zu irritieren. Dann wird das Kombinationsfeld mit der aktuellen Kalenderwoche versorgt, falls es leer ist.<\/p>\n Die beiden Textfelder werden mit dem Start- und Endedatum der Kalenderwoche gefüllt. fctKWMon <\/b>ist dabei eine im Formularmodul enthaltene Funktion, die den Montag einer Kalenderwoche ermittelt. Am Schluss wird der Plan neu aufgebaut.<\/p>\n Die beiden Befehlsschaltflächen mit den Pfeilen zum Vor- und Rückwärtsblättern verwenden dabei das aktuell eingestellte Datumsintervall. Listing 4 zeigt den Code hinter dem Vorwärts-Button.<\/p>\n Listing 4: Diese Routine springt zum nächsten Datumsintervall.<\/p>\n Wenn eine Monatseinstellung aktiv ist, dann werden die Kombinationsfelder für Jahr und Monat mit den Daten für den darauf folgenden Monat versorgt (Me!cboMonat + 1<\/b>). Beide einfach nur um 1 hochzuzählen ist nicht ratsam, weil es sich ja bereits um den zwölften Monat handeln könnte, also um einen Jahreswechsel. Danach wird die normale Monatsroutine aufgerufen. Ist hingegen kein Monat eingestellt, so wird vorsichtshalber das Kombinationsfeld für die Kalenderwoche geleert.<\/p>\n Die aktuell dargestellte Anzahl Tage wird in die Variable lngDays <\/b>geschrieben und die Textfelder mit Start- und Endedatum werden um diese Anzahl erhöht.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Mit den Erläuterungen im ersten Artikel und den Kommentaren im Code der Beispiel-Datenbank sollten Sie die wichtigsten Codeteile nun verste-hen.<\/p>\n Die Datenbank ist klein und der Code nicht allzu umfangreich. Sollten manche Teile noch nicht ganz klar sein, dann spielen und testen Sie mit dem Formular.<\/p>\n Wenn Sie sich etwas damit auseinandersetzen, werden Sie bald in der Lage sein, den Plan so anzupassen, dass Sie Ihre eigenen zeitlichen Abläufe damit visualisieren können – jetzt auch in flexiblen Intervallen.<\/p>\n Quellen<\/p>\n [1] Zeitpläne mit Access erstellen, Ausgabe 3\/2006, Shortlink 353<\/p>\n Enthaltene Beispieldateien:<\/p>\n Zeitplan2.mdb<\/p>\n\n\n ![\"Abbildung1.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Zeitplan2-web-images\/Abbildung1_opt.jpeg\")
\n <\/div>\n\n\n ![\"Abbildung2.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Zeitplan2-web-images\/Abbildung2_opt.jpeg\")
\n <\/div>\n\nPrivate Sub Form_Open(Cancel As Integer)\r\n procFormat\r\n Me!cboMonat = Month(Date)\r\n cboMonat_AfterUpdate\r\n 'grpKW_AfterUpdate\r\n procFill\r\nEnd Sub<\/pre>\n
Sub procFill()\r\n Dim db As DAO.Database\r\n Dim rsPlan As DAO.Recordset, rsDat As DAO.Recordset\r\n Dim ctl As Control\r\n Dim strSQL As String\r\n Dim dteComp As Date\r\n Dim i As Long, lngColor As Long, lngLeft As Long, lngWidth As Long\r\n Dim lngStart As Long, lngEnd As Long, lngDays As Long\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblPlan", dbFailOnError\r\n db.Execute "INSERT INTO tblPlan (RowCaption1) SELECT RmBez FROM tblRaum", _
dbFailOnError\r\n lngLeft = 645\r\n lngWidth = 510\r\n lngStart = Me!txtVon\r\n lngEnd = Me!txtBis\r\n lngDays = lng7End - lngStart + 1\r\n If lngDays < 28 Then\r\n lngWidth = lngWidth * 31 \/ lngDays\r\n End If\r\n strSQL = _
"SELECT a.RmBez, a.RSStart, a.RSEnde, a.RSId, a.RSStatus, b.KDNachname" & _\r\n " FROM tblReservierung AS a LEFT JOIN tblKunde AS b ON a.KDId = b.KDId" & _\r\n " WHERE a.RSStart<=" & lngEnd & _\r\n " And a.RSEnde >" & lngStart & _\r\n " ORDER BY a.RSStart, a.RSEnde"\r\n Set rsPlan = db.OpenRecordset("tblPlan", dbOpenDynaset)\r\n Set rsDat = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n For i = 1 To 31\r\n Me("cptItem" & i).Caption = ""\r\n Me("cpt2Item" & i).Caption = ""\r\n Me("cptItem" & i).BackColor = vbWhite\r\n Me("cpt2Item" & i).BackColor = vbWhite\r\n Me("cptKW" & i).Value = Null\r\n Me("cptWD" & i).Caption = ""\r\n Me("cptItem" & i).Visible = True\r\n Me("cpt2Item" & i).Visible = True\r\n Me("cptWD" & i).Visible = True\r\n Me("cptKW" & i).Visible = True\r\n Me("txtItem" & i).Visible = True\r\n Next i\r\n For i = 1 To lngDays\r\n If lngDays < 28 Then\r\n Me("cptItem" & i).Caption = Format(lngStart + i - 1, "d.m.")\r\n Me("cpt2Item" & i).Caption = Format(lngStart + i - 1, "d.m.")\r\n Else\r\n Me("cptItem" & i).Caption = Day(lngStart + i - 1)\r\n Me("cpt2Item" & i).Caption = Day(lngStart + i - 1)\r\n End If\r\n Me("cptItem" & i).Left = lngLeft + lngWidth * (i - 1)\r\n Me("cptItem" & i).Width = lngWidth\r\n Me("cpt2Item" & i).Left = lngLeft + lngWidth * (i - 1)\r\n Me("cpt2Item" & i).Width = lngWidth\r\n Me("cptWD" & i).Caption = For-mat(lngStart + i - 1, "ddd")\r\n Me("cptWD" & i).Left = lngLeft + lngWidth * (i - 1)\r\n Me("cptWD" & i).Width = lngWidth\r\n Me("cptKW" & i).Left = lngLeft + lngWidth * (i - 1)\r\n Me("cptKW" & i).Width = lngWidth\r\n Me("txtItem" & i).Left = lngLeft + lngWidth * (i - 1)\r\n Me("txtItem" & i).Width = lngWidth\r\n Select Case Weekday(lngStart + i - 1, vbMonday)\r\n Case 1\r\n Me("cptKW" & i).Value = DatePart("ww", lngStart + i - 1, _
vbMonday, vbFirstFourDays)\r\n lngColor = vbBlack\r\n Case 6\r\n lngColor = vbBlue\r\n Case 7\r\n lngColor = vbRed\r\n Case Else\r\n lngColor = vbBlack\r\n Me("cptItem" & i).BackColor = lngColor\r\n Me("cpt2Item" & i).BackColor = lngColor\r\n End Select\r\n Next i\r\n For i = i To 31\r\n Me("cptItem" & i).Visible = False\r\n Me("cpt2Item" & i).Visible = False\r\n Me("cptWD" & i).Visible = False\r\n Me("cptKW" & i).Visible = False\r\n Me("txtItem" & i).Visible = False\r\n Next i\r\n Do Until rsDat.EOF\r\n rsPlan.FindFirst "RowCaption1 = '" & rsDat!RmBez & "'"\r\n rsPlan.Edit\r\n For i = 1 To lngEnd - lngStart + 1\r\n dteComp = lngStart + i - 1\r\n If dteComp >= rsDat!RSStart And dteComp < rsDat!RSEnde Then\r\n rsPlan("Item" & i) = rsDat!RSStatus\r\n rsPlan("ItemTxt" & i) = rsDat!KDNachname\r\n rsPlan("ItemVal" & i) = rsDat!RSId\r\n End If\r\n Next i\r\n rsPlan.Update\r\n rsDat.MoveNext\r\n Loop\r\n Me.Requery\r\nEnd Sub<\/pre>\nlngLeft = 645\r\nlngWidth = 510<\/pre>\n
lngStart = Me!txtVon\r\nlngEnd = Me!txtBis\r\nlngDays = lngEnd - lngStart + 1<\/pre>\n
If lngDays < 28 Then\r\n lngWidth = _
lngWidth * 31 \/ lngDays\r\nEnd If<\/pre>\nTextfeldbreite * 31 maximale Tage \/ darzustellen-de Tage<\/pre>\n
\n ![\"Abbildung3.tif\"](\"..\/fileadmin\/_temp_\/2007_01\/Zeitplan2-web-images\/Abbildung3_opt.jpeg\")
\n <\/div>\n\nFor i = 1 To lngDays\r\n If lngDays < 28 Then\r\n Me("cptItem" & i).Caption = _
Format(lngStart + i - 1, "d.m.")\r\n Me("cpt2Item" & i).Caption = _
Format(lngStart + i - 1, "d.m.")<\/pre>\nMe("txtItem" & i).Left = _
lngLeft + lngWidth * (i - 1)\r\nMe("txtItem" & i).Width = lngWidth<\/pre>\nSelect Case Weekday(lngStart + i - 1, vbMonday)\r\n Case 1\r\n Me("cptKW" & i).Value = _
DatePart("ww", lngStart + i - 1, _
vbMonday, vbFirstFourDays)<\/pre>\nFor i = i To 31\r\n Me("cptItem" & i).Visible _
= False<\/pre>\nPrivate Sub grpKW_AfterUpdate()\r\n Me!cboMonat = Null\r\n If IsNull(Me!cboKW) Then Me!cboKW = DatePart("ww", Date)\r\n Me!txtVon = fctKWMon(Me!cboKW, Me!cboJahr)\r\n Me!txtBis = Me!txtVon + 7 * Me!grpKW - 1\r\n procFill\r\nEnd Sub <\/pre>\nPrivate Sub btnVor_Click()\r\n Dim lngDays As Long\r\n If Not IsNull(Me!cboMonat) Then\r\n Me!cboJahr = Year(DateSerial(Me!cboJahr, Me!cboMonat + 1, 1))\r\n Me!cboMonat = Month(DateSerial(Me!cboJahr, Me!cboMonat + 1, 1))\r\n cboMonat_AfterUpdate\r\n Else\r\n Me!cboKW = Null\r\n lngDays = Me!txtBis - Me!txtVon + 1\r\n Me!txtVon = Me!txtVon + lngDays\r\n Me!txtBis = Me!txtBis + lngDays\r\n End If\r\n procFill\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n