sql - 访问 VBA 的 IN 函数

Question

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

if StringValue IN(strA, strB, strC) Then

Answer 1

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

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

http://msdn.microsoft.com/en-us/library/gg278665(v=office.14).aspx

Answer 2

您应该能够使用该Instr功能：

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

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

http://office.microsoft.com/en-us/access-help/instr-function-HA001228857.aspx

Answer 3

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

使用此答案中的辅助函数，您可以执行以下操作：

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