<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Microsoft bietet ein eigenes Kalendersteuerelement an, das in beliebige Formulare eingebaut werden kann. Das ist an sich sehr praktisch und auch zügig erledigt, kann aber schnell zum Selbsttor werden: Wenn Sie eine Anwendung mit integriertem Kalendersteuerelement weitergeben, kann es schnell passieren, dass die Anwendung unbedienbar wird, weil das entsprechende OCX-Steuerelement fehlt. Das Steuerelement wird nämlich keinesfalls einfügt, sondern nur verknüpft. Es muss auf jedem Rechner vorhanden sein, auf dem die Anwendung laufen soll. Damit Sie keine Probleme damit haben, programmieren Sie einfach ein eigenes Kalendersteuerelement, das außerdem noch zusätzliche Funktionen aufweist.<\/b><\/p>\n
Das Kalendersteuerelement dient der Anzeige und Auswählen von Datumsangaben. Das Hauptaugenmerk liegt dabei auf der vereinfachten Eingabe.<\/p>\n
Wenn Sie dem Benutzer eine Eingabemaske zur Auswahl des gewünschten Datums zur Verfügung stellen, haben Sie die volle Kontrolle darüber, dass dieses auch im richtigen Format eingegeben wird.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{BB13882A-4B2C-4BBF-9569-D57007741A39}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Das Kalendersteuerelement von Microsoft<\/span><\/b><\/p>\n Microsoft stellt ein Kalendersteuerelement zur Verfügung, das zur Eingabe des Datums zwei Kombinationsfelder zur Auswahl von Monat und Jahr sowie den ausgewählten Daten angepasstes Kalenderblatt zur Auswahl des Tages bereitstellt (siehe Bild 1).<\/p>\n Leider ergeben sich immer wieder Schwierigkeiten beim Einsatz dieses Steuerelements. Die meisten davon treten auf, wenn eine Datenbankanwendung, die auf dieses Steuerelement zugreift, auf andere Rechner übertragen werden soll. Es kann dann vorkommen, dass das Kalendersteuerelement nicht in der richtigen Version oder gar nicht vorhanden ist.<\/p>\n Wer Datenbanken für andere entwickelt, kennt die daraus resultierenden Probleme. Diese können natürlich auch mit dem Kalendersteuerelement von Microsoft gelöst werden, aber auf Nummer Sicher gehen Sie mit einer Lösung, die komplett auf externe Komponenten verzichtet. Daher lernen Sie im vorliegenden Beitrag, wie Sie ein Kalenderformular zur Auswahl und Anzeige von Datumsangaben erstellen und dieses in Ihre eigenen Anwendungen integrieren können.<\/p>\n Das Kalenderformular soll wie in Bild 2 aufgebaut sein. Der Aufbau behebt einige ergonomische Schwächen des Kalendersteuerelements. So können die Monate und Jahre über ein Listenfeld ausgewählt werden, was bei den Monaten immer und bei den Jahren in den meisten Fällen zumindest den Klick zum öffnen des Kombinationsfeldes spart.<\/p>\n Außerdem ist die Anordnung der Steuerelemente so gestaltet, dass Tag, Monat und Jahr in der in Deutschland üblichen Reihenfolge ausgewählt werden können.<\/p>\n Daneben wird bei dem OCX nach der Auswahl eines anderen Monats oder Jahres der ausgewählte Tag wieder aufgehoben, was sehr nervend sein kann, wenn man nicht weiß, dass zuerst Monat und Jahr und dann erst der Tag ausgewählt werden soll. Die selbst gebaute Lösung soll auch dieses Manko beheben.<\/p>\n <\/b><\/p>\n Bild 2: Das selbst gebaute Kalendersteuerelement<\/span><\/b><\/p>\n Das Formular besteht aus den beiden Listenfeldern für die Auswahl von Monat und Jahr, einer Schaltfläche zum Bestätigen der Auswahl sowie aus 42 Bezeichnungsfeldern für die Auswahl des Tages.<\/p>\n Warum nun 42 Bezeichnungsfelder für nur maximal 31 Tage Eine Woche wird in einer Zeile angezeigt und eventuell passt gerade ein Tag in die erste Zeile. Wenn nicht gerade Februar ist, werden in dem Fall vier volle und zwei angefangene Zeilen benötigt – und sechs Zeilen mit je sieben Feldern ergeben 42 Felder.<\/p>\n Das Listenfeld namens lstMonate zur Auswahl der Monate ist nicht gebunden und hat eine Wertliste als Datenherkunft. Die Wertliste hat folgenden Inhalt:<\/p>\n Damit nicht die Monatszahlen, sondern nur Monatsnamen im Listenfeld angezeigt werden, stellen Sie die Eigenschaften Spaltenanzahl und Spaltenbreiten auf die Werte 2 und 0 ein.<\/p>\n Richten Sie die Höhe des Listenfeldes so ein, dass alle zwölf Monate gleichzeitig zu sehen sind.<\/p>\n Das Listenfeld zur Auswahl der Jahre heißt lstJahre und hat ebenfalls eine Wertliste als Datensatzherkunft.<\/p>\n Den Inhalt der Wertliste können Sie in Abhängigkeit von der Verwendung beliebig festlegen. Die Wertliste der Beispieldatenbank enthält beispielsweise alle Jahre von 1900 bis 2050. Das sollte für die Lebensdauer dieses Formulars und alle Anwendungen ausreichend sein.<\/p>\n Falls Sie keine Lust haben, eine solch umfangreiche Wertliste manuell zu erstellen, legen Sie sich einfach eine kleine Funktion in einem Modul Ihrer Wahl an und lassen Sie das Ergebnis im Testfenster ausgeben:<\/p>\n Anschließend kopieren Sie die Zeichenfolge in die entsprechende Eigenschaft.<\/p>\n Die Auswahl der Tage könnte zwar auch mit einem Listen- oder Kombinationsfeld erledigt werden, aber auf Grund der vielen Informationen, die dort schwer unterzubringen sind, ist die hier gewählte Variante wesentlich ergonomischer und übersichtlicher.<\/p>\n Legen Sie zunächst sieben Bezeichnungsfelder für die Bezeichnungen der einzelnen Wochentage an. Diese können Sie dann sechs Mal in die jeweils darunter liegende Zeile kopieren.<\/p>\n Vergeben Sie entsprechend der Zeile und der Spalte die Namen für die Bezeichnungsfelder in der Form date<Zeile><Spalte>. Das linke obere Bezeichnungsfeld heißt also beispielsweise date11, das rechte obere date16 und so weiter.<\/p>\n Stellen Sie den Wert der Eigenschaft Hintergrund auf Normal ein, damit später änderungen der Hintergrundfarbe auch sichtbar werden – bei Verwendung eines transparenten Hintergrunds können Sie die Farbe nämlich ändern, ohne dass sich etwas tut.<\/p>\n Um die Beschriftung müssen Sie sich noch keine Gedanken machen, da diese ohnehin von der Kombination aus Monat und Jahr abhängt.<\/p>\n Das ausgewählte Datum wird zu jedem Zeitpunkt in einem Textfeld namens txtDatum gespeichert. Dieses Textfeld soll unsichtbar sein; stellen Sie daher den Wert der Eigenschaft Sichtbar auf Nein ein.<\/p>\n Damit das Kalenderformular auch Feiertage anzeigen kann, müssen die entsprechenden Daten zur Verfügung stehen. Im Beitrag Feiertage berechnen mit Access in Ausgabe 6\/2001 von Access im Unternehmen erfahren Sie, wie Sie eine Tabelle namens Feiertage erstellen und bundeslandabhängig mit Feiertagsbezeichnungen und deren Daten füllen (siehe Bild 3).<\/p>\n <\/p>\n <\/b><\/p>\n Bild 3: Die Tabelle Feiertage<\/span><\/b><\/p>\n Dabei können Sie auch angeben, für welchen Zeitraum die Anwendung die Feiertagsdaten in die Tabelle schreiben soll. Passen Sie diesen Zeitraum den in der Wertliste des Listenfeldes lstJahre enthaltenen Jahren an.<\/p>\n Der letzte Schritt bei der Erstellung des Kalenderformulars besteht im Hinzufügen der Ereignisprozeduren, um die einzelnen Steuerelemente zum Leben zu erwecken.<\/p>\n Die Prozeduren werden nachfolgend in der Reihenfolge beschrieben, in der sie beim öffnen und Anwenden des Formulars verwendet werden.<\/p>\n Stellen Sie sich das Formular zunächst als eine Blackbox vor, die unter Angabe eines initialen Datums aufgerufen wird und nach der Auswahl das gewünschte Datum in einem Textfeld bereithält. Die folgende Funktion überprüft zunächst, ob das Kalenderformular bereits geöffnet ist, und schließt es gegebenenfalls kurz. Dazu verwendet es die Funktion IstFormularGeoeffnet (siehe Beitrag überprüfen, ob Formular geöffnet ist im Bereich Formulare unter www.access-im-unternehmen.de).<\/p>\n Anschließend wird das Formular mit dem gewünschten Datum als öffnungsargument als Dialog aufgerufen. Das bedeutet, dass die aufrufende Funktion angehalten wird, bis das Formular geschlossen oder ausgeblendet wird.<\/p>\n Quellcode 1<\/b><\/p>\n Nach dem Ausblenden des Formulars wird erneut überprüft, ob das Formular noch geöffnet ist und gegebenenfalls das neue Datum ausgelesen. Ist das Formular nicht mehr geöffnet, wird das Eingangsdatum als Ergebnis zurückgegeben (s. Quellcode 1).<\/p>\n Quellcode 2<\/b><\/p>\n Beim öffnen des Formulars wird die Prozedur aus Quellcode 2 aufgerufen. Diese überprüft, ob mit dem öffnungsargument ein Datum übergeben wurde. Falls ja, wird dieses, anderenfalls das aktuelle Datum weiterverwendet. Das unsichtbare Textfeld wird mit dem Datum gefüllt. In den Listenfeldern zur Auswahl von Monat und Jahr werden die entsprechenden Einträge ausgewählt.<\/p>\n Anschließend wird die Funktion KalenderAufbauen aufgerufen, die für die Anzeige des Kalenderblattes sorgt.<\/p>\n Die hier verwendete Variable AktuellesDatum sowie die Variable AktuellesDatumSteuerelement werden im Kopf des Klassenmoduls des Formulars frmKalender deklariert. <\/p>\n Die Bezeichnungsfeldermatrix zur Darstellung des Kalenderblattes wird durch die Prozedur KalenderAufbauen gefüllt (s. Quellcode 3).<\/p>\n Die Prozedur verwendet die Funktion ErstenMontagDerErstenWocheErmitteln (s. Quellcode 4), um den ersten Tag der ersten Woche des Monats zu finden.<\/p>\n Anschließend werden die Bezeichnungsfelder gefüllt und formatiert, indem sie spalten- und zeilenweise durchlaufen und angepasst werden.<\/p>\n Das Durchlaufen erfolgt in zwei For Next-Schleifen. Innerhalb der Schleifen wird die Beschriftung auf das Tagesdatum des aktuellen Tages eingestellt. Dieser Wert wird am Ende der Schleife um eins erhöht.<\/p>\n Wenn ein Tag nicht im gleichen Monat wie der übergebene Tag liegt, wird die entsprechende Zahl grau gefärbt, ansonsten schwarz.<\/p>\n Dann überprüft die Prozedur anhand der Tabelle Feiertage, ob das aktuelle Datum auf einen Feiertag fällt, und stellt die Variable bolFeiertag entsprechend ein. Mit der Funktion Weekday überprüft die Prozedur, ob der Tag auf einen Samstag oder Sonntag fällt. Hier wird die Variable bolWochenende entsprechend eingestellt.<\/p>\n Wenn für den aktuellen Tag eine der beiden bool“schen Variablen den Wert True hat, wird die Zahl in fetter Schrift formatiert, falls nicht, in normaler Schrift.<\/p>\n Quellcode 3<\/b><\/p>\n Wenn der aktuelle Tag dem in dem Textfeld gespeicherten Datum entspricht, wird die Hintergrundfarbe auf Rot eingestellt, anderenfalls auf Weiß.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Die Funktion ermittelt den ersten Montag der ersten Kalenderwoche des Monats im übergebenen Datum.<\/p>\n Dabei startet die Funktion beim übergebenen Datum und zieht dort so lange je einen Tag ab, bis das Datum auf einen Montag fällt. Anschließend werden so lange eine Woche beziehungsweise sieben Tage abgezogen, bis der erste Tag dieser Woche entweder der 1. des Monats oder ein Tag des Vormonats ist. Zum besseren Verständnis setzen Sie am besten ein Haltezeichen auf die erste Zeile und spielen die Funktion für ein paar Daten durch.<\/p>\n Es gibt drei Aktionen, die zum Einstellen eines neuen Datums führen sollen: Die Auswahl eines anderen Tages, eines anderen Monats oder eines anderen Jahres.<\/p>\n Alle drei führen dazu, dass die Prozedur KalenderAufbauen erneut aufgerufen wird, um die Beschriftung und Formatierung des Kalenderformulars zu aktualisieren.<\/p>\n Dieser Fall ist der einfachere. Die beiden Prozeduren, die nach der Auswahl eines neuen Wertes in einem der beiden Listenfelder aufgerufen werden (s. Quellcode 5 und Quellcode 6), enthalten die gleichen Anweisungen.<\/p>\n Zunächst wird das neue Datum aus dem Tag des bisherigen Datums, dem neuen Monat und dem Jahr des bisherigen Datums beziehungsweise dem Monat des bisherigen Datums und dem neuen Jahr zusammengesetzt.<\/p>\n Mit diesem Datum als aktuellem Datum wird der Kalender neu aufgebaut.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Auch bei der Auswahl eines anderen Tages soll die Ansicht aktualisiert werden. Die Auswahl soll durch einen Mausklick auf eines der Bezeichnungsfelder zum Repräsentieren der Tage erfolgen.<\/p>\n Dazu müssen Sie den 42 Bezeichnungsfeldern erstmal je eine entsprechende Ereignisprozedur hinzufügen. Diese sieht stellvertretend für das linke obere Bezeichnungsfeld wie folgt aus:<\/p>\n Entwickler, die viel Zeit haben, können die Prozeduren von Hand erstellen. Sie können sich die Erstellung aber auch vereinfachen, indem Sie wiederum eine kleine Funktion entwerfen, die alle 42 Prozeduren im Testfenster ausgibt. Die Funktion sieht wie in Quellcode 7 aus.<\/p>\n Anschließend kopieren Sie die Ausgabe des Testfensters in das Klassenmodul des Formulars frmKalender.<\/p>\n Die von diesen Prozeduren unter übergabe des jeweiligen Namens des Bezeichnungsfeldes aufgerufene Prozedur namens DatumAktivieren überprüft zunächst die Schriftfarbe des angeklickten Bezeichnungsfeldes.<\/p>\n Wenn die Farbe Schwarz ist und das Bezeichnungsfeld damit als Tag des aktuellen Monats identifiziert ist, erfolgen die weiteren Schritte, ansonsten wird die Prozedur beendet (s. Quellcode 8). Das bedeutet, dass nur die Tage des aktuellen Monats ausgewählt werden können.<\/p>\n Wenn es sich um einen solchen Tag handelt, wird zunächst die Farbe des Bezeichnungsfeldes, dessen Name in der Variablen AktuellesDatumSteuerelement gespeichert ist, wieder auf Weiß geändert.<\/p>\n Diese Variable erhält nun den Namen des Bezeichnungsfeldes mit dem aktuellen Tag als Wert. Schließlich wird das aktuelle Datum anhand der Beschriftung des angeklickten Bezeichnungsfeldes sowie der per Listenfeld ausgewählten Datumsbestandteile Monat und Jahr zusammengesetzt. Dieser Wert wird schließlich noch in das Textfeld txtDatum geschrieben, das ja nach der Bestätigung des ausgewählten Datums ausgelesen wird.<\/p>\n Nach der Auswahl des gewünschten Datums soll dieses übernommen werden. Dazu muss lediglich das Formular unsichtbar gemacht werden, was über die folgende Prozedur geschieht, die nach dem Betätigen der Schaltfläche cmdOK ausgelöst wird:<\/p>\n Wenn eine Anwendung die Auswahl des Datums erforderlich macht, können Sie das Kalenderformular problemlos einbauen.<\/p>\n <\/b><\/p>\n Bild 4: Beispiel für den Einsatz des Kalenderformulars<\/span><\/b><\/p>\n Dazu legen Sie einfach neben dem Datumsfeld eine Schaltfläche zum öffnen des Kalenderformulars an (siehe Bild 4). Für die Ereigniseigenschaft Beim Klicken hinterlegen Sie die folgende Prozedur:<\/p>\n Diese Prozedur ruft die weiter oben beschriebene Funktion DatumErmitteln auf und weist das Ergebnis dem an die Datenherkunft des Formulars gebundenen Textfeld Datum zu.<\/p>\n Dieses Formular kann statt des OCX-Steuerelementes namens Kalendersteuerelement beziehungsweise Calendar Control verwendet werden. Es hat den Vorteil, dass es in jedem Fall mit der Datenbank weitergegeben werden kann und dass es wesentlich ergonomischer ist.<\/p>\n In Anbetracht dessen, dass das hier vorgestellte Steuerelement die gewünschte Aufgabe, nämlich die Auswahl eines Datums, in einfacher und zuverlässiger Weise erfüllt, entfällt der sonst an dieser Stelle obligatorische Ausblick ausnahmsweise. Sollten Sie anderer Meinung sein und Ideen zur Verbesserung dieses Formulars haben, teilen Sie diese per Mail an die Adresse info@access-im-unternehmen.de mit.<\/p>\n","protected":false},"excerpt":{"rendered":" Microsoft bietet ein eigenes Kalendersteuerelement an, das in beliebige Formulare eingebaut werden kann. Das ist an sich sehr praktisch und auch zügig erledigt, kann aber schnell zum Selbsttor werden: Wenn Sie eine Anwendung mit integriertem Kalendersteuerelement weitergeben, kann es schnell passieren, dass die Anwendung unbedienbar wird, weil das entsprechende OCX-Steuerelement fehlt. Das Steuerelement wird nämlich keinesfalls einfügt, sondern nur verknüpft. Es muss auf jedem Rechner vorhanden sein, auf dem die Anwendung laufen soll. Damit Sie keine Probleme damit haben, programmieren Sie einfach ein eigenes Kalendersteuerelement, das außerdem noch zusätzliche Funktionen aufweist.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012004,662004,44000028,44000027],"tags":[],"class_list":["post-55000207","post","type-post","status-publish","format-standard","hentry","category-66012004","category-662004","category-Ergonomie_und_Benutzeroberflaeche","category-Loesungen"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{BB13882A-4B2C-4BBF-9569-D57007741A39}\/pic002.png\")
<\/p>\nAuswahl der Monate<\/h2>\n
1;\"Januar\";2;\"Februar\";3;\"März\";4;\"April\";5;\"Mai\";6;\"Juni\";7;\"Juli\";8;\"August\";9;\"September\";10;\"Oktober\";11;\"November\";12;\"Dezember\"<\/pre>\n
Auswahl der Jahre<\/h2>\n
Public Function Jahre()\r\n Dim str As String\r\n For i = 1900 To 2050\r\n str = str & i & \";\"\r\n Next i\r\n Jahre = str\r\nEnd Function<\/pre>\n
Auswahl der Tage<\/h2>\n
Speichern des ausgewähltenDatums<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{BB13882A-4B2C-4BBF-9569-D57007741A39}\/pic003.png\")
<\/p>\nAnzeigen des Formulars<\/h2>\n
Public Function DatumErmitteln(Datum As Date) As Date\r\n If istformulargeoeffnet(\"frmKalender\") Then\r\n DoCmd.Close acForm, \"frmKalender\"\r\n End If\r\n DoCmd.OpenForm \"frmKalender\", Windowmode:=acDialog, OpenArgs:=Datum\r\n If istformulargeoeffnet(\"frmKalender\") Then\r\n DatumErmitteln = Forms!frmKalender!txtDatum\r\n Else\r\n DatumErmitteln = Datum\r\n End If\r\n DoCmd.Close acForm, \"frmKalender\"\r\nEnd Function<\/pre>\n
Private Sub Form_Current()\r\n Dim Datum As Date\r\n If IsNull(Me.OpenArgs) Then\r\n AktuellesDatum = Date\r\n Else\r\n AktuellesDatum = Me.OpenArgs\r\n End If\r\n Me.txtDatum = AktuellesDatum\r\n Me.lstJahr = Year(AktuellesDatum)\r\n Me.lstMonat = Month(AktuellesDatum)\r\n KalenderAufbauen\r\nEnd Sub<\/pre>\n
öffnen des Formulars<\/h2>\n
Hinweis<\/h3>\n
Aufbauen des Kalenderblattes<\/h2>\n
Private Sub KalenderAufbauen()\r\n Dim intTag As Integer\r\n Dim intWochentag As Integer\r\n Dim datErsterWochentag As Date\r\n Dim bolFeiertag As Boolean\r\n Dim bolWochenende As Boolean\r\n datErsterWochentag = ErstenMontagDerErstenWocheErmitteln\r\n For i = 1 To 6\r\n For j = 1 To 7\r\n Me(\"date\" & i & j).Caption = Day(datErsterWochentag)\r\n If Not Month(datErsterWochentag) = CInt(Me.lstMonat) Then\r\n Me(\"date\" & i & j).ForeColor = &H999999\r\n Else\r\n Me(\"date\" & i & j).ForeColor = &H0\r\n End If\r\n bolFeiertag = Not IsNull(DLookup(\"Datum\", \"Feiertage\", \"Datum = #\" _ & Month(datErsterWochentag) & \"\/\" & Day(datErsterWochentag) & \"\/\" _ & Year(datErsterWochentag) & \"#\"))\r\n bolWochenende = Weekday(datErsterWochentag) = 7 Or _ Weekday(datErsterWochentag) = 1\r\n If bolFeiertag Or bolWochenende Then\r\n Me(\"date\" & i & j).FontBold = True\r\n Else\r\n Me(\"date\" & i & j).FontBold = False\r\n End If\r\n If datErsterWochentag = AktuellesDatum Then\r\n AktuellesDatumSteuerelement = \"date\" & i & j\r\n Me(\"date\" & i & j).BackColor = &HFF\r\n Else\r\n Me(\"date\" & i & j).BackColor = &HFFFFFF\r\n End If\r\n datErsterWochentag = datErsterWochentag + 1\r\n Next j\r\n Next i\r\nEnd Sub<\/pre>\n
Die FunktionErstenMontagDerErstenWocheErmitteln<\/h3>\n
Public Function ErstenMontagDerErstenWocheErmitteln() As Date\r\n Dim DatumTemp As Date\r\n DatumTemp = \"1.\" & Me.lstMonat & \".\" & Me.lstJahr\r\n Do While Not DatePart(\"w\", DatumTemp, vbMonday, vbFirstFourDays) = 1\r\n DatumTemp = DatumTemp - 1\r\n Loop\r\n If Month(DatumTemp - 1) = Me.lstMonat Then\r\n DatumTemp = DatumTemp - 7\r\n End If\r\n ErstenMontagDerErstenWocheErmitteln = DatumTemp\r\nEnd Function<\/pre>\n
Private Sub lstJahr_AfterUpdate()\r\n AktuellesDatum = Day(AktuellesDatum) & \".\" & Me!lstMonat & \".\" & Me.lstJahr\r\n Me.txtDatum = AktuellesDatum\r\n KalenderAufbauen\r\nEnd Sub<\/pre>\n
Private Sub lstMonat_AfterUpdate()\r\n AktuellesDatum = Day(AktuellesDatum) & \".\" & Me!lstMonat & \".\" & Me!lstJahr\r\n Me.txtDatum = AktuellesDatum\r\n KalenderAufbauen\r\nEnd Sub<\/pre>\n
Neues Datum einstellen<\/h2>\n
Aktualisierung durch Auswahl eines neuen Monats oder Jahres<\/h3>\n
Public Function Prozeduren()\r\n Dim i As Integer\r\n Dim j As Integer\r\n For i = 1 To 6\r\n For j = 1 To 7\r\n Debug.Print \"Private Sub date\" & i & j & \"_Click()\"\r\n Debug.Print \" DatumAktivieren \"\"date\" & i & j & \"\"\"\"\r\n Debug.Print \"End Sub\"\r\n Next j\r\n Next i\r\nEnd Function<\/pre>\n
Private Function DatumAktivieren(Steuerelementname)\r\n If Me(Steuerelementname).ForeColor = &H0 Then\r\n Me(Steuerelementname).BackColor = &HFF\r\n Me(AktuellesDatumSteuerelement).BackColor = &HFFFFFF\r\n AktuellesDatumSteuerelement = Steuerelementname\r\n AktuellesDatum = Me(Steuerelementname).Caption & \".\" & Me.lstMonat & \".\" _ & Me.lstJahr\r\n Me.txtDatum = AktuellesDatum\r\n End If\r\nEnd Function<\/pre>\n
Aktualisierung durch Auswahl eines neuen Tages<\/h2>\n
Private Sub date11_Click()\r\n DatumAktivieren \"date11\"\r\nEnd Sub<\/pre>\n
übernehmen des Datums<\/h2>\n
Private Sub cmdOK_Click()\r\n Me.Visible = False\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{BB13882A-4B2C-4BBF-9569-D57007741A39}\/pic004.png\")
<\/p>\nPrivate Sub cmdKalender_Click()\r\n Me.Datum = _ DatumErmitteln(IIf(IsDate _ (Me.Datum), Me.Datum, Date))\r\nEnd Sub<\/pre>\n