Ersten Buchstaben eines String groß setzen

Die nachfolgende Funktion wandelt den ersten Buchstaben eines Strings in einen Großbuchstaben um und gibt diesen wieder zurück. Speziell für Aktualisierungsabfragen lassen sich so schnell und einfach z.B. Straßennamen einer Tabelle korrigieren.

Code:

Public Function ErstesZeichenGross(Txt As Variant) As String   ' ------------------------------------------------------- ' Diese Funktion wandelt den ersten Buchstaben des mit- ' gegebenen Strings in einen Großbuchstaben um. ' -------------------------------------------------------   If IsNull(Txt) Or Txt = "" Then ErstesZeichenGross = "" Else ErstesZeichenGross = UCase(Left(Txt, 1)) & _ Right(Txt, Len(Txt) - 1) End If   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!