禁止修改字段为True的记录值不允许修改，如下图：

Private Sub Form_Current()
Me.AllowEdits = Not Me.禁止修改
End Sub

附   件:

点击下载附件