Lock record if field is "Yes"

[jimjaix]

Hi, I have a form for user to input data. And also have a field called "Complete?" I want create some vba code that will lock that record IF the field Complete? is a Yes. And then give a message.

 

[pbaldy]

Use the current event of the form, test the value of that field with an If/Then/Else, and set AllowEdits to True or False appropriately.

 

[jimjaix]

Can you give me an example? I am new to access and not sure how things work.

 

[pbaldy]

http://www.access-programmers.co.uk/forums/showthread.php?t=163908

 

[jimjaix]

Hi I use the following code and I am getting "Compile error: Method or data member not found" pointing to Private Sub Form_Current()

Private Sub Form_Current()
If Me.Completed = "Yes" Then
  Me.AllowEdits = False
Else
  Me.AllowEdits = True
End If
End Sub

http://www.access-programmers.co.uk/forums/showthread.php?t=163908

 

[jimjaix]

Disregard my previous message, the name didn't match. Changed the name and it works

 

[jimjaix]

Hi, I am using the following code where Completed is a YES/NO, I want to change the following code to Yes/No instead IsNull. How do I do that?

If IsNull(Me.Completed) Then
Me.AllowEdits = True
Me.AllowDeletions = True
Else
Me.AllowEdits = False
Me.AllowDeletions = False
End If

http://www.access-programmers.co.uk/forums/showthread.php?t=163908

 

[pbaldy]

Try

If Me.Completed = True Then