| |
|
Text in Groß-/Keinschreibung umwandeln |
| Kurzinfo: |
 |
Die Funktion wandelt einen Text ein eine
korrekte Groß-/Kleinschreibung um. Dabei wird der
erste Buchstabe immer groß und alle folgenden Buchstaben
immer klein geschrieben. Bindestriche werden dabei ebenfalls
als Worttrenner erkannt. |
| Access-Version(en): |
|
Access 97, 2000 und XP |
| Autor: |
 |
Günther Kramer |
| Homepage: |
 |
http://www.access-paradies.de |
|
| | | | 
 |
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! |
| | | |
|
Fügen Sie die folgende Funktion in ein Modul (neu oder vorhanden) ein:
Function Proper(strToChange As String) As String
On Error GoTo Err_Proper
Dim TempStr As String
Dim Zeichen As String
Dim ZeichenAlt As String
Dim i As Integer
TempStr = LCase(strToChange)
ZeichenAlt = " "
For i = 1 To Len(TempStr)
Zeichen = Mid(TempStr, i, 1)
If Zeichen >= "a" And Zeichen <= "z" And _
(ZeichenAlt < "a" Or ZeichenAlt > "z") Then
Mid(TempStr, i, 1) = UCase(Zeichen)
End If
ZeichenAlt = Zeichen
Next i
Proper = TempStr
Exit_Proper:
Exit Function
Err_Proper:
MsgBox Err.Description
Resume Exit_Proper
End Function
Zum Ändern der Schreibweise verwenden Sie den folgenden Aufruf:
Me![Feldname] = Proper(Me![Feldname])
' oder
MsgBox Proper("das ist ein test")
Ab Access 2000 gibt es eine spezielle Accessinterne Funktion, die man für die Umwandlung verwenden kann.
Vielen Dank an Sascha Trowitzsch, der uns diesen Hinweis lieferte.
Public Function Proper(strToChange As String)
On Error GoTo Err_Proper
Proper = StrConv(strToChange, vbProperCase)
Exit_Proper:
Exit Function
Err_Proper:
MsgBox Err.Description
Resume Exit_Proper
End Function
Copyright 2000-2003 Microsys
Kramer– Alle Rechte vorbehalten - Der Download von Tipps und
Programmen von den Seiten www.access-paradies.de erfolgt auf eigene
Gefahr. Microsys Kramer haftet nicht für Schäden, die
aus der Installation oder der Nutzung von Tipps oder Software aus
dem Download-Bereich erfolgen. Trotz aktueller Virenprüfung
ist eine Haftung für Schäden und Beeinträchtigungen
durch Computerviren ausgeschlossen. Schadenersatzansprüche,
aus welchem Rechtsgrund auch immer, sind ausgeschlossen, wenn Microsys
Kramer nicht Vorsatz oder grobe Fahrlässigkeit zu vertreten
hat. Dies gilt auch für Ansprüche auf Ersatz von Folgeschäden
wie Datenverlust. | 
» Gesamtliste
