在WHERE子句中使用“＆”和“ +”

目的：

为多个字段选择准备WHERE子句，但忽略未设置选择条件的任何字段。

仅适用于文本字段选择的工作 。 场景：

您有一个表（tblMember），其中包含各种人的信息。

表名称= tblMember

 Field; Type; IndexInfo 
MemberID; AutoNumber; PK
Surname; String
Forenames; String
...

您有一个窗体（frmMemberSearch），其中包含两个用于选择记录的TextBox控件（txtSurname和txtForenames）。 您希望用户能够输入他们所知道的尽可能多的信息。 这可能是全部或部分项目，其中使用了一个或两个字段。 命令按钮（cmdSearch）触发代码以准备并开始搜索。

您只是在准备WHERE子句以运行查询，尽管如果需要，可以将相同的字符串用作报表，表单或子表单的过滤器。

概念：

在字符串操作中，可以使用“＆”或“ +”连接字符串。 区别在于

STRING＆空== STRING

STRING +空==空

注意 窗体上的空控件将始终返回Null值。

用法：

下面的代码创建一个字符串（strWhere），该字符串使用两个字段中的一个或两个设置格式-取决于在表单上输入的内容。

字符串的存根仅是“（TRUE）”，并且仅当相关的TextBox字段不是Null时，才会添加任何其他部分。

为此，我们在主要元素之间使用“＆”，但在主要元素之间使用“ +”。

Private Sub cmdSearch_Click()
  Dim strWhere As String, strSQL As String
'If nothing added then "(TRUE)" will allow all records.
'If either of the TextBox fields are Null then ...
'the whole line of code they are included on will resolve to Null.
  strWhere = "(TRUE" & _
             " AND ([Forenames] Like '*" + Me.txtForenames + "*')" & _
             " AND ([Surname] Like '*" + Me.txtSurname + "*')" & _
             ")"
  'We add this into a SELECT query for the table...
  strSQL = "SELECT * " & _
           "FROM [tblMember] " & _
           "WHERE " & strWhere
  ...
End Sub

作为说明，将以下代码复制到调试器的“即时”窗口中（从Access进入Alt-F11，然后从Ctrl-G进入），然后注意到打印的字符串只是“（TRUE）”。 整个中线（在两个“＆”之间）已解析为Null-因此从结果字符串中消失了。

Debug.Print "(TRUE" & _
             " AND ([Forenames] Like '*" + Null + "*')" & _
             ")"
(TRUE)

注意 如果需要，此概念还可用于撤消SQL字符串的整个WHERE子句。 注意不要在任何结果字符串中留下多余的“ AND”。

From: https://bytes.com/topic/access/insights/762181-using-where-clause