Office中国论坛/Access中国论坛

标题: 过滤的问题 [打印本页]

作者: wyl 时间: 2005-7-3 18:44
标题: 过滤的问题
我通过列表取值后在窗体过滤相应记录后，显示相应记录。当要浏览记录集时只能显示该记录不能实现整库浏览

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

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

作者: 海狸先生 时间: 2005-7-3 19:31
要显示全部，不过滤不就行了？

作者: eyewitnes 时间: 2005-7-3 19:43
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编辑过]

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