访问 VBA 的 IN 函数

【问题标题】：IN Function for Access VBA访问 VBA 的 IN 函数
【发布时间】：2013-06-05 00:21:28
【问题描述】：

Access VBA 中是否有与 SQL 中的 IN 函数类似的函数？
我正在寻找类似的东西：

if StringValue IN(strA, strB, strC) Then

【问题讨论】：

【解决方案1】：

你应该可以使用Instr函数：

If Instr("," & strA & "," & strB & "," & strC & ",", "," & stringValue & ",") > 0 Then

这会在每个元素周围放置逗号以确保搜索准确。

【讨论】：

【解决方案2】：

虽然 sgedded 的回答是正确的，但我认为这是另一种更简洁的代码方式。

Select Case stringValue 
    Case strA, strB, strC
        'is true statements
End Select

【讨论】：

【解决方案3】：

我在这里回答了一个类似的问题，我使用了一个自定义帮助函数：
VBA finding if value is in values

使用此答案中的辅助函数，您可以这样做：

If FindValue(StringValue, strA, strB, strC) Then
    'value was found
Else
    'value was not found
End If

【讨论】：