求VBA代码

yyjlili

窗体中有四个字段(A、B、C、D),如果D字段是null, B、C字段就不能被编辑，如果D字段非null，B、C字段就可以被编辑，要如何写啊？ 谢谢

红尘如烟

Private Sub Form_Current()
If IsNull(D) Then
    B.Locked=True
    C.Locked=True
Else
    B.Locked=False
    C.Locked=False
End If
End Sub

yyjlili

呵呵,谢了

yyjlili

只是逻辑反了
If IsNull(D) Then
    B.Locked=False
    C.Locked=False
    Else
    B.Locked=True
    C.Locked=True
End If
End Sub

再次感谢 红尘如烟

tz-chf

逻辑判断上还不完整