求一段锁定记录的代码

deeder　发表于：2009-11-06 00:32:07 　

复制

窗体中，如果某条记录的其中一个字段的值为"0"，该记录被锁定，不能编辑，也不能删除。谢谢各位老大，小生这厢有礼

Top

大肚秃秃发表于：2009-11-06 08:16:15

IF Me.Text10=0 Then

Me.Text10.Locked = True

End Sub

Top

deeder 发表于：2009-11-06 08:45:18

这个是不是只能锁定单元格？我说的是锁定整条记录

Top

andymark 发表于：2009-11-06 09:32:35

Private Sub Form_Current()
If Me.A = 0 Then
   Me.AllowEdits = False '不允许编辑当前记录

   Me.AllowDeletions = False '不允许删除当前记录
   Else
   Me.AllowEdits = True

   Me.AllowDeletions = True

End If
End Sub

Top

deeder 发表于：2009-11-06 13:40:02

谢谢andymark版主，问题解决了!

Top

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

Access交流中心

求一段锁定记录的代码