在 VBA if 语句中，通过变量插入部分语句

Question

在 VBA 中（在 MS Access 项目中），我想定义一个 if 语句，其中部分语句存储在变量中。

为了说明我的问题，这里是一个简单的例子：

Sub Test_String_Insertion_Into_IfStatement()

   Dim strInsert As String

   strInsert = "10 > 5"  ' Or any other stuff that would return "TRUE"

   If "" & "'"strInsert"'" & "" Then
      Debug.Print "Hurray, it works!"
   Else
      Debug.Print "Sorry, my friend. Try something else..."
   End If

End Sub

现在，问题是，这不起作用。我想，诀窍是找到与号、引号、撇号和/或 Chr(34) 的正确组合。

我做了很多实验，测试了我能想象到的所有变化，但到目前为止我还没有找到一个可行的组合。我测试的大部分内容都返回“类型不匹配”错误。

现实世界的应用程序...

上面的例子相当简单。在我的实际任务中，我想插入一个更长的字符串作为 if 语句的一部分。这是我在现实世界中的一个 if 语句，最终将被替换为使用变量插入语句的大部分的东西（这是：除了正确的“If”和“Then”之外的所有内容）：

If oRs.Fields(strTitField) Like "*" & arrWCs(r).varTERM1 & "*" Then

它使用记录集的字段和用户定义的变量类型（数组）。

请注意，我想以可变方式插入的 if 语句部分本身有引号和和号！ （现实世界的 if 语句已被证明是有效的。但现在我想使用变量将其插入到我的 if 语句中。）

目的是，使用变量插入，我可以非常快速地在多个 if 语句之间切换，具体取决于整个函数的需要。）

为方便起见，我添加了一个在 if 语句中使用 & 和引号的简单示例：

Sub Test_String_Insertion_Into_IfStatement_2()

   Dim strIfClause As String
   Dim strXYZ As String

   strXYZ = "ouse"
   strInsert = "'Mouse' Like '*' & strXYZ & '*'" ' Just a guess, doesn't work

   If "" & """strInsert""" & "" Then
         'The resulting if-statement should be: 
         'If "Mouse" Like "*" & strXYZ & "*" Then '(Taken as such, this works!)
      Debug.Print "Good!"
   Else
      Debug.Print "Not good!"
   End If

End Sub

Answer 1

最后我找到了以下解决方案。正如专家贡献者所建议的那样，它使用 Eval() 方法。

Dim strTest As String
strTest = "'" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM1 & "*' And '" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM2 & "*' And '" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM3 & "*'"

If Eval(strTest) Then
'Do something
End If

• oRs 是一个记录集，基于 Access 中的一个表 数据库。
• arrudtWCs(r) 是一个用户定义类型的数组，包含元素 varTERM1、varTERM2、varTERM3 等等。
• strTitField 是一个字符串变量，保存要使用的表字段的名称。该变量不能在此处声明，因为在调用过程时它是过程参数的一部分。

Eval(strTest) 评估 strTest 字符串中定义的（一系列）条件，即具体而言，它将 arrudtWCs 数组中的值与记录集的活动行中的字段值进行比较，如果条件发现满足，采取进一步行动。

主要问题是如何正确使用撇号、引号和 & 号。