Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Easy question, hopefully?
- Thread starter osx99
- Start date
Public Function DisableAllControls(ByRef iForm As Form, Optional ByVal iExcludeControl As String) As Boolean
Dim Ctl As Control
On Error Resume Next
For Each Ctl In iForm.Controls
If Ctl.Name <> iExcludeControl Then
Ctl.Enabled = False
End If
Next 'Ctl
DoEvents
End Function
Dim Ctl As Control
On Error Resume Next
For Each Ctl In iForm.Controls
If Ctl.Name <> iExcludeControl Then
Ctl.Enabled = False
End If
Next 'Ctl
DoEvents
End Function
- Status
Similar threads
- Locked
- Question