Office中国论坛/Access中国论坛

标题: 请问：怎么使主窗体里的文本框输入条件按查询命令就在子窗体显示 [打印本页]

作者: any124 时间: 2009-5-29 16:56
标题: 请问：怎么使主窗体里的文本框输入条件按查询命令就在子窗体显示
请问：怎么使主窗体里的文本框输入条件按查询命令就在子窗体显示？
[attach]38258[/attach]
能否帮我修改下。关于这个问题困扰了好久。
谢谢

作者: luhao 时间: 2009-5-29 18:49
1# any124
SOSO，多的是。这个问题已有N个人问过了。

作者: 65003764 时间: 2010-4-25 21:24
很好啊

作者: kangking 时间: 2010-4-26 09:58
本帖最后由 kangking 于 2010-4-26 10:00 编辑

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 时间: 2010-4-26 12:38
本帖最后由 65003764 于 2010-4-26 13:05 编辑

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

作者: qmyjhj 时间: 2010-4-26 15:07
可以参考下我这篇博客文章http://blog.sina.com.cn/s/blog_44cb3d3d0100hv8h.html

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)