Office中国论坛/Access中国论坛

标题: 将数据表窗体改成子窗体后筛选出问题了！ [打印本页]

作者: 紫风 时间: 2011-7-22 13:49
标题: 将数据表窗体改成子窗体后筛选出问题了！
今天将原来的窗体（数据表视图）更改成子窗体后，筛选不到了……
原来在frm作业里，[工作号] 双击的代码如下：
Private Sub 工作号_DblClick(Cancel As Integer)
Dim strFilter As String
strFilter = "[工作号]=" & "'" & Me![工作号] & "'"
DoCmd.OpenForm "frm费用1", acFormDS, , strFilter
End Sub
以上是没改子窗体前可以筛选的，可是当frm费用1改成子窗体后，这个筛选就没用了，请问这个筛选要怎么做呢？

作者: todaynew 时间: 2011-7-22 15:06
如果是筛选"frm费用1"中的某个子窗体，这个代码当然不行。

作者: 紫风 时间: 2011-7-22 15:27

todaynew 发表于 2011-7-22 15:06
如果是筛选"frm费用1"中的某个子窗体，这个代码当然不行。

请问版主，那代码该怎么写呢？
麻烦教我一下，谢谢！！

作者: todaynew 时间: 2011-7-22 16:00

紫风发表于 2011-7-22 15:27
请问版主，那代码该怎么写呢？
麻烦教我一下，谢谢！！

1、用docmd.openform的第7个参数传递筛选字符串：
DoCmd.OpenForm "frm费用1",,,,,,strfilter

2、在【frm费用1】窗体的加载事件中写：
me.子窗体.form.filter=me.OpenArgs
me.子窗体.form.filteron=true

作者: 紫风 时间: 2011-7-23 13:31

todaynew 发表于 2011-7-22 16:00
1、用docmd.openform的第7个参数传递筛选字符串：
DoCmd.OpenForm "frm费用1",,,,,,strfilter

成功了，谢谢版主帮忙！！

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