access窗体中查询按钮代码请教！！

abcdef78

窗体中查询按钮代码请教！！
http://tg1a135.mail.163.com/netf ... QU0M0L%2b9RBvdQAAsM
以上连接为该暂定数据库的连接！！！   
    小弟要负责设计一个水稻机具的查询系统，要求可以按企业类型，机具类型及省份查询。现阶段正在设计按企业查询的窗体。窗体的设置如附件。从组合框中选择企业，通过按查询按钮，把结果显示到窗体上！关于查询按钮的代码，请教个位高手帮忙一下！无限感激！！

Private Sub cmd企业查询_Click()
On Error GoTo Err_cmd企业查询_Click
   Dim strWhere As String
   strWhere = ""
If Not IsNull(Me.企业) Then
    strWhere = strWhere & "select * from 企业查询 where 生产企业 Like " & " '%" & Me.企业 & "%'"""
End If
   Me.企业子窗体.Form.Filter = strWhere
Me.企业子窗体.Form.FilterOn = True
Exit_cmd企业查询_Click:
    Exit Sub
Err_cmd企业查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd企业查询_Click
End Sub
以上为现阶段查询按钮的代码！

xbcai

我也是一菜鸟，提两点看法。
1、没必要用主窗体和子窗体，只要用一个窗体就够了。这样编程要简单得多。
2、窗体筛选的语句错了，你那样写是窗体数据来源的语句。看一下access帮助就明白了。