Følgende funktion placeres i et modul, hvorefter du laver en opdateringsforespørgsel, hvor du opdatere dine felter til: ProperCase([Dit felt])
Public Function ProperCase(Streng As String) As String
On Error Resume Next
Dim pos As Integer, findpos As Integer
Dim tmpStr As String
pos = 1
If Len(Streng) = 0 Then
ProperCase = Streng
Exit Function
End If
tmpStr = Streng
Do
If pos = 1 Then
tmpStr = UCase(Left(tmpStr, 1)) & Mid(tmpStr, 2)
ElseIf Mid(tmpStr, pos - 1, 1) = " " Then
tmpStr = Left(tmpStr, pos - 1) & UCase(Mid(tmpStr, pos, 1)) & Mid(tmpStr, pos + 1)
Else
tmpStr = Left(tmpStr, pos - 1) & LCase(Mid(tmpStr, pos, 1)) & Mid(tmpStr, pos + 1)
End If
pos = pos + 1
Loop Until pos = Len(Streng) + 1
If Err Then
ProperCase = Streng
Else
ProperCase = tmpStr
End If
End Function
/Thomas
www.makeiteasy.dk