Add function to AfterUpdate

[MissaLissa]

Hi Guru's

I'm using vbProperCase in a sub AfterUpdate. However, the vbProperCase does not take into consideration last names that have a hyphen or apostrophe. So, I found a function to solve the issue, but I'm not sure how to implement it. Can someone please walk me through this? Much appreciated.

current code:

Private Sub Applicant2_Last_Name_AfterUpdate()    
    Me.Applicant2_Last_Name = StrConv(Me.Applicant2_Last_Name, vbProperCase)
End Sub

Need to add the following function:

Public Function fProperCase(ByVal vName As String)   
   Dim vReturn
   Dim vLeft
   Dim vRight
   Dim lHyphen As Long
   Dim lApostrophe As Long
   
   
   vReturn = Null
   lHyphen = Nz(InStr(1, vName, "-", vbBinaryCompare), 0)
   lApostrophe = Nz(InStr(1, vName, "'", vbBinaryCompare), 0)


   
   If Len(vName) Then
   
      If lHyphen Then
         vLeft = Mid(vName, 1, lHyphen - 1)
         vRight = Mid(vName, lHyphen + 1)
         vReturn = StrConv(vLeft, Conversion:=vbProperCase) & "-" & StrConv(vRight, Conversion:=vbProperCase)
                         
      Else
         If lApostrophe Then
            vLeft = Mid(vName, 1, lApostrophe - 1)
            vRight = Mid(vName, lApostrophe + 1)
            vReturn = StrConv(vLeft, Conversion:=vbProperCase) & "'" & StrConv(vRight, Conversion:=vbProperCase)
         Else
            vReturn = StrConv(vName, Conversion:=vbProperCase)
         End If
      End If
     
    End If
    fProperCase = vReturn
End Function

 

[dmt32]

Hi,
try calling the function like this:

Private Sub Applicant2_Last_Name_AfterUpdate()
    Me.Applicant2_Last_Name.Text = fProperCase(Applicant2_Last_Name.Text)
End Sub

Dave

 

[xenou]

The function can go in the same place as the form code, or more generally you might prefer to put it into a module so that it can be used in any form.

 

[MissaLissa]

Thanks Dave... That's exactly what I needed to know.