如何控制输入某个字段后，整行数据就修改不了。

pwj2009

现窗体中有字段A B C D 。属性是可编辑。我要设置当D不为空的时候，ABC都不可以修改，
为空的时候就可以修改ABC,要如何控制？

ynjxw

用成为当前事件

pwj2009

成为当前事件。能说下具体的操作吗？谢谢！

ynjxw

Private Sub Form_Current()
if len(nz(me.D))=0 then
me.a.locked=false
me.b.locked=false
me.c.locked=false
else
me.a.locked=true
me.b.locked=true
me.c.locked=true
end if
End Sub
我这个是最笨的办法了。

pwj2009

还是不行。！！这个办法。我测试了一下不行！郁闷啊

pwj2009

搞错了点东西，代码是可行的。谢谢！不过这方法有点麻烦。要是我有N个字段不是要加到晕！！

zyp

用"有脏数据时"事件:
Private Sub Form_Dirty(Cancel As Integer)
    If isnull(Me.D)=false Then
        Cancel = True
        MsgBox "不可以更改", vbCritical
    End If
End Sub

zww3008

Private Sub Form_Current()
    Me.AllowEdits=IsNull(Me.D)
end if

chaosheng

beforeupdate事件中判断D非空即撤消修改