Ms access 使用两个文本框中的参数在列表框中显示查询

全部,

我试图创建一个搜索表单，让用户使用2个参数搜索数据。我有一个带有列表框、三个文本框和一个查找按钮的用户表单

第一个文本框是txt\U sname组合框

第二个文本框是txt\U sdate

第三个文本框是txt\U sdate1

列表框是lst_main

我在这里尝试的是让用户从组合框下拉列表中选择一个名称，并输入日期，例如2015年11月12日-2016年1月1日。然后我希望查询显示在列表框中

我设置的主表包含以下字段：

图名

日期

t\u联系人ID

t_分数

t_评论

查询将查看t_日期和t_名称，如果数据与文本框中的参数匹配，则将在列表框中显示信息。谁能给我指出正确的方向吗

我使用以下方法将数据传递到表中：

Private Sub c_Submit_Click()
Dim db As Database
Dim rec As Recordset

Set db = CurrentDb
Set rec = db.OpenRecordset("Select * from Main")

If IsNull(Me.txt_Name.Value) Or IsNull(Me.txt_Date.Value) Or           IsNull(Me.txt_Contact.Value) Then
MsgBox ("Error! Fill out all the fields!"), vbExclamation
Exit Sub
End If


rec.AddNew
rec("t_Name") = Me.txt_Name.Value
rec("t_Date") = Me.txt_Date
rec("t_ContactID") = Me.txt_Contact
rec("t_Score") = Me.txt_Score
rec("t_Comments") = Me.txt_Comments
rec.Update

Set rec = Nothing
Set db = Nothing

Me.txt_Name = Null
Me.txt_Date = Null
Me.txt_Contact = Null
Me.txt_Score = Null
Me.txt_Comments = Null

Me.Text32.Requery



MsgBox ("Record Added Successfully!")
End Sub

谢谢大家的帮助！干杯

列表框具有该属性，因此可以使用表或查询。只需根据其他文本框中的值设置行源：

Private Sub c_Submit_Click()

    Me.lst_main.RowSource = "SELECT t_Name, t_Date, t_ContactID, t_Score, t_Comments" _
                             & " FROM Main" _ 
                             & " WHERE t_Name = '" & Me.txt_sname & "'" _
                             & " AND t_Date >= #" & Me.txt_sdate & "#" _
                             & " AND t_Date <= #" & Me.txt_sdate1 & "#;"
    Me.lst_main.RowSourceType = "Table/Query"
    Me.lst_main.Requery

End Sub