how to lock all controls in the form at once 1

[kosala1981]

how to lock set of controls in a form with out specifying one by one. i tried

a for loop. but it didnt work. i couldn't get the Locked property of the

controls.

here is my code:

For x = 0 To Me.Count - 1
If TypeOf Me.Controls(x) Is TextBox Then
Me.Controls(x).Locked = True
ElseIf TypeOf Me.Controls(x) Is ComboBox Then
Me.Controls(x).Locked = True
End If
Next x

the above code gives an error.

how to lock all controls in the form at once. answer would be really

appreciated.

 

[danvlas]

Dim ctr As Control

For Each ctr in Me.Controls
   Select Case ctr.ControlType
      Case acTextBox, acComboBox
         ctr.Locked = True
   End Select
Next

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html