关于窗体上实现筛选

huanglucy

各位老师，我有个产品表，分家电类和食品类，我在窗体上设两个命令按钮，单击家电按钮时要求只显示家电类产品，单击食品按钮时要求只显示食品类产品，怎样写代码，谢谢！

Henry D. Sy

1. Private Sub Command0_Click()
   
2.     On Error GoTo Err_Command0_Click
   
3. 
   
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
   
10. 
    
11. Exit_Command0_Click:
    
12.     Exit Sub
    
13. 
    
14. Err_Command0_Click:
    
15.     MsgBox Err.Description
    
16.     Resume Exit_Command0_Click
    
17. 
    
18. End Sub
    

复制代码

huanglucy

Henry D. Sy 发表于 2011-12-4 14:06

老师，我调试了，通不过，在我的文件上改一下发给我可以吗，非常感谢！

huanglucy

Henry D. Sy 发表于 2011-12-4 14:06

我调试成功了，但为何改为DoCmd.OpenQuery stDocName, , , stLinkCriteria，就出错了，我想对查询进行筛选

Henry D. Sy

不建议这样设计，假如有一百种大类，是不是得建立100个按钮！
建议用窗体来查询！

Henry D. Sy

huanglucy 发表于 2011-12-4 14:27
我调试成功了，但为何改为DoCmd.OpenQuery stDocName, , , stLinkCriteria，就出错了，我想对查询进行筛选 ...

你库中根本就没有查询，如何能够打开查询呢？

huanglucy

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

我做了个查询，但还是没有调试出来，版主帮我看看好吗，谢谢！

huanglucy

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

我做好了，谢谢版主！