撇号导致SQL字符串错误：解决方案

使徒

您是否曾经尝试向MS Access发送在SQL语句中嵌入了撇号的字符串变量？ 如果是，您将获得运行时错误。 这是您的解决方案，该函数可在将变量发送到数据库之前对其进行格式化。

Public Function Apostrophe(sFieldString As String) As String
  If InStr(sFieldString, "'") Then
    Dim iLen As Integer
    Dim ii As Integer
    Dim apostr As Integer
    iLen = Len(sFieldString)
    ii = 1 
      Do While ii <= iLen
        If Mid(sFieldString, ii, 1) = "'" Then
          apostr = ii
          sFieldString = Left(sFieldString, apostr) & "'" & _
          Right(sFieldString, iLen - apostr)
          iLen = Len(sFieldString)
          ii = ii + 1
        End If
      ii = ii + 1
      Loop
  End If 
  Apostrophe = sFieldString
End Function 

From: https://bytes.com/topic/visual-basic/insights/641552-apostrophe-causes-error-sql-string-solution