Locking a form

[UT227]

I'm trying to lock a form. I have this programmed into it:
Private Sub Form_Current()
Dim Ctl As Control

For Each Ctl In Me
If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then
Ctl.Locked = True


Ctl.BackColor = RGB(200, 200, 200)
End If
Next

End Sub

It works great to lock the form as soon as it is opened. I have a yes/no field (FormLocked) that I want to control if it locks or not. How I'm sure that it will require an if statement. I'm having a problem writing the if statement to say that if I have FormLocked as true, I want the code to run, but if it FormLocked is False, I want the form not locked.

[June7]

Consider:

Ctl.Locked = Me!FormLocked

You aren't locking the form, you are locking controls. The result may be the same but if you want to prevent all data entry/edit, could set the form AllowEdits, AllowAdditions, AllowDeletions properties to No.

Is the form in Single View?

Instead of VBA, consider using Conditional Formatting to set control Enabled and BackColor properties. This really is the only way to accomplish what you want for Continuous or Datasheet view form.

[UT227]

I'm fine with just locking the controls. I'm new at VBA. It's a little confusing, but it seems to be a really good way to get things done. There is no way in VBA to say that if a field [FormsLocked] is true, to run the code that I wrote already? And if the field [FormLocked] is false to not run that code? I thought VBA would do that.

[June7]

Yes.

If Me!FormLocked Then
   For Each Ctl In Me
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then
            Ctl.Locked = True
            Ctl.BackColor = RGB(200, 200, 200)
        End If
    Next
End If

Please put code between CODE tags to retain indentation and readability.

[UT227]

That gave me other errors. It seemed to conflict with the other codes in the database.

[June7]

What errors? What other codes?

By CODE tags I meant in the forum post.