过滤的问题

wyl

我通过列表取值后在窗体过滤相应记录后，显示相应记录。当要浏览记录集时只能显示该记录不能实现整库浏览

是否能够浏览记录集时取消过滤

Private Sub 详细信息_Click()

'从列表中取值

    On Error GoTo Err_详细信息_Click



    Dim vntItem As Variant, strFilter As String

    For Each vntItem In Me.列表89.ItemsSelected

        ' strFIlter = strFIlter & " [编号]= '" & Me![列表89].ItemData(vntItem) & " ' "

        strFilter = strFilter & " [编号]=" & Me![列表89].ItemData(vntItem) & " "

        DoCmd.Minimize



        '将值传递给厦门市餐饮调查表窗体

        DoCmd.OpenForm "厦门市餐饮调查表窗体", , , strFilter, acFormEdit



        ' Debug.Print "itemdata:"; Me.列表3.ItemData(cntitem)

    Next

    ' End If











Exit_详细信息_Click:

    Exit Sub

Err_详细信息_Click:

    MsgBox Err.Description

    Resume Exit_详细信息_Click

End Sub

海狸先生

要显示全部，不过滤不就行了？

eyewitnes

DoCmd.OpenForm "厦门市餐饮调查表窗体", , , strFilter, acFormEdit改一改，将strFilter放在openArgs中，在“厦门市餐饮调查表窗体”open事件中加上if not isnull(me.openArgs) then me.filter = me.openArgs: me.filteron: me.requery

然后在“厦门市餐饮调查表窗体”增加一个过滤开关

[此贴子已经被作者于2005-7-3 11:44:40编辑过]