急求

yamo　发表于：2014-08-14 14:14:28 　

复制

Top

缪炜发表于：2014-08-14 15:18:03

if isnull(me.a) or isnull(me.b) or isnull(me.c) or isnull(me.d) then
me. 判断值文本框="open"

end if
if not isnull(me.a) and not isnull(me.b) and not isnull(me.c) and not isnull(me.d) then
me. 判断值文本框="over"

end if

Top

yamo 发表于：2014-08-14 17:05:57

老师这样写的代码不管A B C D 是不是空。。都自动识别为over。。

Top

cspa 发表于：2014-08-14 22:48:12

Dim ctl As Control
k = "abcd"
Me.判断值文本 = ""
For Each ctl In Me.Controls
    If ctl.ControlType = 109 Then
        For n = 1 To 4
            If ctl.Name = Mid(k, n, 1) And IsNull(ctl.Value) = True Then
                Me.判断值文本 = "open"
           End If
       Next
    End If
    If Nz(Me.判断值文本, "") <> "open" Then
        Me.判断值文本 = "over"
    End If
Next

Top

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

Access交流中心

急求