<\/p>\n
Für Datum, Uhrzeit, Währung et cetera ist dies ein alter Hut: Der Benutzer kann das gewünschte Anzeigeformat in der Systemsteuerung systemweit festlegen. Für andere, anwendungsspezifische Zahlenwerte legt üblicherweise der Entwickler die Formatierung fest. Der Kunde oder Benutzer kann höchstens Vorgaben machen. Wie wäre es aber, wenn Sie den Benutzer Ihrer Anwendung selbst Formate festlegen lassen Wir zeigen, wie das funktioniert.<\/b><\/p>\n
Wenn Sie dem Benutzer Ihrer Anwendung die Möglichkeit bieten wollen, dass dieser Zahlenformatierungen ähnlich wie in der Systemsteuerung von Windows festlegen kann (siehe Bild 1), brauchen Sie prinzipiell folgende Elemente:<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: ändern der Zahlenformate in der Systemsteuerung von Windows XP<\/span><\/b><\/p>\n Datenmodell<\/b><\/p>\n Bevor wir die Tabellen erstellen, formulieren wir die Wünsche an unsere Formatierungs-Lösung. Am besten verwenden wir für die Formatausdrücke die gleichen Regeln, die auch die Format<\/b>-Funktion von VBA einsetzt – dazu später mehr.<\/p>\n Damit ein nachträgliches Ergänzen der Formatvorgaben später durch einfaches Anlegen weiterer Datensätze erfolgen kann, können wir bereits drei Felder für unsere Tabelle vormerken:<\/p>\n Um den praktischen Nutzen zu erweitern, soll der Benutzer außerdem einen Beispielausdruck eingeben können, der im Formular zur Definition der Formatausdrücke zu Testzwecken eingesetzt wird.<\/p>\n Die Tabelle sieht im Entwurf nun wie in Bild 2 aus und heißt tblFormate<\/b>.<\/p>\n Bild 2: Die Tabelle zum Speichern der Formatangaben in der Entwurfsansicht<\/span><\/b><\/p>\n Formular zum Definieren der Eingabeformate<\/b><\/p>\n Das Formular besitzt die Abfrage qryFormate<\/b> als Datenherkunft. Diese Abfrage erledigt etwa mehr als nur die Sortierung der Formate nach der Formatbezeichnung: Sie steuert auch noch ein Feld bei, das den Beispielausdruck mit dem im Feld Formatdefinition angegebenen Ausdruck formatiert (siehe Bild 3).<\/p>\n Bild 3: Diese Abfrage sortiert die Formatierungsangaben nach dem Alphabet und fügt eine formatierte Fassung des Beispielausdrucks hinzu.<\/span><\/b><\/p>\n Das Formular sieht schließlich wie in Bild 4 aus. Es zeigt die Daten in der Endlosansicht an, weshalb Sie die Eigenschaft Standardansicht <\/b>auf Endlosformular <\/b>einstellen.<\/p>\n Bild 4: Das Formular zur Anzeige der Formatangaben in der Entwurfsansicht<\/span><\/b><\/p>\n Wenn Sie nun in die Formularansicht wechseln und eine Formatbezeichnung, eine Formatdefinition sowie einen Beispielausdruck eingeben, passiert natürlich noch nichts Weltbewegendes.<\/p>\n Es gibt an dieser Stelle ja auch nur eine Anforderung: Das Feld Beispielausdruck <\/b>soll in dem Format angezeigt werden, das im Feld Formatdefinition <\/b>angegeben wurde. Perfekt wäre es natürlich, wenn der Benutzer gleich beim Eingeben des Formatausdrucks ein Ergebnis sähe.<\/p>\n Dazu brauchen wir ein paar Zeilen VBA-Code, der durch das Ereignis Bei änderung <\/b>des Felds mit der Formatdefinition ausgelöst wird. Vorher jedoch stellen wir die Namen der Textsteuerelemente um, indem wir jedem das Präfix txt <\/b>voranstellen (also txtFormatID<\/b>, txtFormatbezeichnung <\/b>und so weiter).<\/p>\n Die Ereignisprozedur sieht wie folgt aus:<\/p>\n Wenn Sie nun einen Ausdruck in das Textfeld txtBeispielausdruck <\/b>eingegeben haben und den Wert im Textfeld txtFormatdefinition <\/b>ändern, wird der Inhalt von txtFormatierterBeispielausdruck <\/b>entsprechend formatiert.<\/p>\n Sie werden allerdings feststellen, dass sich die Einfügemarke bei jeder änderung an das Ende des in txtFormatdefinition <\/b>enthaltenen Texts bewegt, was auf Dauer stört.<\/p>\n Erweitern wir die Prozedur also so, dass die Einfügemarke nach dem ändern des Formats wieder dort landet, wo sie sich vorher befunden hat:<\/p>\n Die neu hinzugefügten Zeilen lesen vor dem ändern des Formats mit der Eigenschaft SelStart <\/b>des Steuerelements die Position der Einfügemarke aus und schreiben diese anschließend wieder zurück.<\/p>\n Wenn Sie das Steuerelement txtBeispieleingabe<\/b> mit dem gleichen Komfort ausstatten möchten, verwenden Sie eine ähnliche Ereignisprozedur, die durch die entsprechende Ereigniseigenschaft von txtBeispieleingabe <\/b>ausgelöst wird und wie folgt aussieht:<\/p>\n Der kleine, notwendige Unterschied ist der, dass wir dem Textfeld txtFormatierterBeispielausdruck <\/b>nicht einfach den Wert von txtBeispielausdruck <\/b>zuweisen können.<\/p>\n Das Textfeld ist bereits an das Feld FormatierterBeispielausdruck <\/b>der Datenherkunft gebunden und kann daher nicht durch eine Wertzuweisung geändert werden.<\/p>\n Dies erledigen wir indirekt, indem wir den aktuellen Datensatz nach der Eingabe jedes einzelnen Buchstabens in txtBeispielausdruck <\/b>speichern und so für eine Aktualisierung von txtFormatierterBeispielausdruck <\/b>sorgen. Auch hier ist das vorherige Merken und anschließende Wiederherstellen der Cursor-Position nötig. In der Formularansicht sieht frmFormate <\/b>nun wie in Bild 5 aus.<\/p>\n Bild 5: Das Formular zur benutzerdefinierten Definition von Formaten in Aktion<\/span><\/b><\/p>\n <\/p>\n Formate definieren<\/b><\/p>\n Nachdem wir die Grundlage für das Auswählen verschiedener Formatdefinitionen geschaffen haben, schauen wir uns die entsprechenden Möglichkeiten an – am einfachsten gelingt dies mit ein paar Beispielen.<\/p>\n Zunächst jedoch eine grundlegende Information: Es gibt einige Zeichen, die in Zusammenhang mit der Format<\/b>-Eigenschaft eine spezielle Bedeutung haben.<\/p>\n Dies ist zum Beispiel beim Buchstaben h <\/b>in Zusammenhang mit Datumsangaben der Fall: Er steht hier stellvertretend für die in der Datumsangabe enthaltenene Stundenzahl. So liefert der folgende Ausdruck beispielsweise die Stunde für die aktuelle Uhrzeit:<\/p>\n Wenn dieser Ausdruck nun automatisch den Buchstaben h <\/b>als Zusatz enthalten soll, müssen Sie diesen durch ein vorangestelltes Backslash-Zeichen (\\<\/b>) besonders kennzeichnen. Der nächste Ausdruck liefert das Ergebnis 19h <\/b>(vorausgesetzt, die volle Stunde lautet gerade 19<\/b>):<\/p>\n Gleiches gilt für alle Zeichen, die spezielle Funktionen haben, wie die folgende Auflistung zeigt:<\/p>\n Zahlen formatieren<\/p>\n Für das Formatieren von Zahlen gibt es ein paar kleine Regeln, die voraussetzen, dass der zu formatierende Ausdruck tatsächlich eine nackte Zahl ist.<\/p>\n Es gibt prinzipiell zwei Platzhalter für Ziffern: die 0 <\/b>und das Raute-Zeichen (#<\/b>). Der Unterschied zwischen den beiden ist, dass die 0 <\/b>nicht nur als Platzhalter fungiert, sondern auch ausgegeben wird, wenn an der entsprechenden Stelle gar keine Ziffer vorliegt. Beispiel:<\/p>\n gibt den Ausdruck 00123 <\/b>aus. Da die angegebene Zahl nicht alle Stellen ausfüllt, werden die fehlenden mit 0 <\/b>aufgefüllt. Der folgende Ausdruck hingegen gibt einfach 123 <\/b>aus:<\/p>\n Da dies auch geschieht, wenn man den Format-Befehl weglässt: Warum verwendet man das Raute-Zeichen dann überhaupt<\/p>\n Nun, zum Beispiel für das Einfügen von Tausendertrennzeichen. Der folgende Ausdruck liefert beispielsweise 1.234 zurück:<\/p>\n Bei einer Zahl, die den Tausenderbereich nicht erreicht, fällt das Tausendertrennzeichen einfach weg – Folgendes liefert so einfach die Zahl 12:<\/p>\n Die 0 <\/b>als Platzhalter ist hingegen sinnvoll, wenn Sie bei einer Dezimalzahl eine bestimmte Anzahl Stellen hinter dem Komma anzeigen möchten.<\/p>\n Der folgende Ausdruck liefert beispielsweise zwei Stellen hinter dem Komma – auch wenn gar keine oder zu wenige Nachkommastellen angegeben werden:<\/p>\n Wenn Sie eine Zahl mit Tausender- und Dezimaltrennzeichen ausgeben möchten, kommt beispielsweise der folgende Ausdruck zum Einsatz:<\/p>\n Probieren geht über Studieren<\/b><\/p>\n Beim Formatieren mit den Format<\/b>-Anweisungen und den entsprechenden Eigenschaften kann es nie schaden, ein wenig herumzuprobieren – und dafür ist unser kleines Formular zum Festlegen von Formatierungen wie geschaffen.<\/p>\n Geben Sie dort den gewünschten Ausgangswert aus Beispielausdruck ein und experimentieren Sie mit dem Formatierungsausdruck – Sie werden schnell die paar Regeln herausfinden, die für die von Ihnen benötigten Formatierungen gelten.<\/p>\n Wichtig ist, dass Sie solche Zeichen, die innerhalb des zweiten Parameters der Format<\/b>-Anweisung eine spezielle Bedeutung haben, nur mit vorangestelltem Backslash (\\<\/b>) anzeigen können.<\/p>\n Spezialfall Telefonnummer<\/b><\/p>\n Für Telefonnummern lassen sich die Format-Eigenschaften in Deutschland nicht einsetzen. Der Grund ist, dass die Länge sowohl von Vorwahlen als auch der Telefonnummern selbst variiert.<\/p>\n Die beste Empfehlung lautet daher wohl, Telefonnummern in einem Textfeld einheitlich formatiert zu speichern.<\/p>\n Bankleitzahlen und Kontonnummern<\/p>\n Solche Zahlen können Sie prinzipiell formatieren, wie Sie möchten. Bei Bankleitzahlen, die immer achtstellig sind, fügt man gern hinter der dritten und sechsten Stelle ein Leerzeichen ein. Das erledigt die folgende Format<\/b>-Anweisung:<\/p>\n Im Praxiseinsatz ist dies jedoch bedenklich: Da eine Bankleitzahl genau acht Stellen aufweisen muss, richten manche Softwarehersteller (unter anderem auch die Entwickler von Homebanking-Programmen und -Internetseiten) die Eingabemasken so ein, dass auch nur achtstellige Bankleitzahlen eingegeben werden können.<\/p>\n Wenn diese nun in einem Textfeld wegen der oben vorgestellten Formatierung zwei Leerzeichen enthalten, können Sie sie nicht so einfach per Copy and Paste oder auch per Drag and Drop in ein auf acht Zeichen beschränktes Textfeld einfügen. Im einfachsten Fall werden die überzähligen Stellen hier einfach abgeschnitten.<\/p>\n Benutzerdefinierte Formatierungen global einsetzen<\/b><\/p>\n Nachdem Sie mit unserem Formular einige benutzerdefinierte Formatierungen angelegt haben, wollen Sie diese nun auch einsetzen.<\/p>\n Schauen wir uns zunächst an, wie das unter VBA funktioniert. Hier erstellen wir zunächst eine Wrapper-Funktion, die prinzipiell genau wie die eigentliche Format<\/b>-Funktion arbeitet, aber als zweiten Parameter die Bezeichnung eines in der Tabelle tblFormate <\/b>definierten Formats erwartet (s. Listing 1).<\/p>\n Listing 1: Diese Funktion formatiert einen Wert entsprechend der angegebenen benutzerdefinierten Formatvorlage.<\/p>\n In der Praxis wenden Sie diese Funktion etwa so an:<\/p>\n Benutzerdefinierte Formate unter VBA<\/b><\/p>\n Wenn Sie die Formatierung gleich unter VBA einsetzen möchten, werden Sie vermutlich eine Variable als ersten Parameter angeben und nur den Namen des zu verwendenden Formats fest kodieren.<\/p>\n Wenn wir eine Tabelle mit Bankleitzahlen betrachten, deren Felder einen Primärschlüssel, die Bezeichnung der Bank und die Bankleitzahl selbst enthalten, könnten Sie diese per VBA wie in Listing 2 durchlaufen und dabei die formatierten Bankleitzahlen ausgeben. Der Aufruf der Funktion FormatX<\/b> ist zur besseren Übersicht fett gedruckt.<\/p>\n Listing 2: Beispiel für den Einsatz der FormatX-Funktion unter VBA<\/p>\n Benutzerdefinierte Formate in Abfragen<\/b><\/p>\n In Abfragen verwenden Sie unsere FormatX<\/b>-Funktion genauso wie die eingebaute Format<\/b>-Funktion.<\/p>\n Bild 6 zeigt eine Abfrage, welche die oben erwähnte Tabelle mit Bankleitzahlen aufgreift und die Bankleitzahlen mit dem von uns definierten Format BLZ <\/b>formatiert.<\/p>\n Bild 6: Diese Abfrage formatiert die Bankleitzahlen nach vorgegebenem Schema.<\/span><\/b><\/p>\n Der einzige Unterschied zum Aufruf in VBA ist die Verwendung des Semikolons als Trennzeichen zwischen den Parametern.<\/p>\n Benutzerdefinierte Formate in der Format-Eigenschaft von Steuerelementen<\/p>\n In Steuerelementen sieht die Zuweisung der Formate noch etwas anders aus. Damit ein Textfeld den enthaltenen Ausdruck in einem der benutzerdefinierten Formate anzeigt, verwenden Sie die Format<\/b>-Eigenschaft dieses Steuerelements.<\/p>\n Diesem müssen Sie beim Öffnen des Formulars (zum Beispiel beim Auslösen der Ereigniseigenschaft Beim Laden<\/b>) die entsprechende Formatierungsdefinition zuweisen. Dies sieht etwa so aus:<\/p>\n Sie müssen jedoch eines beachten: Das Raute-Zeichen wird in der Format<\/b>-Eigenschaft eines Steuerelements anders interpretiert als etwa in der Format<\/b>-Funktion.<\/p>\n Dies können Sie ganz einfach ausprobieren, indem Sie beispielsweise in den oben verwendeten Platzhalter für die Bankleitzahl (### ### ##) in der Entwurfsansicht direkt die Eigenschaft Format<\/b> des Steuerelements eintragen und die Eingabetaste betätigen. Access ändert den Inhalt dieser Eigenschaft gleich auf den Ausdruck # # # um – zusammenhängende Raute-Zeichen werden also durch je eine Raute ersetzt.<\/p>\n Bei der Bankleitzahl spielt das keine Rolle, da diese ohnehin immer acht Zeichen lang ist: Sie verwenden dann einfach den Ausdruck 000 000 00 <\/b>als Formatdefinition. Schwieriger wird es bei Zahlen, die keine feste Anzahl Stellen enthalten.<\/p>\n Konkatenierte Ausdrücke in Abfragen<\/b><\/p>\n Manchmal möchte man vielleicht Ausdrücke mit formatierten Zahlen zusammenstellen. So könnte man etwa den Ausdruck Minhorst, André (12345) <\/b>aus den Feldern Nachname<\/b>, Vorname <\/b>und Kundennummer <\/b>einer Tabelle zusammensetzen. Das funktioniert etwa mit folgendem Ausdruck:<\/p>\n Wenn die Kundennummer hier noch formatiert werden soll, baut man einfach die Funktion zum Anwenden benutzerdefinierter Formatdefinitionen ein:<\/p>\n Wenn Sie dies in Form einer Abfrage etwa zum Füllen eines Kombinationsfeldes verwenden möchten, können Sie dies problemlos tun: Sie müssen lediglich beachten, dass diese Vorgehensweise auf den Zugriff via JET beschränkt ist.<\/p>\n Das bedeutet, dass eine derartige Behandlung von Daten etwa bei PassThrough<\/b>-Abfragen oder anderen direkten Zugriffen auf externe Quellen wie einen SQL Server nicht funktionieren wird. Dies hängt damit zusammen, dass Abfragen dann auf dem Server ausgeführt werden, der die angegebene VBA-Funktion aber nicht kennt.<\/p>\n FormatX in Berichten<\/b><\/p>\n In Berichten können Sie die FormatX<\/b>-Funktion zum Zuweisen benutzerdefinierter Formate ohne Probleme einsetzen, wenn die Abfrage auf die FormatX<\/b>-Funktion zugreifen kann – was gleichbedeutend damit ist, dass die Tabellen entweder in der lokalen Datenbank liegen oder per ODBC eingebunden sind. Hier können Sie die FormatX-Funktion in der zugrunde liegenden Abfrage einsetzen, um die betroffenen Werte zu formatieren.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Wenn eine Anwendung es erfordert, dass der Benutzer die Anzeige von Zahlen, Datumsangaben und ähnlichen Informationen selbst formatieren kann, finden Sie im vorliegenden Beitrag ausreichend Informationen.<\/p>\n Probleme kann es geben, wenn die Daten direkt von einem SQL Server oder einer anderen externen Quelle bezogen werden, die nicht als verknüpfte Tabelle verfügbar ist.<\/p>\n Enthaltene Beispieldateien:<\/p>\n FormatierungNachWunsch.mdb<\/p>\n\n
\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic002_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic004_opt.jpeg\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic003_opt.jpeg\")
<\/p>\nPrivate Sub txtFormatdefinition_Change()\r\n Me!txtBeispielausdruck.Format =\r\n Nz(Me!txtFormatdefinition.Text)\r\n End Sub<\/pre>\n
Private Sub txtFormatdefinition_Change()\r\n Dim intSelStart As Integer\r\n intSelStart = Me!txtFormatdefinition.SelStart\r\n Me!txtFormatierterBeispielausdruck.Format =\r\n Nz(Me!txtFormatdefinition.Text)\r\n Me!txtFormatdefinition.SelStart = intSelStart\r\n End Sub<\/pre>\n
Private Sub txtBeispielausdruck_Change()\r\n Dim intSelStart As Integer\r\n intSelstart = Me!txtBeispielausdruck.SelStart\r\n DoCmd.RunCommand acCmdSaveRecord\r\n Me.txtBeispielausdruck.SetFocus\r\n Me!txtBeispielausdruck.SelStart = intSelstart\r\n End Sub<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic005_opt.jpeg\")
<\/p>\nFormat(Time, \"h\")<\/pre>\n
Format(Time, \"h\\h\")<\/pre>\n
\n
Format(123, "00000")<\/pre>\n
Format(123, "#####")<\/pre>\n
Format(1234, "#.###")<\/pre>\n
Format(12, "#.###")<\/pre>\n
Format(6.3, "0.00")<\/pre>\n
Format(1234.5, "#,##0.00")<\/pre>\n
Format(12345678, "### ### ##")<\/pre>\n
Public Function FormatX(varAusdruck As Variant, strFormatbezeichnung) As String\r\n Dim strFormat As String\r\n strFormat = Nz(DLookup("Formatdefinition", "tblFormate", _\r\n "Formatbezeichnung = ''" & strFormatbezeichnung & "''"), "")\r\n If Len(strFormat) > 0 Then\r\n FormatX = Format(varAusdruck, strFormat)\r\n End If\r\nEnd Function<\/pre>\nDebug.Print FormatX(88888888, "BLZ")\r\n888 888 88<\/pre>\n
Public Sub Bankleitzahlen()\r\nDim db As DAO.Database\r\nDim rst As DAO.Recordset\r\nSet db = CurrentDb\r\nSet rst = db.OpenRecordset("tblBankleitzahlen", dbOpenDynaset)\r\nDo While Not rst.EOF\r\n Debug.Print rst!Bankbezeichnung, FormatX(rst!Bankleitzahl, "BLZ")\r\n rst.MoveNext\r\nLoop\r\nEnd Sub<\/pre>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_06\/FormatierungNachWunsch-web-images\/pic006_opt.jpeg\")
<\/p>\nPrivate Sub Form_Load()\r\n Me!txtBLZFormatiert.Format = _\r\n CStr(GetFormat("BLZ"))\r\n End Sub<\/pre>\nNachname & ", " & Vorname & "(" & Kundennummer & ")"<\/pre>\nNachname & ", " & Vorname & "("\r\n& FormatX(Kundennummer) & ")"<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n