将数据表窗体改成子窗体后筛选出问题了！

紫风

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

todaynew

如果是筛选"frm费用1"中的某个子窗体，这个代码当然不行。

紫风

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

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

todaynew

紫风 发表于 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

紫风

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

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