Lock Records

[xeb]

Is there a way to lock a record after it's been accessed once so it can't be again?

 

[Remou]

Hi
The only way I can think of is through a form and a 'lock' field - not a true lock:

Private Sub Form_AfterUpdate()
    Me!LockedForAccess = True 'Logical Field
End Sub

Private Sub Form_Current()
    If Me!LockedForAccess Then 'Logical Field
        Me.AllowEdits = False
        MsgBox "This record cannot be edited."
    Else
        Me.AllowEdits = True
    End If
End Sub

Might be of some use.