<\/p>\n
Bei der Suche nach sinnvollen Anwendungszwecken für die Kalendersteuerelemente dieser Ausgabe fiel die Entscheidung für ein Beispiel schwer. Wir demonstrieren deren Einsatz nun an einem fingierten Belegungsplan für Ferienwohnungen, der zudem das übersichtskalenderelement noch um das eine oder andere Feature erweitert.<\/b><\/p>\nWohnobjekte und Vermietungszeiträume<\/h2>\n
Buchen Sie im Web eine Ferienwohnung, so werden Sie häufig mit übersichtskalendern konfrontiert, die die noch freien Zeiträume eines Objekts abbilden. Das ist im Prinzip ein idealer Anwendungsfall für das dreimonatige Kalendersteuerelement dieser Ausgabe. Der Teufel liegt allerdings, wie wir noch sehen werden, im Detail. Ohne Modifikation des Steuerelements treffen Sie auf einige Probleme, die es im Folgenden zu lösen gilt.<\/p>\n
Die Buchung des Objekts ist das eine, die übersicht für den Vermieter das andere. Bild 1 zeigt zunächst die Version für den Vermieter. Seine Buchungsdatenbank enthält alle Daten zu seinen Objekten, den Kunden und den gebuchten Zeiträumen. Die bekommt er nun im Formular frmBelegung<\/b> präsentiert.<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2017_05\/frmBelegung_RT.png\")
<\/p>\n
Bild 1: Der Belegungsplan für Ferienwohnungen enthält das dreimonatige Kalendersteuerelement mit mehrfachen Bedingten Formatierungen zur Hervorhebung der Zeiträume<\/span><\/b><\/p>\n Im Kombinationsfeld oben kann er ein Objekt auswählen, dessen Vermietungszeiträume sich danach im Kalender unten abbilden. Mit den Navigationselementen kann er sich dabei durch beliebige Jahre und Monate bewegen. Die Hintergrundfarben symbolisieren verschiedenen Belegungsarten.<\/p>\n Grüne Felder bedeuten, dass diese Tage für das Objekt noch nicht belegt sind, rote, dass diese Tage vermietet sind. Möglicherweise würde das bereits ausreichen, doch es gibt auch noch anders geartete Termine. Zur Reinigung oder Wartung der Objekte etwa fallen unter Umständen zusätzliche Tage an. Eventuell nutzt der Vermieter das Objekt auch für den Eigenbedarf. Auch sonst kann das Objekt aus bestimmten Gründen für die Vermietung gesperrt sein. All diese Typen von Belegung sollen sich im Kalender durch eine entsprechende Farbgebung unterscheiden lassen.<\/p>\n Im Prinzip gibt es drei Einheiten, die es zu verknüpfen gilt. Einmal sind da die Wohnungen, die mindestens durch Bezeichnungen und Adressen repräsentiert werden.<\/p>\n Zum anderen gibt es Kunden, die durch Namen und Adressdaten festgelegt sind. Beide kommen über die Belegungszeiträume zueinander. Eine Belegung benötigt daher einen Verweis auf einen Kunden, einen auf eine Wohnung und dann noch den Mietzeitraum, welcher durch das Datum des Beginns und das des Endes der Buchung bestimmt ist. Somit kommt es zu drei Tabellen, die sich in der Beispieldatenbank tblKunden<\/b>, tblWohnungen<\/b> und tblBelegung<\/b> nennen. Sie sind miteinander über indizierte Schlüsselfelder verknüpft, wie in Bild 2.<\/p>\n Bild 2: Das grundlegende Datenmodell der Beispieldatenbank zum Belegungsplan<\/span><\/b><\/p>\n Diese drei Haupttabellen weisen zusätzlich je ein Feld Vermerk<\/b> auf, in das optional zu jedem Datensatz eine beliebige Notiz oder Information eingetragen werden kann. Das Feld IDTypBeleg<\/b> in tblBelegung<\/b> verweist außerdem auf eine Nachschlagetabelle tblBelegungstyp<\/b>, in der die Arten der Belegung festgehalten sind.<\/p>\n Beginnen wir mit der Tabelle für die Wohnungen (s. Bild 3). Außer der ID<\/b> vom Long<\/b>-Typ Autowert<\/b> enthält sie nur die Bezeichnung<\/b> des Objekts und die Adresse<\/b> in Form eines Memo<\/b>-Felds.<\/p>\n Bild 3: Die Tabelle tblWohnungen im Entwurf<\/span><\/b><\/p>\n Normalerweise würde man die Adresse in mehrere Felder aufteilen, für unseren Zweck lassen wir es aber bei dieser einfachen Lösung. Die Kundentabelle (s. Bild 4) kennen Sie so oder ähnlich schon aus anderen Zusammenhängen. Sie weist hier keinerlei Besonderheiten auf.<\/p>\n Bild 4: Die Tabelle tblKunden in der Entwurfsansicht<\/span><\/b><\/p>\n In der Belegungstabelle (s. Bild 5) gibt es zunächst Start<\/b>– und Enddatum<\/b> eines Mietzeitraums. Dann verweist das Feld IDKunde<\/b> auf die ID<\/b> eines Kundendatensatzes. Genauso verweist wiederum IDWohnung<\/b> auf die ID<\/b> eines Wohnungsdatensatzes. Vervollständigt wird sie mit dem Feld IDTypBeleg<\/b>, das eine Zahl zur Art der Belegung abspeichert, welche aus der Tabelle tblBelegungstyp<\/b> stammt.<\/p>\n Bild 5: Tabelle tblBelegung im Entwurf<\/span><\/b><\/p>\n Alle Beziehungen sind mit Referenzieller Integrität<\/b> ausgestattet, was bedeutet, dass die Tabelle tblBelegung<\/b> keine Datensätze annimmt, bei denen die Verweis-IDs<\/b> in den Fremdtabellen nicht existieren. Außerdem ist für die Beziehungen Aktualisierungs- und Löschweitergabe<\/b> eingestellt.<\/p>\n Damit führt das Löschen eines Kunden oder einer Wohnung automatisch auch zum Löschen aller beteiligten Belegungen, die Verweise auf jene besitzen. Das macht übrigens erforderlich, dass die Felder IDKunde<\/b> und IDWohnung<\/b> indiziert sind und die ID<\/b>-Felder der Haupttabellen jeweils den Primärschlüssel stellen.<\/p>\n Die möglichen Belegungsarten sind in der Tabelle tblBelegungstyp<\/b> (s. Bild 6) untergebracht. Der Standard wäre der Datensatz mit dem ID<\/b>-Wert 2<\/b>, was Vermietet<\/b> bedeutet. Vielleicht fallen Ihnen noch weitere Typen ein.<\/p>\n Bild 6: Die möglichen Belegungsarten der Tabelle tblBelegungstyp in der Datenblattansicht<\/span><\/b><\/p>\n Wir sind auch keine Wohnungsmakler und wissen nicht, ob die Einträge Gesperrt<\/b> oder Unbestimmt<\/b> einen tieferen Sinn besitzen. Das Feld Farbe<\/b> (Datentyp Text<\/b>) nimmt weiter in hexadezimaler Form einen RGB<\/b>-Farbwert an, der später für den Hintergrund der Kalenderzellen über Bedingte Formatierung <\/b>herhalten soll. Das Feld findet nur interne Verwendung. Sein Inhalt kann von Ihnen nach Belieben geändert werden.<\/p>\n Sehen Sie sich einige Datensätze der Tabelle tblBelegung<\/b> in Bild 7 an. Die Felder IDKunde<\/b>, IDWohnung<\/b> und IDTypBeleg<\/b> enthalten eigentlich verweisende Long<\/b>-Werte, die aber in der Datenblattansicht nicht erscheinen, weil diese Felder als Nachschlagefelder<\/b> mit Kombinationsfeldern als Steuerelement ausgeführt sind.<\/p>\n Bild 7: Die Tabelle tblBelegung einhält die drei Spalten IDKunde, IDWohnung und IDTypBeleg als Nachschlagefelder<\/span><\/b><\/p>\n Exemplarisch zeigt Bild 8 das für die Spalte IDKunde<\/b>. Der Herkunftstyp<\/b> ist hier auf Tabelle\/Abfrage<\/b> eingestellt und als Quelle dient die Tabelle tblKunden<\/b>, aus der die erste Spalte (ID<\/b>) angebunden werden soll. Anzeigen aber soll das Feld den Namen des Kunden, welcher sich im dritten Feld befindet. Darum ist Spaltenanzahl<\/b> auch auf 3<\/b> gesetzt.<\/p>\n Bild 8: Das Feld IDKunde in tblBelegung ist ein Nachschlagefeldlegungstyp in der Datenblattansicht<\/span><\/b><\/p>\n Da auch wirklich nur der Name auftauchen soll, müssen zusätzlich die ersten beiden Spaltenbreiten<\/b> des Kombinationsfelds auf 0 cm<\/b> eingestellt sein. Um möglichst viele Kunden bei der DropDown<\/b>-Auswahl berücksichtigen zu können, steht die Zeilenanzahl<\/b>, abweichend vom Access-Standard 16<\/b>, auf 30<\/b>.<\/p>\n Damit ist das eigentliche Datenmodell der Datenbank hinreichend erläutert. Für unseren speziellen Anwendungsfall ist nun aber noch die für das Kalendersteuerelement verantwortliche Tabelle tblCalendarMonths<\/b> zu verändern. Zur Erinnerung: Die enthält 21 Felder vom Typ Zahl (Long<\/b>), in denen Datumswerte abgespeichert werden.<\/p>\n Negative Werte bestimmten dabei jene Bereiche des Kalenders, die farblich hinterlegt werden sollen.<\/p>\n Nun haben wir es bei unserem Belegungsplan aber nicht nur mit einer möglichen Farbe zu tun, sondern, je nach Art der Belegung, mit mehreren.<\/p>\n Folglich muss ein Datenfeld dieser Tabelle mehr Informationen hergeben, als nur das Datum und ein Vorzeichen.<\/p>\n Deshalb änderten wir alle Felder auf den Typ Text<\/b>. Der mögliche Inhalt der Felder geht aus der Datenblattansicht in Bild 9 hervor, nachdem sich die Tabelle über das Formular sfrmCalendarMonths<\/b> füllte.<\/p>\n Bild 9: Die Tabelle tblCalendarMonths kombiniert in ihren Feldern das Datum und den Belegtyp eines Kalendereintrags in einer Textform<\/span><\/b><\/p>\n Das eigentliche Datum steht nun an vorderster Stelle und ist immer 5 Zeichen lang. Danach schließt sich als visueller Trenner ein Unterstrich an, auf den der Typ der Belegung als Ziffer folgt. Es ist logisch, dass diese änderung der Tabelle dann auch Modifikationen der beteiligten Routinen im Formular, wie der Prozedur FillCalendar<\/b>, erfordert. Dazu später mehr.<\/p>\n Für die Kunden und Wohnungen der Datenbank gibt es keine Anzeige- oder Eingabeformulare, da wir uns komplett auf die Kalenderansichten konzentrieren. Diese müssten Sie gegebenenfalls selbst nachrüsten. Die Datensätze sind bei den Kunden aus den hinlänglich bekannten Demo-Adresstabellen von Access Basics<\/b> importiert. Die Wohnobjekte sind natürlich fingiert. Bild 10 zeigt alle in die Beispieldatenbank eingebauten.<\/p>\n Bild 10: Die Tabelle tblWohnungen speichert alle vermiet- und belegbaren Objekte<\/span><\/b><\/p>\n Neben verlockenden Ferienwohnungen erfanden wir noch Einzelzimmer und Pensionszimmer. Die Pension Zum Hirschen<\/b> kann nur ein Zimmer anbieten.<\/p>\n Die Einträge in der Spalte Vermerk<\/b> zeigen, wofür Sie intern für den Vermieter verwendet werden könnte. Wollten Sie die Sache professionell gestalten, so enthielte diese Tabelle noch weit mehr Felder. So etwa zu Ausstattungsmerkmalen oder in einem Anlagefeld<\/b> Fotos des Interieurs.<\/p>\n Nachdem die Tabelle tblCalendarMonths<\/b> nun String<\/b>-, statt Long<\/b>-Werte erwartet, muss die Routine FillCalendar<\/b> zum Füllen der Tabelle komplett überarbeitet werden. In Listing 1 ist nur jener Teil abgebildet, der sich gegenüber der Ursprungsprozedur verändert hat. <\/p>\n <\/p>\n Listing 1: Neues Befüllen der Tabelle tblCalendarMonths<\/span><\/b><\/p>\n Dabei ist der Grundaufbau mit den drei ineinander verschachtelten Schleifen gleich geblieben. Ebenso die Berechnung der Datumswerte in der Variablen DTmp<\/b> und die Abbruchbedingung beim Vergleich mit MaxDate<\/b>.<\/p>\n Neu hingegen ist die Speicherung des Belegungstyps in der Long-Variablen lType<\/b>, der aus der ebenfalls modifizierten Routine IsInRanges<\/b> (s. Listing 2) stammt. Diese gibt nun nicht mehr einfach True<\/b> oder False<\/b> zurück, sondern eine Zahl, die der ID<\/b> in der Tabelle tblBelegungsarten<\/b> entspricht. Einem Datenfeld von tblCalendarMonths<\/b> wird schließlich der per CLng<\/b> erhaltene Integer-Wert des Datums DTmp<\/b> zugewiesen, gefolgt vom Unterstrich und dem Inhalt der soeben ermittelten Variablen lType<\/b>.<\/p>\n Listing 2: Auch die Hilfsfunktion IsInRanges ändert sich<\/span><\/b><\/p>\n Das Array arrRanges<\/b> des Moduls, welches die Zeiträume aufnimmt, basiert nun auf dem erweiterten Typ TRange<\/b> im Modulkopf. Neben StartDate<\/b> und EndDate<\/b> weist dieser Typ nun zusätzlich das Element Type<\/b> aus. Beim Zuweisen eines Zeitraums über die Methode AddRange<\/b> müssen Sie nun auch den Belegungstyp angeben (s. Listing 3).<\/p>\n Listing 3: Prozedur zum Zuweisen eines Zeitraums<\/span><\/b><\/p>\n Ermittelt die Funktion IsInRanges<\/b>, dass sich das übergebene Datum D<\/b> innerhalb der abgespeicherten Zeiträume befindet, so gibt sie nun die Zahl aus arrRanges(i).Type<\/b> zurück.<\/p>\n Mehr gibt es zum Füllen der Tabelle tblCalendarMonths<\/b> nicht zu sagen. Was nun noch aussteht, sind änderungen an den Textboxen des Detailbereichs, denn weder die Ausdrücke für den Steuerelementinhalt, noch jene für die Bedingte Formatierung<\/b> stimmen nunmehr infolge der Textdaten der Tabelle.<\/p>\n Die Steuerelementinhalte ändern sich von <\/p>\n auf den folgenden Inhalt:<\/p>\n Nicht mehr der Feldwert selbst (D11<\/b>) wird zur Berechnung herangezogen, sondern die ersten fünf Ziffern. Tatsächlich hat die Day<\/b>-Funktion von VBA (Tag()<\/b>) kein Problem mit dem von Left<\/b> zurückgegebenen String. Hier findet intern wohl eine zweifache Konvertierung statt: Aus dem Text entsteht ein Integer und aus diesem wiederum ein Datumswert. VBA nimmt diese beim Ansprechen von Day()<\/b> ganz automatisch vor! Es wäre ein mühsames Unterfangen, diese Ausdrücke alle manuell anzulegen.<\/p>\n Die Routine SetCtlSource<\/b> im Modul mdlHelper<\/b> (s. Listing 4) der Datenbank setzt sie automatisiert alle auf einen Schlag, nachdem Sie das Formular sfrmCalendarMonths<\/b> in der Entwurfsansicht öffnen. Alle Textboxen des Detailbereichs werden in einer Schleife durchlaufen, der Datenfeldname aus dem Steuerelementnamen extrahiert und in S<\/b> gespeichert.<\/p>\n Listing 4: Automatisiertes Setzen der Textbox-Ausdrücke<\/span><\/b><\/p>\n Die ControlSource<\/b> (Steuerelementinhalt<\/b>) wird nun zusammengebastelt und der Textbox ctl<\/b> zugewiesen, wobei im Ausdruck die englische Syntax zur Anwendung kommen muss.<\/p>\n ähnlich verfährt die Hilfsroutine zum Setzen der Bedingten Formatierungen<\/b>. Hier wäre die manuelle Anlage eine wahre Sisyphusarbeit! Denn für jede der 21 Textfelder müssen Sie nun, wie in Bild 11, je fünf Regeln vorsehen, damit die unterschiedlichen Hintergrundfarben zum Tragen kommen.<\/p>\n Bild 11: Jedes Textfeld des Kalenders benötigt nun fünf bedingte Format-Regeln<\/span><\/b><\/p>\n Die rechte Seite des Datenfeld-Strings wird abgeschnitten und mit einer der Zahlen von 1<\/b> bis 5<\/b> verglichen.<\/p>\n Trifft das zu, so färbt die Regel den Zellhintergrund entsprechend ein. Beispiel:<\/p>\n Bei mehrfachen Regeln zu einer Bedingten Formatierung<\/b> werden diese von oben nach unten abgearbeitet. Stünde in allen der gleiche Vergleichsausdruck, so käme es bei übereinstimmung zum untersten Format, also der grauen Hintergrundfarbe.<\/p>\n Die Regeln werden in der Routine SetFormatConditions<\/b> auf die gleiche Weise angelegt, wie wir das bereits im Beitrag zum Kalendersteuerelement demonstrierten. Listing 5 bildet die Prozedur ab. Basis bildet die Tabelle tblBelegungstyp<\/b>, auf die ein Recordset<\/b> geöffnet wird.<\/p>\n Listing 5: Automatisiertes Setzen der bedingten Formate im Detailbereich von sfrmCalendarMonths<\/span><\/b><\/p>\n Für jede Textbox ctl<\/b> werden die Datensätze des Recordsets jeweils in Do-While<\/b> durchlaufen und der Vergleichsausdruck anhand des ID<\/b>-Werts der Tabelle bestimmt. Auch hier ist zwingend englische Syntax zu verwenden!<\/p>\n Die Hintergrundfarbe setzt die Eigenschaft BackColor<\/b> der einzelnen FormatCondition<\/b> fmtCond<\/b>, wobei der Farbwert sich direkt aus dem Datenfeld Farbe<\/b> des Recordsets ableitet. Aus dem Hexadezimal-String wird über Val<\/b> und das Hex-Präfix &H <\/b>ein Long<\/b>-Wert erhalten.<\/p>\n Nach dem Aufruf der Routine müssen Sie das Formular im Entwurf dezidiert speichern, bevor Sie es schließen, denn bei Entwurfsänderungen, die per VBA vorgenommen wurden, fragt Access in der Regel nicht automatisch nach!<\/p>\n Sie ersparen sich also mit dieser Hilfsprozedur die manuelle Anlage von 105 Formatierungsausdrücken! In der dafür benötigten Zeit ist sie längst programmiert. Hinzu kommt, dass Sie die Hintergrundfarben in der Tabelle tblBelegungstyp<\/b> eventuell auch einmal ändern möchten. Dann wären alle Formatierungsregeln zu modifizieren. Mit der Routine gelingt das im Nu!<\/p>\n übrigens sind die Textboxen in dieser Version des Kalendersteuerelements nicht transparent, sondern mit einem festen grünen Hintergrund versehen, der die freien Buchungszeiträume symbolisiert.<\/p>\n Gleich vorweg: Das Auswerten und Rendern der Bedingten Formatierung<\/b> ist, da es für jede Zelle des Kalenders geschehen muss, ein rechenintensiver Prozess. Immerhin enthält der Kalender bis zu 126 Zellen, die jeweils ausgewertet werden.<\/p>\n Das führt, je nach Rechnerausstattung, zu einer kleinen Verzögerung. Sie können den Vorgang etwas beschleunigen, indem Sie das Neuzeichnen des Formulars kurzfristig aussetzen. Am Anfang der Prozedur FillCalendar<\/b> könnten Sie etwa die Eigenschaft Painting<\/b> des Formulars deaktivieren und am Schluss wieder aktivieren:<\/p>\n Grundsätzlich aber kann auf das Rendern der Bedingten Formatierungen<\/b> nur wenig Einfluss genommen werden. Bei umfangreichen Datenblättern wird die sequenzielle Formatierung von oben nach unten durchaus sichtbar. Warum Microsoft keine Möglichkeit vorgesehen hat, die Farben der einzelnen<\/b> Zellen eines Datenblatts oder eines Endlosbereichs über eine VBA-Eigenschaft direkt zu beeinflussen, ist etwas rätselhaft, da die Einzelformatierung im Prinzip intern ja eingebaut ist. Andere ActiveX-Grids<\/b> sehen derlei durchaus vor.<\/p>\n Bei Klick auf ein Datum des Kalenders passiert in der bisherigen Version gar nichts. Das möchten wir ändern. Dazu muss für jede der 21 Textboxen eine Click<\/b>-Ereignisprozedur angelegt werden, die wieder lediglich die Sub-Prozedur fuClick<\/b> aufruft. Diese soll dann das Datum der Zelle ermitteln und an ein Ereignis weiterleiten. Das neue Ereignis ist im Kopf des Moduls so deklariert:<\/p>\n Neben dem Datum in ThisDate<\/b> soll das Ereignis zusätzlich in Typ<\/b> die Information über den Belegungstyp des Datums liefern. Zunächst die Klickereignisse der Textboxen:<\/p>\n Die Prozedur fuClick<\/b> wertet wieder das aktive Steuerelement (ActiveControl<\/b>) im Formular aus:<\/p>\n In S<\/b> wird der Name des Datenfelds gespeichert, an das die Textbox gebunden ist. Aus txtD13<\/b> wird so etwa D13<\/b>. Denn nicht den über einen Ausdruck erhaltenen sichtbaren Wert der Textbox selbst benötigen wir hier, sondern den Wert des Datenfelds.<\/p>\n Auf dieses können wir nun Bezug nehmen, denn zu jedem Datenfeld enthält ein Formular ein verstecktes unsichtbares Steuer-element gleichen Namens. Deshalb gibt Controls(S).Value<\/b> direkt den zugrunde liegenden Datenwert zurück. Von diesem wird zunächst der linke Teil mit den fünf Ziffern berücksichtigt, der das eigentliche Datum darstellt und sich über CDate<\/b> in D<\/b> speichert.<\/p>\n Die eine rechte Ziffer hingegen symbolisiert den Belegungstyp<\/b> und kommt als Long<\/b>-Wert (CLng<\/b>) in die Variable T<\/b>. Beide zusammen werden dem Ereignis DateClicked<\/b> überreicht, das nun per RaiseEvent<\/b> ausgelöst wird.<\/p>\n Nachdem das Formular sfrmCalendarMonths<\/b> für den übersichtskalender unseren Anforderungen entsprechend umgestaltet wurde, kann es in ein Hauptformular eingebaut werden, das sich in der Beispieldatenbank frmBelegung<\/b> nennt. Im Entwurf stellt es sich dar, wie in Bild 12. Als einziges zusätzliches Steuerelement enthält es oben ein Kombinationsfeld zur Auswahl des Mietobjekts.<\/p>\n Bild 12: Das Formular frmBelegung im Entwurf mit integriertem Kalenderunterformular<\/span><\/b><\/p>\n Diese Combobox cbObjekt<\/b> speist sich direkt aus der Tabelle tblWohnungen<\/b> und gibt nach Auswahl die ID<\/b> der Wohnung als Wert zurück. Das Ereignis Nach Aktualisieren<\/b> (AfterUpdate<\/b>) der Combobox zieht die Vorgänge in Listing 6 nach sich. <\/p>\n Listing 6: Nach Auswahl eines Mietobjekts fügt diese Ereignisprozedur dem Kalender neue Zeiträume hinzu.<\/span><\/b><\/p>\n Erst werden alle eventuell gespeicherten Zeiträume des Kalendersteuerelements über die Anweisung DeleteRanges<\/b> gelöscht. Außerdem wird die Routine gleich verlassen, wenn in der Combobox nichts ausgewählt ist, ihr Wert also Null<\/b> beträgt.<\/p>\n Ansonsten öffnet sich ein Recordset auf eine Abfrage, die die Tabelle tblBelegung<\/b> hernimmt und nach der Wohnung mit der von der Combobox zurückgegebenen ID<\/b> filtert. Eine Schleife arbeitet nun alle Zeiträume ab und weist sie dem Kalender über die Methode AddRange<\/b> zu.<\/p>\n Jedes Zuweisen eines Zeitraums führt zu einem Neuzeichnen des Kalenders. Um das dabei auftretende Flackern zu eliminieren, ist für die ganze Schleife das Neurendern über Painting = False<\/b> deaktiviert.<\/p>\n Erst am Ende findet deshalb die visuelle Ausgabe statt, nachdem die Eigenschaft wieder auf True<\/b> gesetzt ist.<\/p>\n Die einzige weitere Prozedur des Moduls ist die Reaktion auf das neue Ereignis DateClicked<\/b> des Kalendersteuerelements, welches der Objektvariablen oCalendar<\/b> zugewiesen wurde. Sie entnimmt den übergebenen Parametern das Datum und den Typ der Belegung und zeigt dann informativ in einem Meldungsfenster an, ob dieses Datum für das Mietobjekt schon belegt oder frei ist. <\/p>\n Eine Erweiterung des Belegungsformulars findet sich im Formular frmBuchung<\/b> der Beispieldatenbank (s. Bild 13). Hier kann nicht nur ein Wohnobjekt aus einem Kombinationsfeld gewählt werden, sondern auch ein Kunde. Das Kalendersteuerelement zeigt die Zeiträume auf gleiche Weise an, wie der Belegungsplan zuvor.<\/p>\n Bild 13: Das Formular frmBuchungen im Entwurf ist eine Erweiterung von frmBelegung<\/span><\/b><\/p>\n über die Schaltflächen Vom…<\/b> und Bis…<\/b> können Sie hier jedoch für den Kunden einen Buchungszeitraum festlegen, der dann auch in der Tabelle tblBelegung<\/b> abgespeichert wird und sich sofort in der Ansicht wiederspiegelt. <\/p>\n Die beiden Schaltflächen rufen jeweils den einfachen Auswahlkalender dieser Ausgabe auf. Das ist ein Verhalten, das häufig bei Buchungssystem im Web zu finden ist. Bei uns sieht das dann aus, wie in Bild 14. Aus dem überlagernden Popup-Kalender wird hier das Enddatum der Buchung ausgewählt.<\/p>\n Bild 14: Formular frmBuchungen zur Laufzeit und ein Popup-Datumsauswahlkalender<\/span><\/b><\/p>\n Allerdings wird das Auswahlkalenderformular sfrmCalendar<\/b> nicht standalone aufgerufen, sondern ist in ein Hauptformular frmCalendarDlg<\/b> eingebaut, das einige Eigenschaften des Steuerelements steuert.<\/p>\n Für dessen Aufruf haben wir eine Prozedur GetDateDialog<\/b> (mdlCalendar<\/b>) erstellt (s. Listing 7):<\/p>\n Listing 7: Beispiel für das öffnen des Datumsdialogs<\/span><\/b><\/p>\n Sie können diese etwa auch aus dem VBA-Direktfenster so aufrufen:<\/p>\n Damit öffnet sich der Popup-Kalender mit der in Title<\/b> übergebenen überschrift und dem gewünschten voreingestellten Datum. Nach Klick auf ein Datum oder nach Schließen des Datumdialogs über die Schließen<\/b>-Schaltfläche erscheint das geklickte Datum im Ausgabefenster als Rückgabewert der Funktion.<\/p>\n Die Funktion öffnet zunächst das Formular frmCalendarDlg<\/b> als Dialog. In diesem Modus hält die Prozedur an und wartet, bis es sich geschlossen hat oder unsichtbar wurde. Genau Letzteres macht auch das Formular frmCalendarDlg<\/b>. Bei Auswahl eines Datums stellt sie seine Visible<\/b>-Eigenschaft auf False<\/b>, nachdem es eine Datenmodell<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2017_05\/RelLayout.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblWohnungen_DS.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblKunden_DS.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2017_05\/tblBelegung_DS.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblBelegungstyp.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblBelegung_RT.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2017_05\/tblBelegung_Nachschlage.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblCalendarMonths_RT.png\")
<\/p>\nKunden und Wohnungsobjekte<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2017_05\/tblWohnungen_RT.png\")
<\/p>\nänderungen am Kalendersteuerelement sfrmCalendarMonths<\/h2>\n
Private Sub <\/span>FillCalendar()\r\n (...)\r\n Set<\/span> rs = CurrentDb.OpenRecordset(\"tblCalendarMonths\", dbOpenDynaset)\r\n For n = 0 To 4\r\n rs.AddNew<\/span>\r\n For i = 1 To 3\r\n MaxDate = DateSerial(m_Year, m_Month + i - 1, 0)\r\n For j = 1 To 7\r\n DTmp = DateAdd(\"m\", i - 1, StartDate)\r\n DTmp = DateAdd(\"d\", n * 7 + j - 1, DTmp)\r\n If <\/span>DTmp > MaxDate Then<\/span> Exit For<\/span>\r\n lType = IsInRanges(DTmp)\r\n rs.Fields(\"D\" & CStr(j) & CStr(i)).Value = CLng(DTmp) & \"_\" & CStr(lType)\r\n Next<\/span> j\r\n Next<\/span> i\r\n rs.Update\r\n Next<\/span> n\r\n (...)\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>Type TRange\r\n StartDate As Date<\/span>\r\n EndDate As Date<\/span>\r\n Type As Long<\/span>\r\nEnd Type \r\nPrivate Function <\/span>IsInRanges(D As Date<\/span>) As Long<\/span>\r\n Dim <\/span>i As Long<\/span>, n As Long<\/span>\r\n On Error Resume Next<\/span>\r\n n = UBound<\/span>(arrRanges)\r\n If <\/span>Err.Number <> 0 Then<\/span>\r\n On Error GoTo<\/span> 0: Exit Function<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n For i = 0 To n\r\n If <\/span>(D >= arrRanges(i).StartDate) And (D <= arrRanges(i).EndDate) Then<\/span>\r\n IsInRanges = arrRanges(i).Type: Exit For<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>AddRange(StartDate As Date<\/span>, EndDate As Date<\/span>, Typ As Long<\/span>)\r\n (...)\r\n ReDim Preserve arrRanges(n)\r\n arrRanges(n).StartDate = StartDate\r\n arrRanges(n).EndDate = EndDate\r\n arrRanges(n).Type = Typ\r\n (...)\r\nEnd Sub<\/span><\/pre>\n=Wenn(IstNull([D11]);\"\";Tag(Abs([D11])))<\/pre>\n
=Wenn(IstNull([D11]);\"\";Tag(Links([D11];5)))<\/pre>\n
Sub <\/span>SetCtlSource()\r\n Dim <\/span>frm As <\/span>Access.Form\r\n Dim <\/span>ctl As <\/span>Access.TextBox\r\n Dim <\/span>S As String<\/span>\r\n \r\n Set<\/span> frm = Screen.ActiveForm\r\n For Each ctl In frm.Section(acDetail).Controls\r\n S = \"[\" & Mid<\/span>(ctl.Name, 4) & \"]\"\r\n ctl.ControlSource = \"=IIF(IsNull(\" & S & \"),\"\"\"\",Day(Left<\/span>(\" & S & \",5)))\"\r\n Next<\/span> ctl\r\nEnd Sub<\/span><\/pre>\n![\"Jedes](\"..\/fileadmin\/_temp_\/2017_05\/FormatConditions.png\")
<\/p>\nD31 = \"42889_2\" -> Sa, 03.07.2017; Vermietung\r\nRight<\/span>([D31]) = \"2\" -> roter Hintergrund<\/pre>\nSub <\/span>SetFormatConditions()\r\n Dim <\/span>frm As <\/span>Access.Form\r\n Dim <\/span>ctl As <\/span>Access.TextBox\r\n Dim <\/span>S As String<\/span>\r\n Dim <\/span>fmtcond As <\/span>FormatCondition\r\n Dim <\/span>rs As <\/span>DAO.Recordset\r\n \r\n Set<\/span> rs = CurrentDb.OpenRecordset(\"SELECT * FROM tblBelegungstyp\", dbOpenDynaset)\r\n Set<\/span> frm = Screen.ActiveForm\r\n For Each ctl In frm.Section(acDetail).Controls\r\n S = \"[\" & Mid<\/span>(ctl.Name, 4) & \"]\"\r\n ctl.FormatConditions.Delete\r\n rs.MoveFirst\r\n Do While<\/span> Not<\/span> rs.EOF\r\n Set<\/span> fmtcond = ctl.FormatConditions.Add( _\r\n acExpression, , \"Right<\/span>(\" & S & \",1)=\" & rs!Id.Value)\r\n fmtcond.BackColor = Val(\"&H\" & rs!Farbe.Value)\r\n rs.MoveNext<\/span>\r\n Loop<\/span>\r\n Next<\/span> ctl\r\n rs.Close\r\nEnd Sub<\/span><\/pre>\nSub <\/span>FillCalender()\r\n Me.Painting = False<\/span>\r\n (Berechnungen...)\r\n Me.Painting = True<\/span>\r\nEnd Sub<\/span><\/pre>\nZusätzliches Click-Ereignis<\/h2>\n
Public <\/span>Event DateClicked(ByVal ThisDate As Date<\/span>, Typ As Long<\/span>)<\/pre>\nPrivate Sub <\/span>txtD11_Click()\r\n fuClick\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtD12_Click()\r\n fuClick\r\nEnd Sub<\/span>\r\n... etc. ...<\/pre>\nPrivate Sub <\/span>fuClick()\r\n Dim <\/span>S As String<\/span>\r\n Dim <\/span>D As Date<\/span>\r\n Dim <\/span>T As Long<\/span>\r\n \r\n S = Mid<\/span>(Me.ActiveControl.Name, 4)\r\n D = CDate(Left<\/span>(Me.Controls(S).Value, 5))\r\n T = CLng(Right<\/span>(Me.Controls(S).Value, 1))\r\n RaiseEvent DateClicked(D, T)\r\nEnd Sub<\/span><\/pre>\nEinbau des Kalender-steuerelements in das Formular Belegungsplan<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2017_05\/frmBelegung_DS.png\")
<\/p>\nPrivate Sub <\/span>cbObjekt_AfterUpdate()\r\n Dim <\/span>rs As <\/span>DAO.Recordset\r\n \r\n oCalendar.DeleteRanges\r\n If <\/span>IsNull(Me!cbObjekt.Value) Then<\/span> Exit Sub<\/span>\r\n \r\n Set<\/span> rs = CurrentDb.OpenRecordset(\"SELECT * FROM tblBelegung WHERE IDWohnung=\" & cbObjekt.Value, dbOpenDynaset)\r\n Me.Painting = False<\/span>\r\n Do While<\/span> Not<\/span> rs.EOF\r\n oCalendar.AddRange rs!Startdatum.Value, _\r\n rs!Enddatum.Value, rs!IDTypBeleg.Value\r\n rs.MoveNext<\/span>\r\n Loop<\/span>\r\n Me.Painting = True<\/span>\r\nEnd Sub<\/span><\/pre>\nBuchung über den Kalender<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2017_05\/frmBuchung_DS.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2017_05\/frmBuchung_RT.png\")
<\/p>\nFunction <\/span>GetDateDialog(Optional<\/span> SelDate As Variant<\/span>, Optional<\/span> Title As String<\/span>) As Variant<\/span>\r\n DoCmd.OpenForm \"frmCalendarDlg\", , , , , acDialog, SelDate & \"|\" & Title\r\n On Error Resume Next<\/span>\r\n GetDateDialog = Forms!frmCalendarDlg.SelectedDate\r\n DoCmd.Close acForm, \"frmCalendarDlg\"\r\nEnd Function<\/span><\/pre>\n GetDateDialog(\"01.01.2019\", \"Test\")<\/pre>\n