Groß-/Kleinschreibung Funktion zum Umwandeln in eine Groß-/Kleinschreibung
Autor:   Microsys Kramer	Bewertung:     [ Jetzt bewerten ]	Views:  18.211
www.access-paradies.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 7 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser VBA-Code gibt Ihnen die Möglichkeit, den Inhalt der Eingabefelder automatisch in eine korrekte Groß-/Kleinschreibung umzuwandeln.
Dabei werden Leerzeichen sowie Bindestriche usw. beachtet.

Erstellen Sie ein neues Modul und fügen nachfolgenden Code ein:

Option Compare Database
Option Explicit
 
Function Proper(strToChange As String) As String
  On Error GoTo Err_Proper
 
  Dim Temp$, C$, OldC$, i As Integer
 
  If IsNull(strToChange) Then
    Exit Function
  Else
    Temp$ = CStr(LCase(strToChange))
    OldC$ = " "
    For i = 1 To Len(Temp$)
      C$ = Mid$(Temp$, i, 1)
      If C$ >= "a" And C$ <= "z" And _
        (OldC$ < "a" Or OldC$ > "z") Then
        Mid$(Temp$, i, 1) = UCase$(C$)
      End If
      OldC$ = C$
    Next i
    Proper = Temp$
  End If
 
Exit_Proper:
  Exit Function
 
Err_Proper:
  MsgBox Err.Description
  Resume Exit_Proper
 
End Function