View Single Post
  #3 (permalink)  
Old September 23rd, 2005, 12:14 PM
dartcoach dartcoach is offline
Friend of Wrox
 
Join Date: Jan 2005
Location: Kansas City, Missouri, USA.
Posts: 471
Thanks: 0
Thanked 1 Time in 1 Post
Default

LoraLee,

This works:

    Dim ctl As Control
    For Each ctl In Me.Controls
       With ctl
       Select Case .ControlType
           Case acTextBox
               ctl.locked = true
       End Select
       End With
    Next

Kevin


dartcoach
Reply With Quote