230问答网 > 请问在access2010中如何计算窗体中有多少控件（主要是文本框和复选框）已经有值输入？

请问在access2010中如何计算窗体中有多少控件（主要是文本框和复选框）已经有值输入？

2024-12-19 08:07:12

推荐回答（1个）

回答1：

给你个思路吧。已测试，可行。
假设窗体上有个命令按钮，单击它会计算有多少控件及已有值控件的数目。代码如下：
Private Sub Command20_Click()
Dim x As Integer '用来统计有值控件的数目
Dim b As Integer '用来统计控件的数目
Dim ctl As Control
For Each ctl In Controls '遍历窗体上的每个控件
If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then '如是文本框或复选框则
b = b + 1
If Not IsNull(ctl) Then x = x + 1 '如文本框或复选框非空值，则统计X
End If
Next ctl
MsgBox "文本框和复选框共有" & b & "个，其中" & x & "个控件有值。"
End Sub