Sub FlipEnabled(frmAny As Form, ctlAny As Control) Dim ctl As Control
ctlAny.Enabled = True
ctlAny.SetFocus
For Each ctl In frmAny.Controls If ctl.ControlType = acCommandButton Then If ctl.Name <> ctlAny.Name Then
ctl.Enabled = Not ctl.Enabled End If End If
Next ctl End Sub