访问 vba 代码以使用 html 代码的文本更新字段

Question

我已经编写了一个代码，该代码可以生成文本并通过 msgbox 显示该 txt。 现在我也想要这个 txt 在表格中，因为我需要其他人复制这个 txt 并将其粘贴到其他地方。

在表格中，我为德语 txt 创建了一个备忘录字段 txt_GER。

在我写的代码中：

DoCmd.RunSQL ("UPDATE Table SET txt_GER=" & txt & " WHERE ID=" & rs.Fields("Id"))

当我尝试运行此代码时，我收到以下消息： 运行时错误 3075： 查询表达式中的语法错误（缺少运算符）

<B>xxx</B><ul class="yyy"><li>zzz<li>

我想要这个包含 html 代码的 txt 到这个字段中。

有什么建议吗？

Answer 1

改用参数，例如：

With CurrentDb.CreateQueryDef("", "update Table set txt_GER=@txt where ID=@id")
    .Parameters(0) = txt
    .Parameters(1) = rs.Fields("Id")
    .Execute
End With

使用您当前的代码，txt 变量保存的值中存在的字符串分隔符会过早终止 SQL 语句。