SQL UPDATE Sorgusunda TextBox taki Metin içinde yer alan karakterden kaynaklı hata

[antonio]

Herkese Merhaba,
Access ten SQL sorgusu için oluşturduğum ekteki dosyada her şey uzunca anlatılmıştır. Yinede kısaca durumu özetmeye çalışayım: String ifade olarak Textbox içinde yer alan metinde tek tırnak işareti varsa (') bu hataya sebep olmaktadır. Bunu aşacak bir sorgu formülü bulamadım.
Kullandığım sorgu kodları aşağıdaki gibidir:

Private Sub CommandButton1_Click()
Dim conn As Object, rs As Object, yol As String, sorgu As String
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
yol = ThisWorkbook.Path & "\datalar.accdb"
conn.Open = "provider=microsoft.ace.oledb.12.0; data source=" & yol & "; persist security info=false"
sorgu = "update data1 set konu = '" & CStr(Me.TextBox2.Text) & "', " & _
        "detay = '" & CStr(Me.TextBox3.Text) & "' where id = clng('" & Me.TextBox1.Value & "')"
Set rs = conn.Execute(sorgu)
Set rs = Nothing
Set conn = Nothing
MsgBox "Güncelleme işlemi başarı ile tamamlandı.", vbInformation, "GÜNCELLEME RAPOR EKRANI"
Call UserForm_Initialize
End Sub

İlgilenen arkadaşlara şimdiden teşekkürler..

 

[Orion1]

Standart modüle aşağıki functionu yazın.
Sonra sorguda kullanın.
Değiştirmede tek tırnağı 2 kere tek tırnaka basarak değitirin.
'' 2 tane tek tırnaktan çift tırnak oluşturur.

Function deg(tirnak As String) As String
deg = replace(tirnak, "'", "''")
End Function

sorgu = "update data1 set konu = '" & deg(Me.TextBox2.Text) & "', " & _
        "detay = '" & deg(Me.TextBox3.Text) & "' where id = clng(" & Me.TextBox1.Value & ")"

 

[antonio]

Evren Hocam, ilgilendiğiniz için çok teşekkürler. SQL Update sorgusunda benzer soruna yol açan (tek tırnak gibi) başka karakterler var mıdır acaba?

 

[Orion1]

Evren Hocam, ilgilendiğiniz için çok teşekkürler. SQL Update sorgusunda benzer soruna yol açan (tek tırnak gibi) başka karakterler var mıdır acaba?

Başka varmıdır bilmiyorum.

 

[antonio]

Çözüm öneriniz işe yaradı. Teşekkür ederim.

 

[Orion1]

Çözüm öneriniz işe yaradı. Teşekkür ederim.

Rica ederim.
İyi çalışmalar.