{"id":55000831,"date":"2012-06-01T00:00:00","date_gmt":"2020-05-22T21:54:09","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=831"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datumsfelder_mit_Klasse","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/","title":{"rendered":"Datumsfelder mit Klasse"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87\" width=\"1\" height=\"1\" alt=\"\"><\/p>\n<p class=\n\n\n<p><b>Datumsangaben k&ouml;nnen Sie von Hand eingeben, mit einem Steuerelement zur Auswahl des gew&uuml;nschten Datums &#8211; oder Sie statten das Textfeld mit dem Datum mit unserer Klasse clsDatebox aus und stellen das Datum ganz einfach mit den Cursor-Tasten ein. Dazu ben&ouml;tigen Sie nicht mehr als zwei Zeilen Code pro Textfeld, dass Sie mit dieser Funktion ausstatten wollen &#8211; und die hier vorgestellte Klasse.<\/b><\/p>\n<p><iframe loading=\"lazy\" width=\"480\" height=\"270\" src=\"http:\/\/www.youtube.com\/embed\/AyF5ULAElhY\" frameborder=\"0\" allowfullscreen><\/iframe><\/p>\n<p><b>Schnelle Datumseingabe<\/b><\/p>\n<p>Die Datumseingabe l&auml;sst sich prima vereinfachen, wenn Sie dazu nur die Cursor-Tasten verwenden. Die hier vorgestellte L&ouml;sung macht die m&ouml;glich: Sie markiert beim Fokuserhalt eines entsprechend pr&auml;parierten Datumfeldes einen der Datumsbestandteile wie den Tag, den Monat oder das Jahr. Mit den beiden Tasten <b>Nach links <\/b>und <b>Nach rechts <\/b>springen Sie zum vorherigen beziehungsweise folgenden Datumsbestandteil, mit den Tasten <b>Nach oben <\/b>und <b>Nach unten <\/b>&auml;ndern Sie den Wert jeweils um eins nach oben oder untern.<\/p>\n<p>Wer es besonders eilig hat, h&auml;lt dabei noch die <b>Strg<\/b>-Taste gedr&uuml;ckt und &auml;ndert den aktuellen Wert gleich um zehn nach oben oder unten. Zu beachten ist, dass etwa beim &auml;ndern des Tages von <b>31 <\/b>auf <b>01 <\/b>auch der Monat ge&auml;ndert wird, also etwa von <b>01 <\/b>auf <b>02<\/b>. Gleiches gilt, wenn Sie den Monat von <b>12 <\/b>auf <b>01 <\/b>oder von <b>01 <\/b>auf <b>12 <\/b>&auml;ndern &#8211; in diesem Fall wird das Jahr um eins erh&ouml;hat oder vermindert. Wie dies in einem Formular aussieht, sehen Sie in Bild 1.<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/DatumsfeldMitKlasse-web-images\/pic001.png\" alt=\"pic001.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 1: Schnelles &auml;ndern des Datums per Cursor-Taste<\/span><\/b><\/p>\n<p>Das Textfeld markiert immer den kompletten Datumsteil, also entweder den Tag, den Monat oder das Jahr. Die manuelle Eingabe des Datums ist nicht m&ouml;glich, Sie k&ouml;nnen dies nur mit den Cursortasten erledigen. Dies beugt Fehleingaben vor. <\/p>\n<p>Wenn das Textfeld &uuml;ber die Tabulator- oder die Eingabetaste angesteuert wird, markiert es direkt den kompletten Tag. Wenn der Benutzer mit der Maus hineinklickt, wird der angeklickte Datumsteil markiert. <\/p>\n<p><b>Technik einsetzen<\/b><\/p>\n<p>Das Beste an der nachfolgend vorgestellten Technik ist: Sie statten ein Textfeld blitzschnell mit der daf&uuml;r n&ouml;tigen Klasse und ein oder zwei Konfigurationseinstellungen aus. Dazu gehen Sie wie folgt vor:<\/p>\n<ul>\n<li class=\"aufz-hlung\">Legen Sie das gebundene oder ungebundene Feld zur Datumseingabe an, zum Beispiel <b>txtDatum<\/b>.<\/li>\n<li class=\"aufz-hlung\">Stellen Sie die Eigenschaft <b>Beim Laden <\/b>des Formulars mit dem Textfeld auf <b>[Ereignisprozedur] <\/b>ein und klicken Sie auf die Schaltlf&auml;che mit den drei Punkten, um eine entsprechende Ereignisprozedur zu erstellen.<\/li>\n<li class=\"aufz-hlung\">Erg&auml;nzen Sie den Code wie folgt. Fertig!<\/li>\n<\/ul>\n<pre>Dim WithEvents objDatebox As clsDatebox\r\nPrivate Sub Form_Load()\r\n    Set objDatebox = New clsDatebox\r\n    Set objDatebox.Datebox = Me!txtDatum\r\nEnd Sub<\/pre>\n<p>Damit erstellen Sie ein neues Objekt auf Basis der Klasse <b>clsDatebox<\/b> und stellen seine Eigenschaft <b>Datebox <\/b>auf das betroffene Textfeld ein. Nach dem &Ouml;ffnen des Formulars steht die Funktion bereits zur Verf&uuml;gung!<\/p>\n<p>Das ist allerdings noch nicht alles, was Sie zur Inbetriebnahme wissen m&uuml;ssen. Eine Information betrifft den Standardwert f&uuml;r das Datumsfeld.<\/p>\n<p>Wenn Sie selbst keinen Standardwert vergeben, wird das Feld beim Anzeigen mit dem aktuellen Datum vorbelegt.<\/p>\n<p>Sollten Sie einen Standardwert in der Tabellendefinition hinterlegt haben oder die Eigenschaft <b>Standardwert <\/b>des Textfelds im Formular eingestellt haben, wird dieser verwendet. Sie k&ouml;nnen allerdings eine zweite Eigenschaft der Klasse verwenden, um den Standardwert per Code vorzugeben:<\/p>\n<pre>Private Sub Form_Load()\r\n    Set objDatebox = New clsDatebox\r\n    objDatebox.DefaultDate = &quot;23.1.1971&quot;\r\n    Set objDatebox.Datebox = Me!txtDatum\r\nEnd Sub<\/pre>\n<p>Die Zeile mit der Zuweisung des Datums an die Eigenschaft <b>DefaultDate <\/b>muss jedoch vor der Zuweisung des zu verwendenden Steuerelements erfolgen.<\/p>\n<p><b>Mehrere Datumsfelder<\/b><\/p>\n<p>Wenn Sie mehrere Datumsfelder in einem Formular mit der Datebox ausstatten m&ouml;chten (s. Bild 2), deklarieren Sie zun&auml;chst entsprechende Objektvariablen f&uuml;r die Objekte:<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/DatumsfeldMitKlasse-web-images\/pic002.png\" alt=\"pic002.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 2: Entwurf eines Formulars mit Von-Bis-Textfeldern<\/span><\/b><\/p>\n<pre>Dim WithEvents objDateboxVon As clsDatebox\r\nDim WithEvents objDateboxBis As clsDatebox<\/pre>\n<p>Dann f&uuml;llen Sie diese Objektvariablen mit neuen Instanzen der Klasse und weisen die Standardwerte und die Textfelder zu:<\/p>\n<pre>Private Sub Form_Load()\r\n    Set objDateboxVon = New clsDatebox\r\n    objDateboxVon.DefaultDate = Date\r\n    Set objDateboxVon.Datebox = Me!txtVon\r\n    Set objDateboxBis = New clsDatebox\r\n    objDateboxBis.DefaultDate = Date\r\n    Set objDateboxBis.Datebox = Me!txtBis\r\nEnd Sub<\/pre>\n<p>Fertig! Und nun kommen wir zu einem weiteren interessanten Feature: Das &auml;ndern des Datums l&ouml;st n&auml;mlich ein Ereignis aus &#8211; deshalb werden die Objektvariablen auch mit dem Schl&uuml;sselwort <b>WithEvents <\/b>deklariert.<\/p>\n<p>Dadurch k&ouml;nnen Sie die soeben deklarierten Objekte <b>objDateboxVon <\/b>und <b>objDateboxBis <\/b>im linken Kombinationsfeld des VBA-Fensters des Formularmoduls ausw&auml;hlen, was automatisch die einzige Ereignisprozedur dieser beiden Objekte anlegt (s. Bild 3).<\/p>\n<p><img decoding=\"async\" src=\"..\/fileadmin\/_temp_\/2012_03\/DatumsfeldMitKlasse-web-images\/pic003.png\" alt=\"pic003.png\" \/><\/p>\n<p><b><span style=\"color:darkgrey\">Bild 3: Anlegen der Ereignisprozedur f&uuml;r das clsDatebox-Objekt<\/span><\/b><\/p>\n<p>Wozu ben&ouml;tigen Sie diese Prozedur Nun, zum Beispiel k&ouml;nnen Sie so direkt beim Einstellen des Datums pr&uuml;fen, ob das Startdatum gr&ouml;&szlig;er als das Enddatum ist, was in den meisten F&auml;llen unerw&uuml;nscht ist.<\/p>\n<p>Dann f&uuml;llen Sie die Ereignisprozedur DateChange der beiden Objekte <b>objDateboxVon <\/b>und <b>objDateboxBis <\/b>wie folgt:<\/p>\n<pre>Private Sub objDateboxVon_DateChange()\r\n    If Me!txtVon.Value &gt; Me!txtBis.Value Then\r\n        Me!txtBis.Value = Me!txtVon.Value\r\n    End If\r\nEnd Sub\r\nPrivate Sub objDateboxBis_DateChange()\r\n    If Me!txtBis.Value &lt; Me!txtVon.Value Then\r\n        Me!txtVon.Value = Me!txtBis.Value\r\n    End If\r\nEnd Sub<\/pre>\n<p><!--30percent--><\/p>\n<p>Wenn der Benutzer nun f&uuml;r das Textfeld <b>txtDatumVon <\/b>einen Datumswert einstellt, der gr&ouml;&szlig;er ist als der im Textfeld <b>txtDatumBis<\/b>, wird <b>txtDatumBis <\/b>automatisch auf den Wert von <b>txtDatumVon <\/b>einstellt und umgekehrt.<\/p>\n<p>Dies birgt einen kleinen Haken: Wenn das jeweils andere Textfeld nur den Standardwert anzeigt und noch kein Wert festgelegt wurde, liefert der Vergleich <b>Me!txtVon &gt; Me!txtBis<\/b> einen falschen Wert.<\/p>\n<p>Warum das Weil die Eigenschaft <b>Standardwert <\/b>immer eine Zeichenkette liefert. Das mit der Datebox eingestellte Datum hat jedoch den Datentyp <b>Datum<\/b>, was intern als Zahl gespeichert wird.<\/p>\n<p>Um ein korrektes Ergebnis zu erhalten, wird der Wert des Vergleichsfeldes noch in ein Datum konvertiert:<\/p>\n<pre>If Me!txtVon &gt; Cdate(Me!txtBis) Then<\/pre>\n<p>Danach k&ouml;nnen Sie ausschlie&szlig;en, das der Benutzer f&uuml;r das Start- und das Enddatum nicht miteinander vereinbare Werte eingibt.<\/p>\n<p><b>Programmierung des Klassenmoduls clsDatebox<\/b><\/p>\n<p>Wenn die Ausstattung eines oder mehrerer Textfelder so einfach von statten geht, sollte die verwendete Klasse doch recht komplex sein. In der Tat h&auml;lt sich die Komplexit&auml;t jedoch im Rahmen, wie die folgenden Abschnitte zeigen werden.<\/p>\n<p>Ein wichtiges Element ist die Variable, die den Verweis auf das betroffene Textfeld ausnimmt und das wie folgt deklariert wird:<\/p>\n<pre>Private WithEvents m_Textbox As TextBox<\/pre>\n<p>Diese Variable soll von au&szlig;en gef&uuml;llt werden k&ouml;nnen, also beispielsweise von der Prozedur, welche das Objekt auf Basis der Klasse <b>clsDatebox <\/b>instanziert. Dazu verwenden wir eine &ouml;ffentliche <b>Property Set<\/b>-Prozedur (s. <span class=\"verweis-ohneumbruch\"><a href=\"#anker-34-anchor\">Listing 1<\/a><\/span>). Diese &uuml;bergibt jedoch nicht nur den Verweis auf das Textfeld an die Variable <b>m_Textbox<\/b>, sondern legt auch gleich noch fest, dass sich in dieser Klasse Ereignisprozeduren befinden k&ouml;nnten &#8211; und zwar f&uuml;r die Ereignisse <b>Bei Taste auf<\/b>, <b>Bei Taste ab<\/b>, <b>Bei Fokuserhalt <\/b>und <b>Bei Maustaste auf<\/b>.<\/p>\n<p class=\"listingueberschrift\">Listing 1: Zuweisen des Textfeldes und Einstellen des Standardwertes<\/p>\n<pre>Public Property Set Datebox(txt As TextBox)\r\n    Dim strDefaultValue As String\r\n    Set m_Textbox = txt\r\n    m_Textbox.OnKeyDown = &quot;[Event Procedure]&quot;\r\n    m_Textbox.OnKeyUp = &quot;[Event Procedure]&quot;\r\n    m_Textbox.OnGotFocus = &quot;[Event Procedure]&quot;\r\n    m_Textbox.OnMouseUp = &quot;[Event Procedure]&quot;\r\n    If Not m_DefaultDate = 0 Then\r\n         m_Textbox.DefaultValue = Chr(34) &amp; m_DefaultDate &amp; Chr(34)\r\n    Else\r\n         If Len(m_Textbox.DefaultValue) &gt; 0 Then\r\n            Exit Property\r\n        Else\r\n             On Error Resume Next\r\n            strDefaultValue = m_Textbox.Parent.Recordset.Fields(m_Textbox.ControlSource).DefaultValue\r\n            m_DefaultDate = Eval(Replace(strDefaultValue, &quot;=&quot;, &quot;&quot;))\r\n            On Error GoTo 0\r\n        End If\r\n        If Len(strDefaultValue) = 0 Then\r\n             m_Textbox.DefaultValue = Chr(34) &amp; Date &amp; Chr(34)\r\n            strDefaultValue = Date\r\n        End If\r\n    End If\r\nEnd Property<\/pre>\n<p>Schlie&szlig;lich pr&uuml;ft die Prozedur noch, ob der Benutzer einen Standardwert angegeben hat und weist diesen gegebenenfalls der entsprechenden Eigenschaft zu (in Anf&uuml;hrungszeichen, da das Textfeld sonst <b>#Fehler <\/b>liefert). Dabei gibt es folgende F&auml;lle:<\/p>\n<ul>\n<li class=\"aufz-hlung\">Der Benutzer weist explizit per Code ein Standarddatum zu (mehr dazu weiter unten). Dann wird dieses &uuml;bernommen.<\/li>\n<li class=\"aufz-hlung\">Der Benutzer weist kein Datum zu. Dann pr&uuml;ft die Prozedur, ob die Eigenschaft <b>Standardwert <\/b>des Textfeldes selbst einen Wert enth&auml;lt. Falls ja, wird dieser verwendet und die Routine beendet.<\/li>\n<li class=\"aufz-hlung\">Falls nein, ermittelt die Prozedur, ob gegebenenfalls ein Standardwert f&uuml;r das Feld in der zugrunde liegenden Datenherkunft hinterlegt wurde. Dieser wird gegebenenfalls in der Variablen <b>strDefaultValue <\/b>gespeichert.<\/li>\n<li class=\"aufz-hlung\">Ist dieser leer, wird das aktuelle Datum verwendet, sonst der ermittelte Standardwert.<\/li>\n<\/ul>\n<p><b>&Uuml;bergabe des Standarddatums per Code<\/b><\/p>\n<p>Damit der Benutzer ein eigenes Standarddatum &uuml;bergeben kann, ben&ouml;tigen wir wiederum eine entsprechende Variable zum Speichern dieses Wertes:<\/p>\n<pre>Private m_DefaultDate As Date<\/pre>\n<p>Das F&uuml;llen dieser Variable erledigt der Benutzer dann durch Zuweisen des gew&uuml;nschten Wertes an diese <b>Property Let<\/b>-Prozedur:<\/p>\n<pre>Public Property Let DefaultDate(dat As Date)\r\n    m_DefaultDate = dat\r\nEnd Property<\/pre>\n<p><b>Aktivieren des Steuerelements<\/b><\/p>\n<p>Wenn der Benutzer das Steuerelement aktiviert, also beispielsweise vom vorherigen Steuerelement der Aktivierreihenfolge aus die Tabulator- oder die Eingabetaste bet&auml;tigt oder mit der Maus auf das Steuerelement klickt, soll gleich der entsprechende Datumsbestandteil aktiviert werden.<\/p>\n<p>Diese Aufgabe erledigt zun&auml;chst die Prozedur, die durch das Ereignis <b>Bei Fokuserhalt <\/b>ausgel&ouml;st wird. Diese stellt schlicht die beiden Eigenschaften <b>SelStart <\/b>und <b>SelLength <\/b>so ein, dass die beiden Zahlen, die den Tag repr&auml;sentieren, markiert werden:<\/p>\n<pre>Private Sub m_Textbox_GotFocus()\r\n    m_Textbox.SelStart = 0\r\n    m_Textbox.SelLength = 2\r\nEnd Sub<\/pre>\n<p>Die zweite M&ouml;glichkeit, das Steuerelement zu aktivieren, ist das Anklicken mit der Maus. Die dadurch ausgel&ouml;ste Prozedur <b>Bei Maustaste ab <\/b>markiert dabei direkt den Datumsbestandteil, der angeklickt wurde. Dazu pr&uuml;ft die folgende Prozedur den Wert der Eigenschaft <b>SelStart<\/b>, also die Position der Einf&uuml;gemarke, und stellt die Markierung mit <b>SelStart <\/b>und <b>SelLength <\/b>entsprechend ein:<\/p>\n<pre>Private Sub m_Textbox_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n    Select Case m_Textbox.SelStart\r\n        Case 0, 1, 2\r\n            m_Textbox.SelStart = 0\r\n            m_Textbox.SelLength = 2\r\n        Case 3, 4, 5\r\n            m_Textbox.SelStart = 3\r\n            m_Textbox.SelLength = 2\r\n        Case 6, 7, 8, 9\r\n            m_Textbox.SelStart = 6\r\n            m_Textbox.SelLength = 4\r\n    End Select\r\nEnd Sub<\/pre>\n<p>Die beiden &uuml;brigen Prozeduren arbeiten Hand in Hand und reagieren auf die Bet&auml;tigung der Cursor-Tasten. Den Beginn macht die Prozedur <b>Bei Taste ab<\/b>. Diese speichert die beim Niederdr&uuml;cken einer Taste aktuellen Werte der beiden Eigenschaften <b>SelStart <\/b>und <b>SelLengt <\/b>in den wie folgt deklarierten Variablen:<\/p>\n<pre>Private intSelStart As Integer\r\nPrivate intSelLength As Integer<\/pre>\n<p>Danach pr&uuml;ft die Prozedur den Wert des Parameters <b>KeyCode<\/b>, das einen Hinweis auf die gedr&uuml;ckte Taste liefert. Die Codes <b>37 <\/b>bis <b>40 <\/b>entsprechenden Cursor-Tasten. Hier wird schlicht die Eigenschaft <b>Painting <\/b>des Formulars auf <b>False <\/b>gesetzt, damit dieses beim Einstellen des Datums nicht allzusehr flackert. <b>9 <\/b>entspricht der Tabulator-Taste, <b>13 <\/b>der Eingabetaste. Die Funktion dieser beiden Tasten soll schlicht beibehalten werden, also das vorherige oder das n&auml;chste Steuerelement aktiviert werden. F&uuml;r alle anderen Werte f&uuml;r <b>KeyCode<\/b> wird <b>KeyCode <\/b>auf <b>0 <\/b>eingestellt, was bedeutet, dass kein Tastendruck weitergegeben wird und dass dieser sich dementsprechend auch nicht auswirkt.<\/p>\n<pre>Private Sub m_Textbox_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    intSelStart = m_Textbox.SelStart\r\n    intSelLength = m_Textbox.SelLength\r\n    Select Case KeyCode\r\n        Case 37, 38, 39, 40\r\n            m_Textbox.Parent.Painting = False\r\n        Case 9, 13\r\n        Case Else\r\n            Debug.Print KeyCode\r\n            KeyCode = 0\r\n    End Select\r\nEnd Sub<\/pre>\n<p>Fehlt noch die Prozedur, die beim Loslassen der Taste feuert und die in <span class=\"verweis-ohneumbruch\"><a href=\"#anker-29-anchor\">Listing 2<\/a><\/span> abgebildet ist. Sie nimmt zun&auml;chst den Wert f&uuml;r die Variable <b>Shift <\/b>entgegen. Der Wert <b>2 <\/b>steht f&uuml;r <b>Strg <\/b>und sorgt daf&uuml;r, dass der entsprechende Datumsbestandteil in Zehnerschritten ge&auml;ndert wird. Danach folgt die Unterscheidung zwischen <b>Nach oben<\/b>\/<b>Nach unten <\/b>und <b>Nach links<\/b>\/<b>Nach rechts<\/b>.<\/p>\n<p class=\"listingueberschrift\">Listing 2: Zuweisen des Textfeldes und Einstellen des Standardwertes<\/p>\n<pre>Private Sub m_Textbox_KeyUp(KeyCode As Integer, Shift As Integer)\r\n    Dim intDifferenz As Integer\r\n    Dim intVorzeichen As Integer\r\n    Select Case Shift\r\n        Case 0: intDifferenz = 1\r\n        Case 2: intDifferenz = 10\r\n    End Select\r\n    If Not IsDate(m_Textbox) Then m_Textbox.Value = m_DefaultDate\r\n    Select Case KeyCode\r\n        Case 38, 40 ''nach oben, nach unten\r\n            intVorzeichen = 1\r\n            If KeyCode = 40 Then intVorzeichen = -1\r\n            Select Case intSelStart\r\n                Case 0, 1, 2\r\n                    m_Textbox.Value = DateAdd(&quot;d&quot;, intVorzeichen * intDifferenz, m_Textbox.Value)\r\n                    m_Textbox.SelStart = 0: m_Textbox.SelLength = 2\r\n                Case 3, 4\r\n                    m_Textbox.Value = DateAdd(&quot;m&quot;, intVorzeichen * intDifferenz, m_Textbox.Value)\r\n                    m_Textbox.SelStart = 3: m_Textbox.SelLength = 2\r\n                Case Else\r\n                    m_Textbox.Value = DateAdd(&quot;yyyy&quot;, intVorzeichen * intDifferenz, m_Textbox.Value)\r\n                    m_Textbox.SelStart = 6: m_Textbox.SelLength = 4\r\n            End Select\r\n            RaiseEvent DateChange\r\n        Case 37, 39 ''nach links, nach rechts\r\n            Select Case intSelStart\r\n                Case 0, 1, 2\r\n                    If KeyCode = 37 Then\r\n                        m_Textbox.SelStart = 0: m_Textbox.SelLength = 2\r\n                    Else\r\n                        m_Textbox.SelStart = 3: m_Textbox.SelLength = 2\r\n                    End If\r\n                Case 3, 4\r\n                    If KeyCode = 37 Then\r\n                        m_Textbox.SelStart = 0: m_Textbox.SelLength = 2\r\n                    Else\r\n                        m_Textbox.SelStart = 6: m_Textbox.SelLength = 4\r\n                    End If\r\n                Case Else\r\n                    If KeyCode = 37 Then\r\n                        m_Textbox.SelStart = 3: m_Textbox.SelLength = 2\r\n                    Else\r\n                        m_Textbox.SelStart = 6: m_Textbox.SelLength = 4\r\n                    End If\r\n            End Select\r\n    End Select\r\n    Shift = 0\r\n    KeyCode = 0\r\nEnde:\r\n    m_Textbox.Parent.Painting = True\r\nEnd Sub<\/pre>\n<p>Im ersten Fall wird die Variable <b>intVorzeichen <\/b>auf <b>-1 <\/b>eingestellt, wenn der Benutzer die <b>Nach unten<\/b>-Taste gedr&uuml;ckt hat. Dann ermittelt die Prozedur den aktuell markierten Datumsteil und erh&ouml;hat oder vermindert diesen um den entsprechenden Wert &#8211; nicht ohne anschlie&szlig;end die Markierung wieder herzustellen, und zwar auf Basis auf den zuvor in <b>intSelStart <\/b>und <b>intSelLength <\/b>gespeicherten Werten.<\/p>\n<p>Schlie&szlig;lich wird das wie folgt deklarierte Ereignis gefeuert, dass Sie im instanzierenden Klassenmodul implementieren k&ouml;nnen:<\/p>\n<pre>    Public Event DateChange()<\/pre>\n<p>F&uuml;r die Tasten <b>Nach links <\/b>und <b>Nach rechts <\/b>wird jeweils die Markierung nach links beziehungsweise nach rechts verschoben. Die aktuelle Position wird dabei mit intSelStart ermittelt, die neue Markierung mit den beiden Eigenschaften <b>SelStart <\/b>und <b>SelLengt <\/b>eingestellt.<\/p>\n<p>Schlie&szlig;lich werden die Parameter <b>Shift <\/b>und <b>KeyCode <\/b>auf <b>0 <\/b>eingestellt, damit die eigentlich gedr&uuml;ckte Taste keine Wirkung mehr zeigt.<\/p>\n<h3>Downloads zu diesem Beitrag<\/h3>\n<p>Enthaltene Beispieldateien:<\/p>\n<p>DatumsfeldMitKlasse.mdb<\/p>\n<p><a href=\"..\/fileadmin\/beispiele\/{766978B3-669F-445C-976A-13FDBD271CFE}\/aiu_831.zip\">Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Datumsangaben k&ouml;nnen Sie von Hand eingeben, mit einem Steuerelement zur Auswahl des gew&uuml;nschten Datums &#8211; oder Sie statten das Textfeld mit dem Datum mit unserer Klasse clsDatebox aus und stellen das Datum ganz einfach mit den Cursor-Tasten ein. Dazu ben&ouml;tigen Sie nicht mehr als zwei Zeilen Code pro Textfeld, dass Sie mit dieser Funktion ausstatten wollen &#8211; und die hier vorgestellte Klasse.<\/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":[662012,66032012,44000023],"tags":[],"class_list":["post-55000831","post","type-post","status-publish","format-standard","hentry","category-662012","category-66032012","category-Mit_Formularen_arbeiten"],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v20.9 (Yoast SEO v27.4) - https:\/\/yoast.com\/product\/yoast-seo-premium-wordpress\/ -->\n<title>Datumsfelder mit Klasse - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Datumsfelder mit Klasse\" \/>\n<meta property=\"og:description\" content=\"Datumsangaben k&ouml;nnen Sie von Hand eingeben, mit einem Steuerelement zur Auswahl des gew&uuml;nschten Datums - oder Sie statten das Textfeld mit dem Datum mit unserer Klasse clsDatebox aus und stellen das Datum ganz einfach mit den Cursor-Tasten ein. Dazu ben&ouml;tigen Sie nicht mehr als zwei Zeilen Code pro Textfeld, dass Sie mit dieser Funktion ausstatten wollen - und die hier vorgestellte Klasse.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:54:09+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Datumsfelder mit Klasse\",\"datePublished\":\"2020-05-22T21:54:09+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/\"},\"wordCount\":3,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/c59a86ba423541a28f93d89cba2cdb87\",\"articleSection\":[\"2012\",\"3\\\/2012\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/\",\"name\":\"Datumsfelder mit Klasse - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/c59a86ba423541a28f93d89cba2cdb87\",\"datePublished\":\"2020-05-22T21:54:09+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/c59a86ba423541a28f93d89cba2cdb87\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/c59a86ba423541a28f93d89cba2cdb87\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Datumsfelder_mit_Klasse\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Datumsfelder mit Klasse\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Datumsfelder mit Klasse - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/","og_locale":"de_DE","og_type":"article","og_title":"Datumsfelder mit Klasse","og_description":"Datumsangaben k&ouml;nnen Sie von Hand eingeben, mit einem Steuerelement zur Auswahl des gew&uuml;nschten Datums - oder Sie statten das Textfeld mit dem Datum mit unserer Klasse clsDatebox aus und stellen das Datum ganz einfach mit den Cursor-Tasten ein. Dazu ben&ouml;tigen Sie nicht mehr als zwei Zeilen Code pro Textfeld, dass Sie mit dieser Funktion ausstatten wollen - und die hier vorgestellte Klasse.","og_url":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:54:09+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Datumsfelder mit Klasse","datePublished":"2020-05-22T21:54:09+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/"},"wordCount":3,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87","articleSection":["2012","3\/2012","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/","url":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/","name":"Datumsfelder mit Klasse - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87","datePublished":"2020-05-22T21:54:09+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/c59a86ba423541a28f93d89cba2cdb87"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Datumsfelder_mit_Klasse\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Datumsfelder mit Klasse"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000831","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000831"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000831\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000831"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000831"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000831"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}