这样写什么为作用?

真主

Private Sub 出货确认_AfterUpdate()

If [出货确认] = -1 Then

Me.客户代号.Locked = False

Me.客户.Locked = False

Else

Me.客户代号.Locked = True

Me.客户.Locked = True

End If

End Sub

hi-wzj

若已出货，则客户代码名称不能被编辑。