MS Access VBA 使用富文本文本框值更新表字段答案

【问题标题】：MS Access VBA to update table field with rich-text textbox valueMS Access VBA 使用富文本文本框值更新表字段
【发布时间】：2014-09-10 07:04:12
【问题描述】：

我有一个带有未绑定富文本文本框控件的表单（名为：tbxNote）。我正在使用以下代码使用表单上各种控件的值更新目标表（名为：tblSupeGenNotes）：

dbs.Execute "UPDATE tblSupeGenNotes " & _
"SET [NoteDate] = #" & Me.tbxNoteDate & "#, " & _
"[SupeType] = " & Me.cbxSupeType & ", " & _
"[SupeAlerts] = " & alrt & ", " & _
"[Note] = " & Chr(34) & Me.tbxNote & Chr(34) & " " & _
"WHERE [SupeGenNoteID] = " & Me.tbxSupeGenNoteID & ";"

所有数据都以正确的值进入目标表中的正确字段除了，从富文本文本框控件 (me.tbxNote) 中提取其数据的 [Note] 字段包括表格字段结果中的 HTML 标记。例如，我得到以下信息：“div>>Sample！{&}nbsp;我不明白发生了什么！>”。（抱歉，我不得不“伪造” HTML 标签，因为论坛将其更改为 HTML！）

如何摆脱 HTML 标签但保持 HTML/富文本格式？

【问题讨论】：

标签： sql vba ms-access richtextbox richtext

【解决方案1】：

啊！我想到了。希望这对其他人有用：

我只将表单上的文本框控件设置为富文本。我还需要进入目标数据表本身 (tblSupeGenNotes) 并将 [Note] 字段设置为具有“富文本”而不是“纯文本”的“文本格式”属性。

进行该更改后，富文本在表单上正确显示，并且带有格式的文本正确传输到目标表中。

【讨论】：