title image


Smiley Re: VBA Escape Zeichen für ' und SQL
Hallo, versuch´s mal so:

Private Sub Command1_Click()

strTMP = "L'Oreal"

strKriterium = "Name Like '" & SQLExpr(strTMP) & "'"

Debug.Print strKriterium

rst1.FindFirst strKriterium

End Sub

 

Public Function SQLExpr(ByVal sExpr As String) As String

Dim sPos As Integer

 

sPos = -1

Do

sPos = InStr(sPos + 2, sExpr, "'")

If sPos > 0 Then

sExpr = Left$(sExpr, sPos) + "'" + Mid$(sExpr, sPos + 1)

End If

Loop Until sPos = 0

 

SQLExpr = sExpr

End Function

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: