Hi have made a number of bit of code like:

    LastName = StrConv(LastName, vbProperCase)

        'Now, take care of StrConv() shortcomings

        'If first two letters are "Mc", cap third letter.
    If Left(LastName, 2) = "Mc" Then
        LastName = Left(LastName, 2) & _
            UCase(Mid(LastName, 3, 1)) & Mid(LastName, 4)
            
        'If first three letters are "Mac", cap fourth letter.
    ElseIf Left(LastName, 3) = "Mac" Then
        LastName = Left(LastName, 3) & _
            UCase(Mid(LastName, 4, 1)) & Mid(LastName, 5)
    End If

Is their a way to make this a sub/function that is called on rather then putting it in every field box that need the bit of code. on each of my forms

I had a go and just cant get the text to update i seem to be missing something

Private Sub LastName_AfterUpdate()

    PCase (LastName)

End Sub

Public Function PCase(FeildName As String) As String
    Dim FixedText As String

    FixedText = StrConv(FixedText, vbProperCase)

        'Now, take care of StrConv() shortcomings

        'If first two letters are "Mc", cap third letter.
    If Left(FixedText, 2) = "Mc" Then
        FixedText = Left(FixedText, 2) & _
            UCase(Mid(FixedText, 3, 1)) & Mid(FixedText, 4)
            
        'If first three letters are "Mac", cap fourth letter.
    ElseIf Left(FixedText, 3) = "Mac" Then
        FixedText = Left(FixedText, 3) & _
            UCase(Mid(FixedText, 4, 1)) & Mid(FixedText, 5)
    End If

MsgBox FixedText 'this is the text need in Text field box

FeildName = FixedText

End Function

---

Reply from Alex Hedley:

FixedText is blank.

You pass in FieldName as a parameter and then don't use it. That's the value you want to pass into your subsequent conversion functions.

Also why not use that in your Query that is then used in your Forms/Reports?