子窗体的记录数不断变化，用什么方法捕捉这个变化的记录集？

zyz218

'多条件交叉查询
Private Sub cmderq_Click()
On Error GoTo Err_cmderq_Click

    Dim strwhere As String
    strwhere = ""
   
    If Not IsNull(Me.Text1) Then
        strwhere = strwhere & "([CodeNo] like '" & Me.Text1 & "') AND "
    End If
    If Not IsNull(Me.Text2) Then
        strwhere = strwhere & "([Production] like '" & Me.Text2 & "') AND "
    End If
    If Not IsNull(Me.Text3) Then
        strwhere = strwhere & "([LineName] like '" & Me.Text3 & "') AND "
    End If
    If Len(strwhere) > 0 Then
        strwhere = Left(strwhere, Len(strwhere) - 5)
    End If
   
    Me.Production_Sub.Form.Filter = strwhere
    Me.Production_Sub.Form.FilterOn = True


Exit_cmderq_Click:
    Exit Sub

Err_cmderq_Click:
    MsgBox Err.Description
    Resume Exit_cmderq_Click
   
End Sub

'清除条件，回到原始状
Private Sub cmdcls_Click()
On Error GoTo Err_cmdcls_Click
   
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox
                If ctl.Locked = False Then
                ctl.Value = Null
            Case acComboBox
                ctl.Value = Null
            Case acCheckBox
                ctl.Value = Null
        End Select
    Next
    Me.Production_Sub.Form.Filter = ""
    Me.Production_Sub.Form.FilterOn = False

Exit_cmdcls_Click:
    Exit Sub

Err_cmdcls_Click:
    MsgBox Err.Description
    Resume Exit_cmdcls_Click
   
End Sub

'预览特定的报表
Private Sub cmdrep_Click()
On Error GoTo Err_cmdrep_Click

    Dim stDocName, strwhere As String

    stDocName = "roduction"
    strwhere = Me.Production_Sub.Form.Filter

    DoCmd.OpenReport stDocName, acPreview, , strwhere
   
Exit_cmdrep_Click:
    Exit Sub

Err_cmdrep_Click:
    MsgBox Err.Description
    Resume Exit_cmdrep_Click
   
End Sub

以上为刘小军做的东东，好像也适合楼主的例子，在下认为以上为一个精典的模板。

nixi

hao

li0533

学习了

longrange

练习中。。

白河寒秋

在ADP中如何使用呢？ADP中一般将查询条件字符窜直接作为子窗体的数据源的，不涉及到窗体筛选，朋友，帮帮忙呀！

rjacky

6楼的例子早就能满足你要求，不涉及到窗体筛选不是更简单么？
将 DoCmd.OpenReport "rpt", acViewPreview, , Me.Child3.Form.Filter改成DoCmd.OpenReport "rpt", acViewPreview

zoxj

不是很明白啊.

白河寒秋

rijacky朋友，按你的做法，预览的是全部记录，并不是子窗体中的记录！

garyshang

终于找到了答案

nxjswt

学习