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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.