Lock record for delete (bolean)

[Gregof1976]

On current event I have some code that locking record for edition depending on the flag (bolean).I would like as well lock this line for deleting depending on the flag. Can someone give me some tip how to do this?

Private Sub Form_Current()
 
If Me.approved = True Then
    Usluga.Locked = True
 
 Else
   Usluga.Locked = False
 End If
 If Me.NewRecord Then
    Usluga.Locked = False
   Else
 
End If
End Sub

 

[Gregof1976]

I found solution. Request for help is not requested anymore

Me.AllowDeletions = False