Office中国论坛/Access中国论坛

标题: 关于窗体上实现筛选 [打印本页]
作者: huanglucy    时间: 2011-12-4 13:49
标题: 关于窗体上实现筛选
各位老师，我有个产品表，分家电类和食品类，我在窗体上设两个命令按钮，单击家电按钮时要求只显示家电类产品，单击食品按钮时要求只显示食品类产品，怎样写代码，谢谢！
作者: Henry D. Sy    时间: 2011-12-4 14:06
  1. Private Sub Command0_Click()
  2.     On Error GoTo Err_Command0_Click

  4.     Dim stDocName As String
  5.     Dim stLinkCriteria As String
  6.    
  7.     stLinkCriteria = "大类='" & Me.Command0.Caption & "'"
  8.     stDocName = ChrW(20135) & ChrW(21697)
  9.     DoCmd.OpenForm stDocName, , , stLinkCriteria

  11. Exit_Command0_Click:
  12.     Exit Sub

  14. Err_Command0_Click:
  15.     MsgBox Err.Description
  16.     Resume Exit_Command0_Click

  18. End Sub
复制代码
作者: huanglucy    时间: 2011-12-4 14:19
Henry D. Sy 发表于 2011-12-4 14:06

老师，我调试了，通不过，在我的文件上改一下发给我可以吗，非常感谢！
作者: huanglucy    时间: 2011-12-4 14:27
Henry D. Sy 发表于 2011-12-4 14:06

我调试成功了，但为何改为DoCmd.OpenQuery stDocName, , , stLinkCriteria，就出错了，我想对查询进行筛选
作者: Henry D. Sy    时间: 2011-12-4 14:31
不建议这样设计，假如有一百种大类，是不是得建立100个按钮！
建议用窗体来查询！
作者: Henry D. Sy    时间: 2011-12-4 14:32
huanglucy 发表于 2011-12-4 14:27
我调试成功了，但为何改为DoCmd.OpenQuery stDocName, , , stLinkCriteria，就出错了，我想对查询进行筛选 ...

你库中根本就没有查询，如何能够打开查询呢？
作者: huanglucy    时间: 2011-12-4 18:55
Henry D. Sy 发表于 2011-12-4 14:32
你库中根本就没有查询，如何能够打开查询呢？

我做了个查询，但还是没有调试出来，版主帮我看看好吗，谢谢！
作者: huanglucy    时间: 2011-12-4 20:12
Henry D. Sy 发表于 2011-12-4 14:32
你库中根本就没有查询，如何能够打开查询呢？

我做好了，谢谢版主！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3