如何把一条记录设置为只读？

sdn193551

  在表或窗体中输入数据记录的时候，一不小心会改动其他记录。因此，在数据输入之前希望把已有记录设置为只读，起到保护数据的作用。
    请问各位高手，如何把一条记录设置为只读？
    请指教！

fnsmydyang

Private Sub Form_Current()
Me.AllowEdits = Me.NewRecord
End Sub

sdn193551

谢谢fnsmydyang的指教！您提供的事件过程，解决了在输入新记录的时候对已有记录的保护。我试过了，是有效的。
    有时发生这样一种情况，在录入记录的过程中，又想要更改已有的某一条记录，怎么办？我在您提供的事件过程的基础上，做了一些探索。在表中增加一列逻辑型字段“标记”，它取值1该记录可以更改：
Private Sub Form_Current()
If Me.标记.Value = 0 Then
   Me.AllowEdits = 0
Else
   Me.AllowEdits = 1
End If
End Sub
    接下来，增加一过程来更改“标记”的值：
Private Sub 标记_DblClick(Cancel As Integer)
If Me.标记.Value = 0 Then
    Me.标记.Value = 1
Else
    Me.标记.Value = 0
End If
End Sub
    对此，我试过了，也是有效的。
请教高手，是否有更好的方法？
我还要请教一个问题，上面 Private Sub 标记_DblClick(Cancel As Integer)一句的参数Cancel As Integer是自动加的，它是什么意思？

lovelaceliu

强大，谢谢，学习中

miracle-y

看看