Textfelder kommen standardmäßig mit Bezeichnungsfeldern. Das reicht eigentlich aus, damit der Benutzer weiß, welche Informationen er in die Textfelder eintragen soll. Moderne Benutzeroberflächen kommen aber teilweise vollständig ohne diese Bezeichnungsfelder aus und zeigen einfach solange, bis der Benutzer etwas eingibt, einen Platzhalter im Textfeld an, der den einzufügenden Wert beschreibt. Das liegt möglicherweise am geringeren Platzbedarf, was gerade auf Smartphones ein Vorteil ist. Es gibt aber noch andere Gründe, warum man Textfelder mit Platzhaltertexten ausstatten sollte. Welche das sind und wie die Anzeige von Platzhaltern realisiert werden kann, zeigen wir in diesem Beitrag.<\/b><\/p>\n
Platzhaltertexte in Access-Formularen: Mehr als nur ein Design-Trick<\/h2>\n
Platzhaltertexte in Textfeldern sind in modernen Webanwendungen längst Standard – und auch in Microsoft Access können sie eine echte Bereicherung sein. <\/p>\n
Ob zur Platzersparnis, besseren Benutzerführung oder als Alternative zu klassischen Beschriftungen: Auf den folgenden Seiten zeigen wir die vielseitigen Einsatzmöglichkeiten und geben praktische Beispiele für den Einsatz von Platzhaltern in Access-Formularen. Wie das aussehen wird, sehen Sie in Bild 1.<\/p>\n
![\"Dies](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_001.png\")
<\/p>\n
Bild 1: Dies sind keine Werte, sondern Platzhalter<\/span><\/b><\/p>\n Hier sind unsere Top-Gründe für den Einsatz dieser Platzhalter:<\/p>\n Die Umsetzung ist sehr einfach. Wir müssen lediglich die Format<\/b>-Eigenschaft des jeweiligen Textfeldes anpassen. <\/p>\n Dazu wechseln wir in die Entwurfsansicht des entsprechenden Formulars und aktivieren das Eigenschaftenblatt, sofern es nicht bereits angezeigt wird. Hier finden wir auf der Registerseite Format <\/b>den folgenden Wert:<\/p>\n Das bedeutet schlicht und einfach: Wenn der angezeigte Wert Null <\/b>ist, zeige den Text aus dem zweiten Parameter an (siehe Bild 2). Das @<\/b>-Zeichen ist ein Platzhalter für eine Zeichenkette. Sobald wir diesen Ausdruck für die Eigenschaft Format <\/b>eingetragen haben und wieder zur Formularansicht wechseln, erscheint dieser Wert in dem Textfeld zur Eingabe des Vornamens – aber nur, wenn dieses noch leer ist.<\/p>\n Bild 2: Einstellen des Formats für die Anzeige eines Platzhalter-Textes<\/span><\/b><\/p>\n Klicken wir dieses Feld an und fügen so die Einfügemarke dort ein, verschwindet der Platzhalter, sodass wir direkt sehen, dass hier etwas eingegeben werden muss (siehe Bild 3).<\/p>\n Bild 3: Der Platzhalter verschwindet beim Anklicken des Textfeldes.<\/span><\/b><\/p>\n Wenn wir auf andere Weise zwischen diesen Steuerelementen navigieren, erhalten wir allerdings ein anderes Verhalten, das von der Einstellung der Option Cursorverhalten bei Eintritt in Feld abhängt<\/b>. Diese stellen wir ein, indem wir mit Datei|Optionen <\/b>den Optionen<\/b>-Dialog öffnen, dort zum Bereich Clienteinstellungen <\/b>wechseln und hier die entsprechende Option auf den gewünschten Wert setzen (siehe Bild 4).<\/p>\n Bild 4: Einstellungen für das Verhalten bei Eintreten in ein Feld<\/span><\/b><\/p>\n Bei Ganzes Feld markieren <\/b>wird das ganze Feld markiert, aber der Platzhaltertext verschwindet nicht. Bei den beiden anderen Einstellungen wird der Platzhaltertext beim Eintritt in das Feld automatisch ausgeblendet.<\/p>\n Die Eingabe der Platzhaltertexte ist zwar einfach, aber wenn man dies für viele Steuerelemente machen möchte, ist die Arbeit ungefähr genauso aufwendig wie das Erstellen entsprechender Textfelder.<\/p>\n Also versuchen wir, das Ganze etwas zu vereinfachen. Zum Beispiel so, dass wir nicht alle Steuerelemente einzeln mit den entsprechenden Platzhaltern versehen müssen. Dies können wir nämlich auch per VBA erledigen.<\/p>\n Dazu benötigen wir lediglich eine Ereignisprozedur, die beim Öffnen des Formulars ausgeführt wird. Diese hinterlegen wir in diesem Fall für das Ereignis Beim Laden <\/b>des Formulars:<\/p>\n Wir weisen also jeweils der Eigenschaft Format <\/b>einen Ausdruck zu, der im Wesentlichen dem entspricht, den wir auch in das Eigenschaftenblatt eingetragen haben.<\/p>\n Mit dem Unterschied, dass wir diesen in Anführungszeichen einfassen müssen – und den Text, der bereits in Anführungszeichen steht, mit doppelten Anführungszeichen versehen:<\/p>\n Wenn wir das Formular nun in der Formularansicht öffnen, erhalten wir genau die gleiche Ansicht wie zuvor.<\/p>\n Nun ist auch noch die Aufgabe, für jedes Textfeld eine solche Zeile zu schreiben, ein gewisser Aufwand.<\/p>\n Auch diesen können wir noch angenehmer machen, indem wir eine kleine Hilfsprozedur verwenden. Diese sieht wie in Listing 1 aus.<\/p>\n Listing 1: Prozedur zum Erstellen des Codes für die Format-Eigenschaft der Steuerelemente<\/span><\/b><\/p>\n Die Prozedur referenziert das aktuell geöffnete Formular mit der Variablen frm<\/b>. Um den Code für ein bestimmtes Formular zu erstellen, müssen wir dieses also öffnen und es muss sich im Fokus befinden. Danach durchläuft die Prozedur alle Steuerelemente der Controls<\/b>-Auflistung des Formulars in einer For Each<\/b>-Schleife.<\/p>\n Hier prüfen wir zuerst, ob es sich bei dem Steuerelement um ein gebundenes Steuerelement handelt, also eines, das für die Eigenschaft Steuerelementinhalt <\/b>einen Wert enthält. Für diese Prüfung leeren wir zuerst eine String<\/b>-Variable namens strSteuerelementinhalt<\/b>. Dann versuchen wir, die Eigenschaft ControlSource <\/b>bei deaktivierter Fehlerbehandlung auszulesen.<\/p>\n Warum bei deaktivierter Fehlerbehandlung? Weil nicht alle Steuerelemente wie beispielsweise Bezeichnungsfelder diese Eigenschaft aufweisen. Wenn wir dennoch versuchen, für ein solches Steuerelement auf ControlSource <\/b>zuzugreifen, löst dies einen Fehler aus, den wir hier verhindern wollen. Andererseits erhalten wir so genau das gewünschte Verhalten, nämlich dass strSteuerelementinhalt <\/b>nur gefüllt wird, wenn die Eigenschaft ControlSource <\/b>vorhanden ist.<\/p>\n Also können wir danach einfach prüfen, ob strSteuerelementinhalt <\/b>eine Zeichenkette mit einer Länge ungleich 0 <\/b>enthält. In diesem Fall wollen wir noch den Steuerelementtyp in einer Select Case<\/b>-Bedingung untersuchen, denn wir wollen die Formatierung nur für Textfelder anwenden. Also prüfen wir ctl.ControlType <\/b>auf den Wert acTextBox<\/b>.<\/p>\n Ist auch diese Bedingung erfüllt, können wir die benötigte VBA-Zeile mit der Zuweisung des Ausdrucks für die Format<\/b>-Eigenschaft erstellen. Da wir nicht genau wissen können, welcher Platzhaltertext verwendet werden soll, wählen wir hier erst einmal den Inhalt der Eigenschaft Steuerelementinhalt, also in der Regel den Namen des Feldes aus der zugrunde liegenden Tabelle.<\/p>\n Diese geben wir für alle betroffenen Steuerelemente im Direktbereich aus und erhalten so eine Ausgabe wie die folgende:<\/p>\n Hier sehen wir, dass uns auch das Feld PersonID <\/b>durchgerutscht ist, also das Primärschlüsselfeld der Tabelle.<\/p>\n Dieses übernehmen wir einfach nicht in die Form_Load<\/b>-Ereignisprozedur, denn für dieses wird, wenn wir es mit einem Autowert versehen haben, ohnehin kein Platzhaltertext angezeigt. Stattdessen sehen wir im im Falle eines neuen Datensatzes den Wert (Neu) <\/b>und für einen vorhandenen Datensatz den Primärschüsselwert im Steuerelement txtPersonID<\/b>.<\/p>\n Durch das Hinzufügen der oben beschriebenen Codezeilen mit der Zuweisung der Werte an die Format<\/b>-Eigenschaft der Steuerelemente haben wir nun einen Ort, an dem wir komfortabel die gewünschten Platzhalter zuweisen können.<\/p>\n In einer Erweiterung haben wir noch zwei weitere Textfelder zur Tabelle tblPersonen<\/b> und auch zum Formular hinzugefügt. Wir wollen noch prüfen, wie sich unsere Lösung mit Datums- und Zahlenfeldern schlägt. Also fügen wir noch die beiden folgenden Zeilen zu unserer Form_Load<\/b>-Prozedur hinzu:<\/p>\n Nach dem Wechsel in die Formularansicht sehen wir, dass der Platzhalter problemlos mit dem Datumsfeld arbeitet (siehe Bild 5). Mit dem Zahlenfeld funktioniert der Ausdruck allerdings nicht. Hier erhält der in der Tabellendefinition festgelegte Standardwert offensichtlich die Priorität vor dem Platzhalter.<\/p>\n Bild 5: Der Standardwert hat eine höhere Priorität als der Platzhalter.<\/span><\/b><\/p>\n Wenn es tatsächlich einen Standardwert gibt, ist das praktisch.<\/p>\n In vielen Fällen, beispielsweise bei Zahlenfeldern, setzt Access beim Anlegen des Feldes automatisch die Eigenschaft Standardwert <\/b>auf den Wert 0<\/b>. Wenn man stattdessen lieber einen Platzhalter anzeigen möchte, hat man zwei Möglichkeiten:<\/p>\n Letzteres gelingt wiederum nur per VBA. Gemeinsam mit der Zuweisung des Platzhalters benötigen wir für das Feld txtBewertung <\/b>nun also zwei Anweisungen:<\/p>\n Der in der ersten Zeile zugewiesene Ausdruck sieht merkwürdig aus. Eigentlich würde man meinen, dass wir einfach den Wert Null <\/b>zuweisen könnten. Dies führt allerdings zu einem Fehler durch eine unzulässige Verwendung von Null<\/b>.<\/p>\n Nachdem wir die zusätzliche Zeile hinzugefügt haben, wird auch der Platzhalter für das Zahlenfeld mit dem Standardwert 0 <\/b>korrekt angezeigt.<\/p>\n Wenn wir im Datumsfeld den Ausdruck wie @;“Geburtsdatum“ <\/b>einstellen, wird zwar der Platzhaltertext korrekt angezeigt.<\/p>\n Wenn wir allerdings ein Datum eingeben, erhalten wir danach eine Ansicht wie in Bild 6.<\/p>\n Bild 6: Falsche Datumsformatierung<\/span><\/b><\/p>\n Das ist aber kein Problem: Das @<\/b>-Zeichen steht lediglich für die Ausgabe von Texten. Wir können hier eine Datumsformatierung angeben und erhalten danach das gewünschte Ergebnis:<\/p>\n Leider ist das immer noch nicht die Lösung: Beim Wechsel zu einem neuen, leeren Datensatz und zurück finden wir wieder den Zahlenwert statt des Datums vor.<\/p>\n Bei dem Zahlenwert für das Feld Bewertung <\/b>sehen wir ein ähnliches Verhalten.<\/p>\n Wir sehen: Hier ist offensichtlich eine aufwendigere Steuerung per VBA nötig, um alle Fälle abzudecken. Wie das gelingt, schauen wir uns später an.<\/p>\n Einen Anwendungsfall haben wir bereits vorgestellt – wir könnten einfach Platzhalter verwenden, die wir sonst als Text der Bezeichnungsfelder nutzen würden. Wenn wir parallel noch Bezeichnungsfelder ausgeben, ist das allerdings eher unnötig.<\/p>\n Stattdessen könnten wir auch praktische Hinweise zum Ausfüllen der Felder geben, wo dies angebracht scheint. Bei einem Datumsfeld wie Geburtsdatum <\/b>könnten wir etwa das Format des erwarteten Datumswertes anzeigen.<\/p>\n Oder wir hinterlegen für das Feld Bewertung <\/b>den Bereich der Zahlen, die eingegeben werden können.<\/p>\n Das sieht beispielsweise wie folgt aus:<\/p>\n In Bild 7 sehen Sie das Ergebnis dieser Anweisungen.<\/p>\n Bild 7: Alternative Platzhalter<\/span><\/b><\/p>\n Da wir die Einstellung auch per VBA vornehmen können, stehen uns natürlich alle Möglichkeiten offen.<\/p>\n Wir können verschiedene Bedingungen abfragen und in Abhängigkeit davon entscheiden, ob wir die Platzhalter anzeigen wollen oder nicht. Außerdem können wir auch die Platzhalter flexibel gestalten.<\/p>\n Wir könnten zum Beispiel entscheiden, dass Platzhalter nach dem Speichern des Datensatzes nicht mehr angezeigt werden oder dass sie nur angezeigt werden, wenn ein neuer Datensatz angelegt wird.<\/p>\n Oder wir können, wie bei dem oben geschilderten Problem mit den Datumsfeldern, genau prüfen, ob es sich gerade um einen neuen, leeren Datensatz handelt oder um einen bereits gespeicherten Datensatz.<\/p>\n Außerdem müssen wir, wie beim Datumsfeld, auch prüfen, ob bereits ein Wert enthalten ist oder nicht und abhängig davon das Format einstellen.<\/p>\n Welche Ereignisse müssen wir also berücksichtigen, um die korrekten Zeitpunkte zum Aktualisieren der Format<\/b>-Eigenschaften der verschiedenen Steuerelemente zu nutzen?<\/p>\n Die grundlegende Idee ist, dass wir eine Hauptprozedur erstellen, die alle Zustände untersucht und die entsprechenden Format<\/b>-Eigenschaften einstellt. Diese rufen wir immer dann auf, wenn eine Änderung der Format<\/b>-Einstellungen nötig sein könnte. Hier sind die notwendigen Aufrufe für die oben beschriebenen Ereignisse:<\/p>\n Diese rufen alle die Prozedur UpdateFormats<\/b> auf, die wir in Listing 2 finden.<\/p>\n Listing 2: Prozedur zum Aktualisieren der Format-Eigenschaften<\/span><\/b><\/p>\n Sie unterscheidet in einer If…Then<\/b>-Bedingung zunächst zwei Fälle – ob es sich um einen neuen, leeren Datensatz handelt (Me.NewRecord = True<\/b>) oder um einen vorhandenen Datensatz.<\/p>\n Bei einem neuen, leeren Datensatz stellen wir überall die gewünschten Platzhalter ein.<\/p>\n Für das Datumsfeld prüfen wir, ob dieses noch leer ist oder nicht. Im ersten Fall stellen wir das Format auf den Platzhalter ein, im zweiten Fall auf das gewünschte anzuzeigende Format.<\/p>\n Beim Zahlenfeld prüfen wir auch auf den Wert Null<\/b>. Hier legen wir für Null <\/b>den Standardwert auf Null <\/b>fest, damit dieser nicht angezeigt wird, und für das Format den gewünschten Platzhalter. Ist das Feld nicht Null<\/b>, leeren wir die Eigenschaft Format<\/b>.<\/p>\n Beim Geburtsdatum oder allgemein bei Datumsangaben prüfen wir mit der Funktion IsNull<\/b>, ob das Feld den Wert Null <\/b>enthält. In diesem Fall stellen wir die Eigenschaft Format <\/b>auf „@;““tt.mm.jjjj“““<\/b> ein.<\/p>\n Wichtig sind die doppelten Anführungszeichen, um tt.mm.jjjj <\/b>als eingebettete Zeichenkette zu kennzeichnen.<\/p>\n Anderenfalls müssen wir das Format wieder auf das Datumsformat einstellen. Hier verwenden wir allerdings den Ausdruck mit der englischen Version des Formats, also dd.mm.yyyy<\/b>.<\/p>\n Bei einen Zahlenfeld, hier txtBewertung<\/b>, sind bei einem leeren Feld gleich zwei Anweisungen nötig. In der ersten stellen wir den Standardwert auf Null ein (auch hier ist das Einfassen in Anführungszeichen wichtig). Schließlich legen wir für das Format den Text „@;““Wert von 1-10″““ <\/b>fest.<\/p>\n Wenn wir die Prozedur für einen Datensatz aufrufen, der nicht neu ist, können wir entscheiden, ob wir die Platzhalter immer noch anzeigen wollen.<\/p>\n Hier haben wir entschieden, dass wir lieber erkennen können, welches Feld noch leer ist, statt den Platzhalter präsentiert zu bekommen.<\/p>\n Deshalb haben wir die Eigenschaft Format <\/b>für die Felder zur Anzeige von Feldern mit dem Datentyp Kurzer Text <\/b>oder Langer Text <\/b>auf eine leere Zeichenkette eingestellt.<\/p>\n Lediglich beim Feld Geburtsdatum<\/b> wollen wir das Format vorgeben, damit der Benutzer das erwartete Format erkennen kann. Wir stellen also die Eigenschaft Format <\/b>auf „@;““tt.mm.jjjj“““<\/b> ein, wenn das Feld leer ist, und auf dd.mm.yyyy<\/b>, wenn es gefüllt ist.<\/p>\n Beim Zahlenfeld legen wir für DefaultValue <\/b>eine leere Zeichenkette fest und für Format <\/b>ebenfalls.<\/p>\n Das Ergebnis für einen bereits bearbeiteten Datensatz, bei dem noch das Geburtsdatum fehlt, sehen Sie in Bild 8.<\/p>\n\n
Einfache Umsetzung per Format-Eigenschaft<\/h2>\n
@;\"Vorname\"<\/pre>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_002.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_003.png\")
<\/p>\n![\"Einstellungen](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_004.png\")
<\/p>\nPlatzhaltertexte einfach angeben<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Me.txtVorname.Format = \"@,\"\"Vorname\"\"\"\r\n Me.txtNachname.Format = \"@,\"\"Nachname\"\"\"\r\n Me.txtStrasse.Format = \"@,\"\"Straße\"\"\"\r\n Me.txtPLZ.Format = \"@,\"\"PLZ\"\"\"\r\n Me.txtOrt.Format = \"@,\"\"Ort\"\"\"\r\nEnd Sub<\/span><\/pre>\nMe.txtVorname.Format = \"@,\"\"Vorname\"\"\"<\/pre>\n
Code per Code erstellen<\/h2>\n
Public Sub <\/span>Platzhaltersteuerelemente()\r\n Dim <\/span>frm As <\/span>Form\r\n Dim <\/span>ctl As <\/span>Control\r\n Dim <\/span>strSteuerelementinhalt As String<\/span>\r\n Set<\/span> frm = Screen.ActiveForm\r\n For Each ctl In frm.Controls\r\n strSteuerelementinhalt = \"\"\r\n On Error Resume Next<\/span>\r\n strSteuerelementinhalt = ctl.ControlSource\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> Len<\/span>(strSteuerelementinhalt) = 0 Then<\/span>\r\n Select Case ctl.ControlType\r\n Case <\/span>acTextBox\r\n Debug.Print<\/span> \"Me.\" & ctl.Name & \".Format = \"\"@;\"\"\"\"\" & ctl.ControlSource & \"\"\"\"\"\"\"\"\r\n Case Else<\/span>\r\n ''Debug.Print<\/span> ctl.ControlType\r\n End Select<\/span>\r\n End If<\/span>\r\n Next<\/span> ctl\r\nEnd Sub<\/span><\/pre>\nMe.txtPersonID.Format = \"@;\"\"PersonID\"\"\"\r\nMe.txtVorname.Format = \"@;\"\"Vorname\"\"\"\r\nMe.txtNachname.Format = \"@;\"\"Nachname\"\"\"\r\nMe.txtStrasse.Format = \"@;\"\"Strasse\"\"\"\r\nMe.txtPLZ.Format = \"@;\"\"PLZ\"\"\"\r\nMe.txtOrt.Format = \"@;\"\"Ort\"\"\"<\/pre>\n
Anpassen der Format-Eigenschaft an einem Ort<\/h2>\n
Platzhalter und Standardwerte<\/h2>\n
Me.txtGeburtsdatum.Format = \"@;\"\"Geburtsdatum\"\"\"\r\nMe.txtBewertung.Format = \"@;\"\"Bewertung\"\"\"<\/pre>\n
![\"Der](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_005.png\")
<\/p>\n\n
Me.txtBewertung.DefaultValue = \"=Null\"\r\nMe.txtBewertung.Format = \"@;\"\"Bewertung\"\"\"<\/pre>\n
Problem beim Datumsfeld<\/h2>\n
![\"Falsche](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_007.png\")
<\/p>\nMe.txtGeburtsdatum.Format = \"TT.MM.JJJJ;\"\"Geburtsdatum\"\"\"<\/pre>\n
Praktische Anwendungsfälle<\/h2>\n
Me.txtVorname.Format = \"@;\"\"Vorname\"\"\"\r\nMe.txtNachname.Format = \"@;\"\"Nachname\"\"\"\r\nMe.txtStrasse.Format = \"@;\"\"Straße mit Hausnummer\"\"\"\r\nMe.txtPLZ.Format = \"@;\"\"ohne ''D-''\"\"\"\r\nMe.txtOrt.Format = \"@;\"\"Ort\"\"\"\r\nMe.txtGeburtsdatum.Format = \"@;\"\"tt.mm.jjjj\"\"\"\r\nMe.txtBewertung.DefaultValue = \"=Null\"\r\nMe.txtBewertung.Format = \"@;\"\"Wert von 1-10\"\"\"<\/pre>\n
![\"Alternative](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_006.png\")
<\/p>\nBedingtes Anzeigen von Platzhaltertexten<\/h2>\n
Ereignisse für die Aktualisierung von Formaten ermitteln<\/h2>\n
\n
Private Sub <\/span>Form_Current()\r\n Call<\/span> UpdateFormats\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Dirty(Cancel As Integer<\/span>)\r\n Call<\/span> UpdateFormats\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtGeburtsdatum_AfterUpdate()\r\n Call<\/span> UpdateFormats\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>UpdateFormats()\r\n If <\/span>Me.NewRecord Then<\/span>\r\n Me.txtVorname.Format = \"@;\"\"Vorname\"\"\"\r\n Me.txtNachname.Format = \"@;\"\"Nachname\"\"\"\r\n Me.txtStrasse.Format = \"@;\"\"Straße mit Hausnummer\"\"\"\r\n Me.txtPLZ.Format = \"@;\"\"ohne ''D-''\"\"\"\r\n Me.txtOrt.Format = \"@;\"\"Ort\"\"\"\r\n If <\/span>IsNull(Me.txtGeburtsdatum) Then<\/span>\r\n Me.txtGeburtsdatum.Format = \"@;\"\"tt.mm.jjjj\"\"\"\r\n Else<\/span>\r\n Me.txtGeburtsdatum.Format = \"dd.mm.yyyy\"\r\n End If<\/span>\r\n If <\/span>IsNull(Me.txtBewertung) Then<\/span>\r\n Me.txtBewertung.DefaultValue = \"=Null\"\r\n Me.txtBewertung.Format = \"@;\"\"Wert von 1-10\"\"\"\r\n Else<\/span>\r\n Me.txtBewertung.Format = \"\"\r\n End If<\/span>\r\n Else<\/span>\r\n Me.txtVorname.Format = \"\"\r\n Me.txtNachname.Format = \"\"\r\n Me.txtStrasse.Format = \"\"\r\n Me.txtPLZ.Format = \"\"\r\n Me.txtOrt.Format = \"\"\r\n If <\/span>IsNull(Me.txtGeburtsdatum) Then<\/span>\r\n Me.txtGeburtsdatum.Format = \"@;\"\"tt.mm.jjjj\"\"\"\r\n Else<\/span>\r\n Me.txtGeburtsdatum.Format = \"dd.mm.yyyy\"\r\n End If<\/span>\r\n Me.txtBewertung.DefaultValue = \"\"\r\n Me.txtBewertung.Format = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Datum](\"..\/fileadmin\/_temp_\/2025_03\/pic_1549_008.png\")
<\/p>\n