Public Sub LockIt(frm As Form) '© Arvin Meyer 11/1/04 ' Free use permitted if copyright left intact On Error Resume Next Dim ctl As Control For Each ctl In frm.Controls With ctl Select Case .ControlType Case acTextBox ctl.Locked = True Case acComboBox ctl.Locked = True Case acListBox ctl.Locked = True Case acCheckBox ctl.Locked = True Case acToggleButton ctl.Locked = True Case acCommandButton If ctl.Tag = 2 Then ctl.Enabled = False End If ' Case acTabCtl Case acSubform ctl.Locked = True Case acOptionGroup ctl.Locked = True Case acOptionButton ctl.Locked = True End Select End With Next ctl Set ctl = Nothing Set frm = Nothing End Sub