Office中国论坛/Access中国论坛

标题: 求一个清楚文本框、组合框的代码 [打印本页]

---

作者: 小姜    时间: 2016-3-25 10:05
标题: 求一个清楚文本框、组合框的代码
如题，用刘小军老师的代码，发现在2010中不能用，我做的是含有子窗体的查询，现在想清楚文本框和组合框里的值

1. Private Sub cmd清除_Click()
   
2. 
   
3.     On Error Resume Next
   
4.     Dim Ctl As Control
   
5.    
   
6.     For Each Ctl In Me.Controls
   
7.         Select Case Ctl.ControlType
   
8.         Case acCheckBox
   
9.             Ctl.Value = False
   
10.         Case Else
    
11.             Ctl.Value = Null
    
12.         End Select
    
13.     Next
    
14.     '取消子窗体的筛选
    
15.     Me.市里报表查询子窗体.Form.Filter = ""
    
16.     Me.市里报表查询子窗体.Form.FilterOn = False
    
17.    
    
18.     '在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()
    
19.     Call CheckSubformCount
    
20. 
    
21. Exit_cmd清除_Click:
    
22.     Exit Sub
    
23. 
    
24. Err_cmd清除_Click:
    
25.     MsgBox Err.Description
    
26.     Resume Exit_cmd清除_Click
    
27.    
    
28. End Sub

复制代码

。ps：窗体里有一个count函数来计数

---

作者: tmtony    时间: 2016-3-25 10:12
不太明白你想要实现什么功能，
上面的代码是判断是否 复选框 acCheckBox 如果是，则设置它的值为 不勾选

---

作者: 小姜    时间: 2016-3-25 10:24

tmtony 发表于 2016-3-25 10:12
不太明白你想要实现什么功能，
上面的代码是判断是否 复选框 acCheckBox 如果是，则设置它的值为 不勾选

老师您好，谢谢您的回答。是这样的，我用的是刘小军老师access2003的查询实例。现在想用他的代码做个清除按钮，但是2003的代码好像不用用在2010中了。我的设计和他的一模一样，除了Me.存书查询子窗体的名称。

1. Private Sub cmd清除_Click()
   
2. On Error GoTo Err_cmd清除_Click
   
3. '刘小军(Alex) 2003-5-22
   
4. '这里将使用FOR EACH CONTROL的方法来清除控件的值
   
5. '这在控件比较多的时候非常有用。
   
6. '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
   
7. 
   
8.     Dim ctl As Control
   
9.    
   
10.     For Each ctl In Me.Controls
    
11.    
    
12.         '根据ctl的控件类型来选择
    
13.         Select Case ctl.ControlType
    
14.             Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)
    
15.                 If ctl.Locked = False Then ctl.Value = Null
    
16.                
    
17.             Case acComboBox '是组合框，也要清空
    
18.                 ctl.Value = Null
    
19.             '其它类型的控件不处理
    
20.         
    
21.         End Select
    
22.     Next
    
23.    
    
24.     '取消子窗体的筛选
    
25.     Me.存书查询子窗体.Form.Filter = ""
    
26.     Me.存书查询子窗体.Form.FilterOn = False
    
27.    
    
28.     '在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()
    
29.     Call CheckSubformCount
    
30. 
    
31. Exit_cmd清除_Click:
    
32.     Exit Sub
    
33. 
    
34. Err_cmd清除_Click:
    
35.     MsgBox Err.Description
    
36.     Resume Exit_cmd清除_Click
    
37.    
    
38. End Sub

复制代码

---

作者: roych    时间: 2016-3-25 11:32
Private Sub cmd清除_Click()

    On Error Resume Next
    Dim Ctl As Control
   
    For Each Ctl In Me.Controls
'其实，如果类型不多的话，用if挺好的；如果较多则考虑用select。用null出错的时候，不妨改为空字符串。
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then
            Ctl.Value = ""
        End If
    Next
    '取消子窗体的筛选
    Me.市里报表查询子窗体.Form.Filter = ""
    Me.市里报表查询子窗体.Form.FilterOn = False
   
    '在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()
    Call CheckSubformCount

Exit_cmd清除_Click:
    Exit Sub

Err_cmd清除_Click:
    MsgBox Err.Description
    Resume Exit_cmd清除_Click
   
End Sub

---

作者: 小姜    时间: 2016-3-25 14:43

roych 发表于 2016-3-25 11:32
Private Sub cmd清除_Click()

    On Error Resume Next

谢谢大神的回复，按照您的代码，结果查询又出现问题了提示多余的）在表达是....中。。有没有简单的代码。如ME.年龄=null  ，然后也可以清除子窗体的查询的。

---

作者: 小姜    时间: 2016-3-25 15:05

roych 发表于 2016-3-25 11:32
Private Sub cmd清除_Click()

    On Error Resume Next

1. Private Sub cmd查询_Click()
   
2. On Error GoTo Err_cmd查询_Click
   
3. 
   
4.     Dim strWhere As String  '定义条件字符串
   
5.    
   
6.     strWhere = "" '设定初始值－空字符串
   
7.     大神，这是我的查询代码
   
8.     '判断【书名】条件是否有输入的值
   
9.     If Not IsNull(Me.第一学历) Then
   
10.         '有输入
    
11.         strWhere = strWhere & "([第一学历] like '*" & Me.第一学历 & "*') AND "
    
12.     End If
    
13.    
    
14.     '判断【类别】条件是否有输入的值
    
15.     If Not IsNull(Me.专业所属类别) Then
    
16.         '有输入
    
17.         strWhere = strWhere & "([专业所属类别] like '" & Me.专业所属类别 & "') AND "
    
18.     End If
    
19. 
    
20.     '判断【作者】条件是否有输入的值
    
21.     If Not IsNull(Me.政治面貌) Then
    
22.         '有输入
    
23.         strWhere = strWhere & "([政治面貌] like '*" & Me.政治面貌 & "*') AND "
    
24.     End If
    
25. 
    
26.     '判断【出版社】条件是否有输入的值
    
27.     If Not IsNull(Me.原档案所在省份) Then
    
28.         '有输入
    
29.         strWhere = strWhere & "([原档案所在省份] like '" & Me.原档案所在省份 & "') AND "
    
30.     End If
    
31.    
    
32.     If Not IsNull(Me.原档案所在单位性质) Then
    
33.         '有输入
    
34.         strWhere = strWhere & "([原档案所在单位性质] like '*" & Me.原档案所在单位性质 & "*') AND "
    
35.     End If
    
36.    
    
37.     If Not IsNull(Me.档案状态) Then
    
38.         '有输入
    
39.         strWhere = strWhere & "([档案状态] like '*" & Me.档案状态 & "*') AND "
    
40.     End If
    
41.    
    
42.     If Not IsNull(Me.职称等级) Then
    
43.         '有输入
    
44.         strWhere = strWhere & "([职称等级] like '*" & Me.职称等级 & "*') AND "
    
45.     End If
    
46.    
    
47.     If Not IsNull(Me.职称所属类别) Then
    
48.         '有输入
    
49.         strWhere = strWhere & "([职称所属类别] like '*" & Me.职称所属类别 & "*') AND "
    
50.     End If
    
51.     If Not IsNull(Me.档案转出所在省份) Then
    
52.         '有输入
    
53.         strWhere = strWhere & "([档案转出所在省份] like '*" & Me.档案转出所在省份 & "*') AND "
    
54.     End If
    
55.     If Not IsNull(Me.档案转出单位性质) Then
    
56.         '有输入
    
57.         strWhere = strWhere & "([档案转出单位性质] like '*" & Me.档案转出单位性质 & "*') AND "
    
58.     End If
    
59.    
    
60. 
    
61.     '判断【单价】条件是否有输入的值，由于有【单价开始】【单价截止】两个文本框
    
62.     '所以要分开来考虑
    
63.     If Not IsNull(Me.年龄开始) Then
    
64.         '【单价开始】有输入
    
65.         strWhere = strWhere & "([年龄] >= " & Me.年龄开始 & ") AND "
    
66.     End If
    
67.     If Not IsNull(Me.年龄截止) Then
    
68.         '【单价截止】有输入
    
69.         strWhere = strWhere & "([年龄] <= " & Me.年龄截止 & ") AND "
    
70.     End If
    
71.    
    
72.    
    
73.     '判断【进书日期】条件是否有输入的值，由于有【进书日期开始】【进书日期截止】两个文本框
    
74.     '所以要分开来考虑
    
75.     If Not IsNull(Me.毕业时间开始) Then
    
76.         '【进书日期开始】有输入
    
77.         strWhere = strWhere & "([毕业时间] >= #" & Format(Me.毕业时间开始, "yyyy-mm-dd") & "#) AND "
    
78.     End If
    
79.     If Not IsNull(Me.毕业时间截止) Then
    
80.         '【进书日期截止】有输入
    
81.         strWhere = strWhere & "([毕业时间] <= #" & Format(Me.毕业时间截止, "yyyy-mm-dd") & "#) AND "
    
82.     End If
    
83.      If Not IsNull(Me.接收时间开始) Then
    
84.         '【进书日期开始】有输入
    
85.         strWhere = strWhere & "([接收时间] >= #" & Format(Me.接收时间开始, "yyyy-mm-dd") & "#) AND "
    
86.     End If
    
87.     If Not IsNull(Me.接收时间截止) Then
    
88.         '【进书日期截止】有输入
    
89.         strWhere = strWhere & "([接收时间] <= #" & Format(Me.接收时间截止, "yyyy-mm-dd") & "#) AND "
    
90.     End If
    
91.      If Not IsNull(Me.职称开始) Then
    
92.         '【进书日期开始】有输入
    
93.         strWhere = strWhere & "([职称获得时间] >= #" & Format(Me.职称开始, "yyyy-mm-dd") & "#) AND "
    
94.     End If
    
95.     If Not IsNull(Me.职称截止) Then
    
96.         '【进书日期截止】有输入
    
97.         strWhere = strWhere & "([职称获得时间] <= #" & Format(Me.职称截止, "yyyy-mm-dd") & "#) AND "
    
98.     End If
    
99.      If Not IsNull(Me.转出开始) Then
    
100.         '【进书日期开始】有输入
     
101.         strWhere = strWhere & "([转出时间] >= #" & Format(Me.转出开始, "yyyy-mm-dd") & "#) AND "
     
102.     End If
     
103.     If Not IsNull(Me.转出截止) Then
     
104.         '【进书日期截止】有输入
     
105.         strWhere = strWhere & "([转出时间] <= #" & Format(Me.转出截止, "yyyy-mm-dd") & "#) AND "
     
106.     End If
     
107.      
     
108.    
     
109.    
     
110.     '如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，
     
111.     '要用LEFT函数截掉这5个字符。
     
112.     If Len(strWhere) > 0 Then
     
113.         '有输入条件
     
114.         strWhere = Left(strWhere, Len(strWhere) - 5)
     
115.     End If
     
116.    
     
117.     '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
     
118.     Debug.Print strWhere
     
119.    
     
120.     '让子窗体应用窗体查询
     
121.     Me.市里报表查询子窗体.Form.Filter = strWhere
     
122.     Me.市里报表查询子窗体.Form.FilterOn = True
     
123.    
     
124.     '在子窗体筛选后要运行一下自编子程序CheckSubformCount()
     
125.     Call CheckSubformCount
     
126. 
     
127. 
     
128. Exit_cmd查询_Click:
     
129.     Exit Sub
     
130. 
     
131. Err_cmd查询_Click:
     
132.     MsgBox Err.Description
     
133.     Resume Exit_cmd查询_Click
     
134.    
     
135. End Sub

复制代码

---

作者: roych    时间: 2016-3-25 16:17

小姜 发表于 2016-3-25 15:05

1、我是依照你的代码修改的。如果有问题，估计是子函数CheckSubformCount的问题。很遗憾，没看到源码。
2、关于你后面贴的这部分代码，从代码上没看到有太大问题。然而，还请留意系统日期设置是否属于长日期设置，例如 "2016-3-25 16:11:20 星期五"。一般含有星期的日期，很容易出问题。
3、在点击“查询”按钮后，可以alt+F11，ctrl+G查看SQL语句，如果不知道有没有问题的话，可以贴上来大家讨论。
4、如果仍然无法解决，请上传附件。

---

作者: 小姜    时间: 2016-3-28 10:58

roych 发表于 2016-3-25 16:17
1、我是依照你的代码修改的。如果有问题，估计是子函数CheckSubformCount的问题。很遗憾，没看到源码。
...

谢谢大神，问题已解决，我把空值换成null就成功了。不知道怎么打赏，设置最佳答案，谢谢您，祝您生活愉快。

---

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

Powered by Discuz! X3.3