将查询结果显示在子窗体

qq245009518

创建了一个窗体：有一个未绑定文本控件、一个按钮控件、一个未绑定子窗体，我在文本框输入内容，点击按钮，将包含文本框内容查询结果在子窗体以数据表的形式显示。出现错误提示“运行时错误’2467‘您输入的表达式应用了一个关闭或不存在的对象”，而且子窗体也无结果显示
按钮Click事件语句：
If Trim(Me.Text0.Value) = "" Then Child4.Form.RecordSource = "SELECT * FROM 客户信息" Else Child4.Form.RecordSource = ("SELECT * FROM 客户信息 WHERE 客户信息.企业名称 Like '" & Me.Text0.Value & "'")

附测试文档

roych

子窗体应先绑定数据源（客户信息），此外，对于你窗体代码，我稍稍优化了下，供参考：

1. Private Sub Command0_Click()
   
2. If Trim(Me.Text0.Value) = "" Then
   
3. Child4.Form.RecordSource = "客户信息"
   
4. Child4.Form.Recalc
   
5. Else
   
6. Child4.Form.RecordSource = "SELECT * FROM 客户信息 WHERE 客户信息.企业名称 Like '*" & Me.Text0.Value & "*'"
   
7. Child4.Form.Recalc
   
8. End If
   
9. End Sub

复制代码

trulyzeng

回复 roych 的帖子

THANKS A LOT

jinzhanxi

谢谢分享

qq245009518

回复 roych 的帖子

经过测试，roych版主方法十分有效，代码更加简明，非常感谢roych版主。