当我写的代码里面文本框不接受

Question

我有一个形式，一个文本框。我用这个文本框写“代码”，然后我把它保存在表格中通过SQL INSERT语句的数据库，但代码不接受运行，并给了我一个错误信息：运行时错误“3075”。

现场数据的Access数据库类型：数据库的类型长文本

什么问题，以及如何通过所有相同的问题，当我需要保存在数据库领域内的代码。

当我尝试保存代码，而（'），它的工作！

我用这个SQL语句：

CurrentDb.Execute "Update Tbl_Codes Set [LP_ID]= " & Me.txtID & ", 
[Code_Title]='" & Me.txtTitle & "'" _
& " ,[Code_Des]= '" & Me.txtDes & "',[Code_Key]= '" & Me.txtKey & "', 
[Notes]= '" & Me.txtNotes & "'" _
& " Where [ID]= " & Me.txtID1 & ""

我想保存此代码：

DSum("Field1";"Table";"Field2=  '" & Value & "'")

Answer 1

请改变你的代码如下所示。您需要通过他们，加倍逃脱单引号。一个简单的更换会为你的工作。

CurrentDb.Execute "Update Tbl_Codes Set [LP_ID]= " & Replace(Me.txtID,"'","''") & ", 
[Code_Title]='" & Replace(Me.txtTitle,"'","''") & "'" _
& " ,[Code_Des]= '" & Replace(Me.txtDes,"'","''") & "',[Code_Key]= '" & Replace(Me.txtKey,"'","''") & "', 
[Notes]= '" & Replace(Me.txtNotes,"'","''") & "'" _
& " Where [ID]= " & Me.txtID1 & ""
DSum("Field1";"Table";"Field2=  '" & Replace(Value,"'","''") & "'")