Umlaute in Textbox
09.06.2020 15:09:19
Christoph
Habe vor kurzem hier das Problem mit den zwei Textboxen Name und Vorname = TextboxEmail (mit einem . getrennt) beantwortet bekommen. Vielen lieben Dank dafür!
' Vorname automatisch in Email eintragen
Me.TextBoxEmail = StrConv(Me.TextBoxVorname & "." & Me.TextBoxName, vbLowerCase)
' Email aus Name und Vorname automatisch zusammensetzen
'
Me.TextBoxEmail = StrConv(Me.TextBoxVorname & "." & Me.TextBoxName, vbLowerCase)
Funktioniert wunderbar!
Nun mein nächstes Problem: Falls im Namen oder Vornamen Umlaute vorkommen sollten, müssten Diese in der Textbox Email mit ae ue usw. ersetzt werden.
In der Internetrecherche habe ich einen code für eine Funktion gefunden, die genau das macht:
Public Function Umlaut(Anything As Variant) As Variant
Dim i As Long
Dim Ch As String * 1
Dim Ch1 As String * 1
Dim Res As String
Dim IsUpCase As Boolean
If IsNull(Anything) Then Umlaut = Null: Exit Function
For i = 1 To Len(Anything)
Ch = Mid$(Anything, i, 1)
Ch1 = IIf(i Nun reicht mein wissen leider nicht aus, wie ich diese Komponenten programmieren muss.
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank für den genialen Service!
Liebe Grüsse aus der Schweiz
Christoph
Anzeige