Access expression

[sam]

I would like to know how to write an expression where I
take the last name and the first name and combine them
together with the Apostrophe example:

O'neile,a it should be coming as Oneilea.

Thank you

 

[Immanuel Sibero]

Hi
Try this function below. Copy and paste the function to a module.


HTH,
Immanuel Sibero





Function fExtractSpecStr(ByVal strInString As String) As String

Dim lngLen As Long
Dim strOut As String
Dim intCount As Long, strTmp As String

lngLen = Len(strInString)
strOut = ""
For intCount = 1 To lngLen
strTmp = Left$(strInString, 1)
strInString = Right$(strInString, lngLen - intCount)
'The next statement will extract special chars
If (Asc(strTmp) >= 48 And Asc(strTmp) <= 57) Or _
(Asc(strTmp) >= 65 And Asc(strTmp) <= 90) Or _
(Asc(strTmp) >= 97 And Asc(strTmp) <= 122) Then

strOut = strOut & strTmp
End If
Next intCount

fExtractSpecStr = strOut

End Function

 

[desiree figueroa]

I would like to know how to write an expression where I
take the last name and the first name and combine them
together with the Apostrophe example:

O'neile,a it should be coming as Oneilea.

Thank you