0

所以下面的查询语句工作得很好。但是我需要添加一个额外的字段来检查，这可能吗？

因此，如果 FIELD1 或 FIELD2 等于 Combo254.text 中的任何值，则选择这些记录。

这是我正在运行的当前查询：

Temp = Combo254.Text

Dim strSQL As String
Dim strWhere As String
strWhere = (Chr(34) + Combo254.Text + (Chr(34)))

strSQL = "SELECT * FROM MainQuery WHERE [FIELD1] Like " & strWhere

'MsgBox (strSQL)
[Form_Main].RecordSource = strSQL
4

1 回答 1

2

AND用单词or连接每个附加条件OR。

作为旁注，如果将引号加倍，VBA 允许您在文字字符串中包含引号。我认为这比使用 Chr(34) 更具可读性。

strSQL = "SELECT * FROM MainQuery " & _
    "WHERE [FIELD1] Like """ & Combo254.Text & """ OR " & _
    "[FIELD2] Like """ & Combo254.Text & """"

在这种情况下，Access 并不关心您使用的是单引号还是双引号，因此您可以像这样重写查询：

strSQL = "SELECT * FROM MainQuery " & _
    "WHERE [FIELD1] Like '" & Combo254.Text & "' OR " & _
    "[FIELD2] Like '" & Combo254.Text & "'"
于 2013-06-20T19:22:31.730 回答