请问一个复选框的问题

lymin · 发表于 2008-12-3 14:08:57

请问大家一个问题，如果一个窗体上的复选框控件如果有多于一个为真时，就出现错误提示，要怎么判断呢？

雨农 · 发表于 2008-12-3 14:41:46

那你干脆做成单选好了

Henry D. Sy · 发表于 2008-12-3 14:44:33

判断为真的数量>1

lymin · 发表于 2008-12-3 14:45:05

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

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

Henry D. Sy · 发表于 2008-12-3 14:50:04

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:57

原帖由 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:38

收藏代码,谢谢版主.

ycxchen · 发表于 2008-12-15 15:28:34

1楼的传个例子上来让我也学习一下好吗?

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 请问一个复选框的问题

本帖子中包含更多资源

回复 5# 的帖子

群介绍
主题无相 (随机显示版	同地区群块其他地区)