Access 2016前端写入SQL Server时如何避免HTML自动转义？

问题根源 #

Access的富文本框会自动对用户手动输入的HTML标签进行HTML实体转义（比如<转成<），但内部自动生成的格式标签（如换行对应的<div>）不会被转义，导致自定义HTML无法正常存储和导出。

可行解决方案 #

1. 改用纯文本框手动处理格式

• 将输入控件改为纯文本模式（TextFormat设为acTextFormatPlain），此时输入的HTML不会被转义。
• 保存到SQL Server前，手动将换行符替换为<div>标签，模拟富文本的自动格式化效果：

  Private Sub Form_BeforeUpdate(Cancel As Integer)
      Dim processedContent As String
      ' 替换换行符为HTML div标签
      processedContent = "<div>" & Replace(Me.txtInput.Value, vbCrLf, "</div><div>") & "</div>"
      ' 赋值到绑定字段
      Me!SQLContentField = processedContent
  End Sub
  

• 读取数据时直接输出原始HTML，确保导出PDF时正常解析。

2. 用VBA在保存前还原转义内容

如果仍需使用富文本框，可在表单更新事件中拦截并还原转义的HTML实体：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim escapedContent As String
    escapedContent = Me.txtRichInput.Value
    
    ' 注意替换顺序：先还原&的转义，再处理<>
    escapedContent = Replace(escapedContent, "&amp;", "&")
    escapedContent = Replace(escapedContent, "&lt;", "<")
    escapedContent = Replace(escapedContent, "&gt;", ">")
    
    ' 将还原后的内容存入数据库
    Me!SQLContentField = escapedContent
End Sub

• 该方法不会影响Access自动生成的<div>标签，因为这类标签未被转义，替换操作只会处理用户输入的转义内容。

3. 调整字段绑定与控件设置

• 确保SQL Server后端字段类型为nvarchar(max)或varchar(max)，避免使用Access备注型字段（易触发特殊转义逻辑）。
• 取消控件的自动绑定，通过VBA手动读取和赋值，绕过Access内置的转义机制：

  ' 加载数据时
  Private Sub Form_Current()
      Me.txtRichInput.Value = Me!SQLContentField
  End Sub
  
  ' 保存数据时
  Private Sub btnSave_Click()
      Dim content As String
      content = Me.txtRichInput.Value
      ' 还原转义
      content = Replace(Replace(Replace(content, "&amp;", "&"), "&lt;", "<"), "&gt;", ">")
      CurrentDb.Execute "UPDATE YourTable SET ContentField = '" & Replace(content, "'", "''") & "' WHERE ID = " & Me!ID
  End Sub
  

注意事项 #

• 若允许用户输入任意HTML，需注意XSS风险，可添加标签过滤逻辑（比如移除<script>、<iframe>等危险标签）。
• 每种方案都需测试自动换行生成的<div>和自定义HTML（如<hr>）的存储、显示及PDF导出效果，确保兼容性。

内容的提问来源于stack exchange，提问作者mylaHouston