Driving you nuts?

Here is a solution that is between perfect and acceptable.

Replace all apostrophes with `. That is the character below the ~ on your keyboard.

Or Chr(96)

Use this or a similar function:

Function fncTakeOutApostrophes(strNEW As String) As String
If IsNull(strNEW) = True Or Len(strNEW) = 0 Then
fncTakeOutApostrophes = " "
Exit Function
End If

Dim ap As Boolean
ap = True
    Do While ap = True
        If InStr(1, strNEW, "'", vbTextCompare) > 0 Then
        i = InStr(1, strNEW, "'", vbTextCompare)
            strNEW = Left(strNEW, i - 1) & Chr(96) & Mid(strNEW, i + 1, Len(strNEW))
        Else
            ap = False
        End If
    Loop
    fncTakeOutApostrophes = Trim(strNEW)
End Function

Hey! A backwards single quote is better than no single quote at all!!!

The normal solution is to replace each single quote with two consecutive single quotes. Pseudo example: O'Conner is changed to O''Conner

INSERT INTO "customer" ("Name","LastName","FirstName","BillAddressAddr1",
"BillAddressAddr2","BillAddressCity","BillAddressState","BillAddressPostalcode")
values ('O''Conner, Shane','O''Conner','Shane','Shane O''Conner','561 W 4th St.',
'Carlsbad','CA','92009')

This insert is seen in QuickBooks as O'Conner

Well shiver me timbers!

First, I searched the forum for 'apostrophe' and not coming up with any solutions, figured out my own.

I did not know that:

1. double quotes could be placed inside the single quotes
2. QuickBooks would read these as single quotes!

Fantastic!! So glad I posted my somewhat bizzare solultion since now I have this great one and other people searching for apostrophe will find your solution too!

Thanks Tom.