在access中请问如何计算有多少个控件已经有值填入

scp501　发表于：2013-05-03 21:26:03 　

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

竹笛发表于：2013-05-03 21:28:12

判断控件（如文本框、组合框等）是否为空值可以用：

if Is Null(me.控件名称) or len(me.控件名称)=0then

msgbox "为空值"

end if

煮江品茶发表于：2013-05-04 15:03:45

function NullCount(byval frm as form) as long

Dim ctrls As Controls
Dim ctrl As Control

Dim i as long
Set ctrls = frm.Controls

    i=0
    For Each ctrl In ctrls
        If ctrl.ControlType = acComboBox or ctrl.ControlType = acTextBox Then

            if isnull(ctrl.value) then  i=i+1
        End If
    Next

NullCount=i

End Function

总记录：2篇页次：1/1 9 1 :

Access交流中心