 <p>Then you can't use a form-level setting.</p> <p>If this is constant (the fields are <strong>always</strong> locked), simply set all other controls to <code>Locked = True</code>.</p> <p>If it's dynamic, use a procedure like this:</p> <pre><code>Private Sub SetEditable(EnableEdit As Boolean) Dim ctl As Control For Each ctl In Me.Controls ' The main editable control types (add more if they occur on your form) If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or _ ctl.ControlType = acCheckBox Or ctl.ControlType = acSubform Then If ctl.Name = "MySpecialDateField" Then ' Always editable ctl.Locked = False Else ctl.Locked = Not EnableEdit ' If you want to provide a visual feedback: ' 0 = Flat (locked), 2 = Sunken (editable) ctl.SpecialEffect = IIf(EnableEdit, 2, 0) End If End If End If Next ctl End Sub </code></pre>