访问2013 VBA代码以检查查询中是否存在值

我有一个带有文本框和子表单的应用程序。子窗体显示查询的结果。我希望能够在文本框中键入一个值，并查看该值是否存在于查询的某个列中

然后我想把它放到IF语句中

If
    txtbox1.text matches value in query
    then run regular routine.
Else
    msgbox"This serial number does not exist in this query."
End If

---

这取决于结果的存储方式。您说它位于子窗体中，但这并不能确切解释它是如何存储的

例如，如果执行查询并将其转储到子窗体上的标签中，则可以使用instr检查标签标题

If instr(label1.caption, txtbox1.text) > 0 then
    then run regular routine.
Else
    msgbox"This serial number does not exist in this query."
End If

如果将查询拉入ADODB记录集中。你可以使用过滤器

rs.filter = ""
rs.filter = "FieldName=" & textbox1.text 'For numeric
rs.filter = "FieldName='" & textbox1.text & "'" 'For alpha numeric

If rs.Recordcount > 1 then
    then run regular routine.
Else
    msgbox"This serial number does not exist in this query."
End If    

---

查询结果存储在什么位置？唱片集？标签？数组？这是一个select查询，子窗体只是用文本框和按钮在窗体上显示结果。因此，数据不会存储在任何地方。重新运行查询后，结果将更改，从而导致子窗体重新查询。