五、查询窗体
查询窗体的设计
在 Microsoft Access 中，您可以在主窗体上添加三个控件：一个文本框（txtSearch）用于输入查询条件，一个查询按钮（btnSearch）执行事件命令，一个列表框子窗体（lstResults）用于显示查询结果。根据文本框（txtSearch）输入的查询条件，在点击查询按钮后，在列表框子窗体显示从数据表（ tblhpzl） 查询到的结果，包括" id、货品编号、货品名称、货品规格、货品单位、货品单价六个字段。如下图：
首先，打开您的 Access 数据库并进入设计视图。然后，从控件库中拖放一个文本框（txtSearch）控件到窗体上，并将其命名为“txtSearch”。接下来，再拖放一个按钮（btnSearch）控件到窗体上，并将其命名为“btnSearch”，并设置其“OnClick”事件为“btnSearch_Click”。最后，拖放一个列表框子窗体控件到窗体上，并将其命名为“lstResults”。并把列表框的属性做一些调整设置。
代码编写：
在 VBA 编辑器中，您可以编写以下代码来实现查询过程：
Private Sub btnSearch_Click()
' 定义一个字符串变量来存储 SQL 查询语句
Dim strSQL As String
' 构建查询语句，使用 LIKE 运算符和通配符“*”来匹配文本框中输入的查询条件
strSQL = "SELECT id, 货品编码, 货品名称, 货品规格, 货品单位, 货品单价 FROM tblhpzl WHERE 货品名称 LIKE '*" & Me.txtSearch.value & "*'"
' 将 strSQL 的值赋给列表框子窗体的 RowSource 属性
Me.lstResults.RowSource = strSQL
' 调用 Requery 方法来刷新列表框子窗体的内容
Me.lstResults.Requery
End Sub以上代码中，我们首先定义了一个字符串变量 strSQL 来存储 SQL 查询语句。然后，我们使用字符串连接运算符“&”来构建查询语句，并使用 LIKE 运算符和通配符“*”来匹配文本框（txtSearch）中输入的查询条件。最后，我们将 strSQL 的值赋给列表框子窗体的 RowSource 属性，并调用 Requery 方法来刷新列表框子窗体的内容。
运行效果
希望这些信息能够帮助到您，如果您还有其他问题，请随时告诉我。
下期，我们来学习用子报表来显示查询结果，那显示效果要比列表框美观，敬请期待。