请问：怎么使主窗体里的文本框输入条件按查询命令就在子窗体显示

any124

请问：怎么使主窗体里的文本框输入条件按查询命令就在子窗体显示？

能否帮我修改下。关于这个问题困扰了好久。
谢谢

luhao

1# any124
SOSO，多的是。这个问题已有N个人问过了。

65003764

很好啊

kangking

Private Sub Cmd2_Click()
'On Error GoTo Cmd2_Click
    Dim strwhere As String
    strwhere = ""
    If Not IsNull(Text0) Then
        strwhere = "([姓名] like '*" & Me.[Text0] & "*') "
        Me.查询1_子窗体.Form.Filter = strwhere
        Me.查询1_子窗体.Form.FilterOn = True
    Else
        Me.查询1_子窗体.Form.Filter = ""
        Me.查询1_子窗体.Form.FilterOn = fasle
    End If

End Sub

65003764

Me.查询1_子窗体.Form.Filter = strwhere
这一句提示出错了 ??? 错在哪?等待中

qmyjhj

可以参考下我这篇博客文章http://blog.sina.com.cn/s/blog_44cb3d3d0100hv8h.html

不需要编程，不过选择显示方式的时候选在新窗体打开。