访问docmd.openform文本复杂条件

Question

下面是对我不起作用的代码：

DoCmd.OpenForm "frm8SerialsByModel", acFormDS,,"[Serial Number] like '" & Me.txtserialap & "' or like '*" & Me.txtserialap & "' or like '" & Me.txtserialap & "*' or like '*" & Me.txtserialap & "*'"

无论如何，以下内容在查询条件中都是完美的：

Like [Forms]![frm8Serials]![txtserialap] Or 
Like "*" & [Forms]![frm8Serials]![txtserialap] Or 
Like [Forms]![frm8Serials]![txtserialap] & "*" Or 
Like "*" & [Forms]![frm8Serials]![txtserialap] & "*"

所以我知道这个问题很可能是以前问过的，所以我想请你推荐一篇文章，对包含不同类型数据的字符串标准的标点符号做了适当的解释。

提前谢谢你。

Answer 1

您需要将DoCmd.OpenForm中的WhereCondition参数视为SQL中的任何WHERE子句。因此，对于每个条件，您的字段序列号都需要重复。第一个LIKE是冗余的，因为它不使用通配符，所以可以用相等的=替换

strfilter = "[Serial Number] = '" Me.txtserialap & "'" & _
            " OR [Serial Number] LIKE '*" & Me.txtserialap & "'" & _
            " OR [Serial Number] LIKE '" & Me.txtserialap & "*'" & _
            " OR [Serial Number] LIKE '*" & Me.txtserialap & "*'"

DoCmd.OpenForm "frm8SerialsByModel", acFormDS, ,strfilter

Answer 2

谢谢你韦恩·G·邓恩因此，正如您建议我不需要比较它3次，以下是我的目的，它是足够的工作: DoCmd.OpenForm "frm8SerialsByModel"，acFormDS，，“序列号喜欢'”& Me.txtserialap &“”

不过，如果您能为阅读VBA中的复杂标准提供任何资源，我将不胜感激。非常感谢。