Question

基本上，我需要能够根据文本框输入提取特定类别类型中所有部件的列表。我目前有一个名为＆＃34; _NextPartSearch＆＃34;的所有Catalog个数字的表单列表。例如，取目录号EDF50-00159，其中EDF50是类别类型，00159是数字本身。

使用我的文本框（名为＆＃34; NextPartValue＆＃34;），我希望能够输入EDF50并显示所有部件号（EDF50-00000到EDF50-99999）。

到目前为止我的代码如下：

Private Sub NextPartValue_AfterUpdate()

Dim strWhereCondition As String

    strWhereCondition = "[CATALOG] = '" & Me!NextPartValue & "'"
    DoCmd.OpenForm "_NextPartSearch", acFormDS, , strWhereCondition

End Sub

如果输入了整个目录号，上面的代码只会显示正确的部分，否则它不会返回任何内容。我已尝试使用Like语句，例如strWhereCondition = "[CATALOG] = '" LIKE Me!NextPartValue & "*"，但这些语句都没有奏效。任何帮助，将不胜感激！

Answer 1

将Like关键字放入strWhereCondition字符串---这样它与查询中的WHERE子句基本相同，但没有单词WHERE。并且不要同时使用=和Like标准。还包括Debug.Print，以便您可以检查代码构建的字符串。

strWhereCondition = "[CATALOG] Like '" & Me!NextPartValue & "*'"
Debug.Print strWhereCondition '<- inspect in Immediate window; Ctrl+g will take you there

打开表格，其中数字LIKE输入值

1 个答案: