Office中国论坛/Access中国论坛

标题: 请问一个复选框的问题 [打印本页]

作者: lymin 时间: 2008-12-3 14:08
标题: 请问一个复选框的问题
请问大家一个问题，如果一个窗体上的复选框控件如果有多于一个为真时，就出现错误提示，要怎么判断呢？
[attach]33633[/attach]

作者: 雨农 时间: 2008-12-3 14:41
那你干脆做成单选好了

作者: Henry D. Sy 时间: 2008-12-3 14:44
判断为真的数量>1

作者: lymin 时间: 2008-12-3 14:45

原帖由雨农于 2008-12-3 14:41 发表
那你干脆做成单选好了

我就是要想学这个设计思路

作者: Henry D. Sy 时间: 2008-12-3 14:50

Dim intCount As Integer
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then
If ctl = True Then
intCount = intCount + 1
End If
End If
Next
MsgBox intCount

复制代码

作者: lymin 时间: 2008-12-3 16:09

原帖由 Henry D. Sy 于 2008-12-3 14:50 发表
Dim intCount As Integer
Dim ctl As Control
For Each ctl In Me.Controls
      If ctl.ControlType = acCheckBox Then
         If ctl = True Then
            intCount = intCount + 1
...

ok！！！谢谢老师！

作者: changweiren 时间: 2008-12-7 21:56
标题: 回复 5# 的帖子
收藏代码,谢谢版主.

作者: ycxchen 时间: 2008-12-15 15:28
1楼的传个例子上来让我也学习一下好吗?

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