Access VBA嵌套SQL引号冗余问题：是否有更优实现方案？

问题背景 #

现有示例表tTest，需按以下规则查找重复数据：

• 计算字段NumData：NumData = iif(WhichNum = "A", NumData1, NumData2)
• 基于NumData和TextData字段检测重复（例如ID=2和4为重复项）

由于Access存储查询会压缩SQL导致可读性极差，改用VBA编写代码生成存储查询。又因字段别名NumData无法在同一条SELECT语句中直接用于统计，故使用自定义函数vFtnInQry替代子查询实现统计逻辑。

现有问题 #

初始实现的qMakeQuery_bad遇到含引号的TextData（如text"3"）时会触发语法错误。虽然用replace()函数转义引号可解决，但replace()参数中需写12个连续引号，冗余度极高，需更简洁的实现方式。

优化方案 #

方案1：用常量封装转义字符 #

在VBA模块顶部定义常量，把转义用的双引号封装起来，后续直接调用即可：

Const DB_QUOTE As String = """""" ' 等价于SQL转义所需的两个双引号

替换逻辑简化为：

Dim escapedText As String
escapedText = Replace(originalText, """", DB_QUOTE)

方案2：利用Chr函数生成双引号 #

VBA中Chr(34)对应双引号字符，直接用该函数替代硬编码的引号，彻底避免连续引号：

Dim escapedText As String
escapedText = Replace(originalText, Chr(34), Chr(34) & Chr(34))

方案3：封装通用转义函数 #

如果需要多次处理字符串转义，可封装成通用函数提升复用性：

Function EscapeSQLString(inputStr As String) As String
    EscapeSQLString = Replace(inputStr, Chr(34), Chr(34) & Chr(34))
End Function

调用时直接传参：

Dim escapedText As String
escapedText = EscapeSQLString(originalText)

说明 #

Access SQL中字符串内的双引号需用两个连续双引号转义，以上方案均基于该规则实现，既解决了语法错误问题，又消除了冗余的连续引号写法，让VBA代码更简洁易读。

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