Использование INSERT INTO с Rich Text

Question

У меня есть поле с форматированным текстом и таблица с полем для расширенного текста.Я пытаюсь использовать 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

Кажется, ничего не работает.Пожалуйста, может кто-нибудь сказать мне, как я должен заключать в скобки переменную.У меня есть несколько полей, которые я также вставляю.Дата, время и другие поля не Rich Text.Остальные все отлично работают.

Answer 1

RT = Me.RTBox

Устанавливает весь элемент управления в переменную RT. Вам нужно только значение, которое находится в элементе управления, попробуйте

RT = Me.RTBox.Value

PS. Подумайте об использовании

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.