<\/p>\n
Bis Access 2003 wiesen Textfelder, die an Datumsfelder gebunden waren, überhaupt keine besonderen Eigenschaften auf. Mit Access 2007 änderte sich dies: Immerhin erscheint hier ein Kalender-Symbol neben dem Textfeld, wenn dieses den Fokus hat, und bietet eine Hilfe für die schnelle Datumsauswahl an. Mit der Lösung aus diesem Beitrag statten Sie Datumstextfelder aller Access-Versionen seit 2000 mit weiteren nützlichen Features aus.<\/b><\/p>\n
Beispieldatenbank<\/p>\n
Die Beispieltabelle zu diesem Beitrag tblDatum <\/b>enthält schlicht zwei Felder: DatumID <\/b>dient als Primärschlüssel und Beispieldatum <\/b>enthält das Feld, an das wir gleich das Datumstextfeld des Beispielformulars binden. Dieses Formular heißt frmDatum <\/b>und ist über die Eigenschaft Datenherkunft <\/b>an die Tabelle tblDatum <\/b>gebunden. Im Detailbereich zeigt es die beiden einzigen Felder dieser Tabelle an (siehe Bild 1).<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_06\/Datumstextfeld-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Entwurfsansicht des Beispielformulars zur Eingabe von Datumsangaben<\/span><\/b><\/p>\n Vereinfachungen für die Datumseingabe<\/b><\/p>\n Wir schauen uns im Rahmen dieses Beitrags drei kleine Hilfen für die einfache Datumseingabe an:<\/p>\n Die Funktion, die wir mit der Leertaste abbilden möchten, ist eigentlich bereits in Access eingebaut: Sie brauchen einfach nur die Tastenkombination Strg + Umschalt + Komma (,) <\/b>zu betätigen, schon fügt Access das Datum in das aktuelle Steuerelement ein. Für die Uhrzeit erreichen Sie dies übrigens mit Strg + Umschalt + Punkt (.)<\/b>. Beide Tastenkombinationen sind, das erkennt auch der Laie schnell, nur schwer zu merken, wenn man nicht täglich damit arbeitet.<\/p>\n Aktuelles Datum per Leerzeile<\/b><\/p>\n Also verwenden wir einfach die Leertaste als Tastenkombination für die Eingabe des aktuellen Datums. Dies können wir uns erlauben, denn in einer Datumsangabe hat ein Leerzeichen natürlich nichts zu suchen.<\/p>\n Tasteneingaben fangen wir generell mit den KeyDown<\/b>– und KeyUp<\/b>-Methoden von Formularen und Steuerelementen ab. Wann welches dieser Ereignisse ausgelöst wird, finden Sie am einfachsten heraus, indem Sie die folgenden beiden Ereignisprozeduren für die entsprechenden Ereigniseigenschaften des Textfelds Beispieldatum<\/b> hinterlegen:<\/p>\n Nun platzieren Sie das Access-Fenster so über (oder auch neben) das VBA-Fenster, dass der Direktbereich des VBA-Fensters sichtbar ist. Wenn Sie den Fokus auf das Textfeld Beispieldatum <\/b>legen und Zeichen mit der Tastatur eingeben, sehen Sie nicht nur, wann welches Ereignis ausgelöst wird, sondern auch, welche Werte die Parameter Keycode <\/b>und Shift <\/b>dieser Prozeduren liefern – die Leertaste entspricht beispielsweise dem KeyCode 32<\/b>. Auf diese Weise erkennen wir außerdem, zu welchem Zeitpunkt ein Zeichen im Textfeld erscheint, nämlich nach dem Herunterdrücken der betroffenen Taste.<\/p>\n Dies nutzen wir aus, um bei Betätigung der Leertaste das aktuelle Datum einzufügen, und zwar durch folgende änderung der Ereignisprozedur Beispieldatum_KeyDown<\/b>:<\/p>\n Dadurch füllt die Prozedur das Textfeld mit dem aktuellen Datum und setzt den Parameter KeyCode <\/b>auf den Wert 0<\/b>. Indem Sie diesen Parameter innerhalb der Ereignisprozedur ändern, können Sie in die Nachrichtenkette eingreifen: Statt des ursprünglichen Werts, beispielsweise 32 <\/b>für ein Leerzeichen, wird dann der Wert 0 <\/b>als betätigte Taste weitergeleitet – was bedeutet, dass keine Taste gedrückt wurde.<\/p>\n Dies ist unbedingt nötig, weil Access sonst zuerst, wie gewünscht, das Datum in das Textfeld einträgt, dann aber das ursprüngliche Zeichen, also das Leerzeichen, an das Textfeld schickt. Dies kann je nach Einstellung dazu führen, dass das Leerzeichen das gerade eingegebene Datum überschreibt.<\/p>\n Vor und zurück<\/b><\/p>\n Nun fügen wir eine weitere Vereinfachung hinzu: Der Benutzer soll durch Betätigen der Nach oben<\/b>– und Nach unten<\/b>-Tasten das Datum einstellen können. Dabei soll das Element, auf dem sich die Einfügemarke aktuell befindet, jeweils um eins erhöht oder vermindert werden.<\/p>\n Wenn sich der Cursor also auf dem Monat befindet und der Benutzer auf Nach oben <\/b>drückt, soll der Monat um eins erhöht werden. <\/p>\n Mit der Ausgabe der obigen Prozedur im Direktfenster ermitteln wir, welche Werte für den Parameter KeyCode<\/b> der Nach oben<\/b>– und Nach unten<\/b>-Taste entsprechen. Dann erweitern wir die Select Case<\/b>-Anweisung wie in Listing 1.<\/p>\n Listing 1: Einstellen des Datums in einem Textfeld per Nach oben- und Nach unten-Taste<\/p>\n <\/p>\n Da fast alle Anweisungen, die beim Betätigen der Nach oben<\/b>– oder der Nach unten<\/b>-Taste aufgerufen werden, identisch sind, enthält die Prozedur zunächst einen Case<\/b>-Zweig, der KeyCode <\/b>auf die Werte 38 <\/b>(Nach oben<\/b>) und 40 <\/b>(Nach unten<\/b>) prüft. Darin befindet sich eine weitere Select Case<\/b>-Anweisung, welche die Variable intFaktor <\/b>je nach gedrückter Taste auf 1 <\/b>(Nach oben<\/b>) oder -1 <\/b>(Nach unten<\/b>) einstellt. Dieser Faktor legt fest, ob eine Einheit (ein Tag, ein Monat oder ein Jahr) zum angezeigten Datum hinzugefügt oder davon abgezogen wird.<\/p>\n Als Nächstes ermittelt die Prozedur, an welcher Stelle innerhalb des Datums sich die Einfügemarke befindet: auf dem Tag, dem Monat oder dem Jahr Die Vorgehensweise geht davon aus, dass das Datum im Format dd.mm.yyyy <\/b>angezeigt wird. Eine für andere Formate geeignete Variante müsste entweder umgeschrieben oder aber wesentlich flexibler gestaltet werden, was den Rahmen dieses Beitrags sprengen würde.<\/p>\n Wir ermitteln also mit der Eigenschaft SelStart <\/b>die aktuelle Position der Einfügemarke und berechnen dann, welcher Datumsteil sich auf der aktuellen Position befindet. Dazu schneiden wir den Teil links von der Einfügemarke aus und untersuchen, wie viele Punkte sich in diesem Bereich befinden. Dazu subtrahieren wir die Zeichenkettenlänge ohne Punkte von der Zeichenkettenlänge mit Punkten. Ergibt dies den Wert 0<\/b>, dann befindet sich die Einfügemarke auf dem Tag, bei 1 <\/b>auf dem Monat und bei 2 <\/b>auf dem Jahr.<\/p>\n Davon abhängig legen wir einen Ausdruck für die Beschreibung des Intervalls für die folgende Datumsänderung fest: d <\/b>für Tag, m <\/b>für Monat und yyyy <\/b>für das Jahr.<\/p>\n Fehlt nur noch, dass wir die gewonnenen Informationen in einem Aufruf der DateAdd<\/b>-Funktion verwenden und so das aus der betätigten Taste resultierende Datum zurück in das Datumsfeld schreiben. Schließlich schicken wir 0<\/b> als KeyCode <\/b>zurück und platzieren die Einfügemarke wieder an der gleichen Stelle wie zuvor (dies ist nötig, weil diese durch das Einfügen des neu berechneten Datums verschoben wird).<\/p>\n Wiederverwendbares Datumstextfeld<\/b><\/p>\n Im Prinzip sind wir an dieser Stelle fertig. Allerdings möchten Sie diese Prozedur vielleicht mit mehr als nur einem Datumstextfeld einsetzen. Dies bedeutet im ersten Schritt ein wenig mehr Aufwand, ist aber ein gutes Beispiel für die Wiederverwendung von Code.<\/p>\n Und das Beste ist: Wenn Sie die Vorgehensweise einmal verstanden haben, können Sie diese immer wieder nutzen. Die grundsätzliche Vorgehensweise sieht so aus:<\/p>\n Der einzige Code, den Sie dazu in das Formular einsetzen müssen, ist dieser:<\/p>\n Die Objektvariable objDateboxes <\/b>wird im Modulkopf außerhalb der Ereignisprozedur untergebracht, weil sie auch nach Ablauf der Ereignisprozedur noch benötigt wird. Wenn das Formular mehr als ein Datumstextfeld enthält, fügen Sie einfach weitere AddDatebox<\/b>-Anweisungen zur Beim Laden<\/b>-Ereignisprozedur hinzu. Vorbehaltlich des Inhalts der Klasse clsDateboxes <\/b>und einer weiteren Klasse namens clsDatebox <\/b>brauchen Sie nichts weiter als diese paar Codezeilen pro Formular.<\/p>\n In der Beispieldatenbank finden Sie ein mit der hier vorgestellten Funktion ausgestattetes Formular unter dem Namen frmDatumMitKlasse<\/b>.<\/p>\n Unter der Motorhaube<\/b><\/p>\n Schauen wir uns nun noch an, was im Hintergrund geschieht. Dazu ist zunächst ein Blick auf den Inhalt der Klasse clsDateboxes <\/b>nötig, der wie folgt aussieht:<\/p>\n Die Variable m_Dateboxes <\/b>erhält ein Collection<\/b>-Objekt, das Referenzen auf beliebig viele Objekte aufnehmen kann. In diesem Fall sollen Objekte des Typs clsDatebox <\/b>(beachten Sie die Singularform des Namens gegenüber der Klasse clsDateboxes<\/b>).<\/p>\n Wenn, wie weiter oben beschrieben, die Beim Laden<\/b>-Ereignisprozedur ein neues Objekt auf Basis der Klasse clsDateboxes <\/b>erzeugt, löst dies die Ereignisprozedur Initialize <\/b>aus. Diese erstellt lediglich das Collection<\/b>-Objekt.<\/p>\n Schließlich ruft die Beim Laden<\/b>-Ereignisprozedur die AddDatebox<\/b>-Methode dieser Klasse auf. Diese erzeugt wiederum ein neues Objekt des Typs clsDatebox<\/b>, dessen Bauplan in der Klasse clsDatebox <\/b>enthalten ist. Dann weist sie der Eigenschaft Datebox <\/b>dieser Klasse das im Parameter der Methode AddDatebox <\/b>angegebene Textfeld zu. Der Verweis auf das so gefüllte Objekt wird schließlich zum Collection<\/b>-Objekt m_Dateboxes <\/b>hinzugefügt, wo es gegebenenfalls mit weiteren Instanzen der Klasse clsDatebox <\/b>auf seinen Einsatz wartet.<\/p>\n Die Klasse clsDatebox<\/b> wiederum enthält eine Objektvariable, die mit dem Schlüsselwort WithEvents <\/b>deklariert ist und die mit der Eigenschaft Datebox <\/b>von der Klasse clsDateboxes <\/b>übergebene Textbox aufnimmt:<\/p>\n Die Eigenschaft Datebox <\/b>wird als Property Set<\/b>-Eigenschaft deklariert. Beim Füllen dieser Eigenschaft reicht diese nicht nur den Verweis auf das betroffene Textfeld an die Objektvariable m_Textbox <\/b>weiter, sondern sie schreibt auch noch den Ausdruck [Event Procedure] <\/b>in die Eigenschaft OnKeyDown <\/b>dieses Textfelds:<\/p>\n Dies ist gleichbedeutend mit dem Eintragen von [Ereignisprozedur] <\/b>in die Eigenschaft Bei Taste ab <\/b>im Eigenschaftsfenster des Steuerelements. Beides sorgt dafür, dass Access beim Auslösen des entsprechenden Ereignisses im Klassenmodul des Formulars nachschaut, ob es eine entsprechende Ereignisprozedur gibt, die ausgeführt werden soll. In diesem Fall wird diese Ereignisprozedur im Klassenmodul clsDatebox <\/b>deklariert und auch dort ausgelöst. Diese Ereignisprozedur entspricht prinzipiell der des Formulars frmDatum<\/b>, unterscheidet sich allerdings durch die Referenzen auf das betroffene Textfeld (s. Listing 2).<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Mit der hier vorgestellten Lösung erweitern Sie Textfelder zur Anzeige von Datumsangaben um interessante Funktionen. Wenn Sie weitere Ereignisprozeduren hinzufügen möchten, legen Sie einfach weitere Ereignisprozeduren für das Objekt m_Textbox <\/b>an und fügen weitere Zeilen à la m_Textbox.OnKeyDown = "[Event Procedure]" <\/b>zur Property Set<\/b>-Prozedur hinzu.<\/p>\n Natürlich können Sie die Technik zur Wiederverwendbarkeit von Code auch für andere Steuerelemente wie Schaltflächen oder Kombinationsfelder verwenden. Lassen Sie Ihrer Fantasie freien Lauf und optimieren Sie Ihre Anwendungen!<\/p>\n Listing 2: Textfelderweiterung in ausgelagerter Form<\/p>\n Enthaltene Beispieldateien:<\/p>\n Datumstextfeld.mdb<\/p>\n\n
Private Sub Beispieldatum_KeyDown(KeyCode _\r\n As Integer, Shift As Integer)\r\n Debug.Print "KeyDown", KeyCode, Shift\r\n End Sub\r\nPrivate Sub Beispieldatum_KeyUp(KeyCode _\r\n As Integer, Shift As Integer)\r\n Debug.Print "KeyUp", KeyCode, Shift\r\n End Sub<\/pre>\n
Private Sub Beispieldatum_KeyDown(KeyCode _\r\n As Integer, Shift As Integer)\r\n Select Case KeyCode\r\n Case 32\r\n Me!Beispieldatum = Date\r\n KeyCode = 0\r\n Case Else\r\n Debug.Print KeyCode, Shift\r\n End Select\r\n End Sub<\/pre>\n
Private Sub Beispieldatum_KeyDown(KeyCode As Integer, Shift As Integer)\r\n Dim intSelStart As Integer\r\n Dim intPosDate As Integer\r\n Dim intFaktor As Integer\r\n Dim strIntervall As String\r\n Select Case KeyCode\r\n Case 32\r\n Me!Beispieldatum = Date\r\n KeyCode = 0\r\n Case 38, 40\r\n Select Case KeyCode\r\n Case 38 ''Nach oben\r\n intFaktor = 1\r\n Case 40 ''Nach unten\r\n intFaktor = -1\r\n End Select\r\n intSelStart = Me!Beispieldatum.SelStart\r\n intPosDate = Len(Left(Me!Beispieldatum, intSelStart)) _\r\n - Len(Replace(Left(Me!Beispieldatum, intSelStart), ".", ""))\r\n Select Case intPosDate\r\n Case 0\r\n strIntervall = "d"\r\n Case 1\r\n strIntervall = "m"\r\n Case 2\r\n strIntervall = "yyyy"\r\n End Select\r\n Me!Beispieldatum = DateAdd(strIntervall, intFaktor, Me!Beispieldatum)\r\n KeyCode = 0\r\n Me.Beispieldatum.SelStart = intSelStart\r\n Case Else\r\n Debug.Print "KeyDown", KeyCode, Shift\r\n End Select\r\n Debug.Print Beispieldatum.Format\r\n End Sub<\/pre>\n
\n
Dim objDateboxes As clsDateboxes\r\nPrivate Sub Form_Load()\r\n Set objDateboxes = New clsDateboxes\r\n objDateboxes.AddDatebox Me!Beispieldatum\r\n End Sub<\/pre>\n
Private m_Dateboxes As Collection\r\nPrivate m_Datebox As clsDatebox\r\nPrivate Sub Class_Initialize()\r\n Set m_Dateboxes = New Collection\r\n End Sub\r\nPublic Sub AddDatebox(txt As TextBox)\r\nSet m_Datebox = New clsDatebox\r\nSet m_Datebox.Datebox = txt\r\nm_Dateboxes.Add m_Datebox\r\nEnd Sub<\/pre>\n
Private WithEvents m_Textbox As TextBox<\/pre>\n
Public Property Set Datebox(txt As TextBox)\r\nSet m_Textbox = txt\r\nm_Textbox.OnKeyDown = "[Event Procedure]"\r\nEnd Property<\/pre>\n
Private Sub m_Textbox_KeyDown(KeyCode As Integer, Shift As Integer)\r\nDim intSelStart As Integer\r\nDim intPosDate As Integer\r\nDim intFaktor As Integer\r\nDim strIntervall As String\r\nSelect Case KeyCode\r\nCase 32\r\nm_Textbox.Value = Date\r\nKeyCode = 0\r\nm_Textbox.SelStart = Len(m_Textbox.Value)\r\nCase 38, 40\r\nSelect Case KeyCode\r\nCase 38 ''Nach oben\r\nintFaktor = 1\r\nCase 40 ''Nach unten\r\nintFaktor = -1\r\nEnd Select\r\nintSelStart = m_Textbox.SelStart\r\nintPosDate = Len(Left(m_Textbox, intSelStart)) - Len(Replace(Left(m_Textbox, _\r\nintSelStart), ".", ""))\r\nSelect Case intPosDate\r\nCase 0: strIntervall = "d"\r\nCase 1: strIntervall = "m"\r\nCase 2: strIntervall = "yyyy"\r\nEnd Select\r\nm_Textbox.Value = DateAdd(strIntervall, intFaktor, m_Textbox)\r\nKeyCode = 0\r\nm_Textbox.SelStart = intSelStart\r\nEnd Select\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n