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

Question

我设计了一个窗体，里面有一些控件需要填入相应的值，但有些控件值暂时未知，因此为空。请问如何计算有多少个控件已经有值填入？

Answer 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