使用INSERT INTO和富文本

Question

我有一个带有富文本框的from和一个带有丰富文本字段的表。我正在尝试使用INSERT INTO将表单中的文本复制到表中。除Rich Text文件外，我的所有字段都工作得很好。我不知道如何格式化INSERT INTO字符串。这是我尝试过的。

DIM RT as String
RT = Me.RTBox
StrSQL = "INSERT INTO MyTbl (RTField) VALUES (""" & RT & """);" 'Tried triple quotes
StrSQL = "INSERT INTO MyTbl (RTField) VALUES ('" & RT & "');" 'Tried string quotes

似乎没什么用。请有人能告诉我如何将变量括起来。我也插入了几个字段。日期，时间和其他非富文本字段。其他一切都很好。

Answer 1

RT = Me.RTBox

将整个控件设置为RT变量您只需要控件中的值，请尝试

RT = Me.RTBox.Value

附：考虑使用

Option Explicit

在模块的顶部，以确保类型兼容性。使用它会在编译代码时捕获错误。

Answer 2

试试DAO：

Dim rs As DAO.Recordset    
Dim RT As String

Set rs = CurrentDb.OpenRecordset("Select RTField From MyTbl")
RT = Me!RTBox.Value

rs.AddNew
    rs!RTField.Value = RT
    ' or simply:
    ' rs!RTField.Value = Me!RTBox.Value
rs.Update
rs.Close

Answer 3

这对你有用吗？

StrSQL = "INSERT INTO MyTbl (RTField) VALUES ('' & RT & '');"  -- Double Ticks for a single tick.