Office中国论坛/Access中国论坛

标题: 想通过窗体上面的完成情况来筛选下子窗体表完成内容 [打印本页]

---

作者: utngrihii    时间: 2015-3-18 13:26
标题: 想通过窗体上面的完成情况来筛选下子窗体表完成内容
[attach]55931[/attach]
点选上面的完成情况,  是/ 否 后 下子窗体进行得选择只出现选择后的信息,不知如何实现.
希望有个例子可以学习一下,更希望帮我修改一下.
已上传

---

作者: access学习交流    时间: 2015-3-18 14:22
str = ""
If Me.Frame15.Value =1 Then
str = "完成=true"
ElseIf Me.Frame15.Value = 2 Then
str = "完成=false"
End If

Me.工作日清单.Form.Filter = str
Me.工作日清单.Form.FilterOn = True

---

作者: utngrihii    时间: 2015-3-18 14:24

str = ""这个是写什么,写在哪 里

---

作者: utngrihii    时间: 2015-3-18 14:26
能否帮我直接修改

---

作者: roych    时间: 2015-3-18 14:41


大概就这样吧。

1. Private Sub INPUT_Change()
   
2. Me.DISP = Me.INPUT.Text
   
3. Me.DISP.Requery
   
4. Dim tj As String
   
5. tj = Me.INPUT.Text
   
6. Dim DD As String
   
7. DD = "[日期] like '*" & tj & "*' or "
   
8. DD = DD & "[工作计划] like '*" & tj & "*'or "
   
9. DD = DD & "[主办人] like '*" & tj & "*'"
   
10. '加上下面这几句
    
11. If Me.Frame15 = 2 Then
    
12.     DD = DD & " and 完成=false"
    
13. Else
    
14.     DD = DD & " and 完成=true"
    
15. End If
    
16. '语句结束
    
17. 
    
18. Me.工作日清表.Form.Filter = DD
    
19. Me.工作日清表.Form.FilterOn = True
    
20. Me.工作日清表.Requery
    
21. 
    
22. Me.工作日清表.Form.Filter = DD
    
23. Me.工作日清表.Form.FilterOn = True
    
24. Me.工作日清表.Requery
    
25. End Sub

复制代码

顺便说句，楼主能不能换个头像呢？这头像太性感。。

---

作者: utngrihii    时间: 2015-3-18 19:59
像个头像没有问题,这个代码好你不行

---

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

Powered by Discuz! X3.3