www.pudn.com > Family.zip > famfixmod.bas

Attribute VB_Name = "famfixmod" 
Public DatabaseName As String 
Public Database_Password As String 
Public Database_Path As String 
 
 
'============================================================================================================ 
'Original Author : By: Gaetan Savoie 
'Used To Format a SQL string incase it has an Apostrophe ['] 
'============================================================================================================ 
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 
'============================================================================================================ 
'============================================================================================================