Question

我有一个带有未绑定的Rich Text文本框控件的表单（名为：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 & ";"

所有数据都在正确的字段中进入目标表，其中正确的值除之外，从Rich Text文本框控件（me.tbxNote）中提取数据的[Note]字段包括结果表字段中的HTML标记。例如，我得到以下内容：“＆lt;＆lt;＆lt; div ＆gt;＆gt; Sample！{＆amp;} nbsp;我不明白发生了什么！＆lt;＆lt; \ _＆_ div_＆gt;＆gt; ”。（对不起，我不得不“伪造”HTML标签，因为论坛将其更改为HTML！）

如何删除HTML标记但保留HTML /富文本格式？

Answer 1

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

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

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

MS Access VBA更新具有富文本文本框值的表字段

1 个答案: