lock all textboxes 2

[autex]

I have a memo field on a form that I want to always be editable. I want the other fields to be editable only when user presses an edit button. Is there some code that will unlock all textboxes?

 

[autex]

not clear enough of a question? I know about allowedits, but this won't work because I want one field to be editable all the time. I have a lot of fields so I was looking for an efficient way to do this.

 

[payback]

You can write a subroutine on your form that will loop through each control and change the settings for enabled and locking e.g.

if mycontrol.type = actextbox then
mycontrol.enabled = false
mycontrol.locked = true
end if

This can be run from a command button.

 

[VBslammer]

You don't necessarily have to set the Enabled property to False; doing so prevents the user from selecting and copying the text in the textbox - which may or may not be what you want. At any rate, here's a routine that you could place in the button's click() event:

Private Sub cmdToggleEdit_Click()
  Dim ctl As Control
  Dim blnLock As Boolean
  
  If cmdToggleEdit.Caption = "&Edit" Then
    cmdToggleEdit.Caption = "&Lock"
    blnLock = False
  Else
    cmdToggleEdit.Caption = "&Edit"
    blnLock = True
  End If
  
  For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
      ctl.Locked = blnLock
    End If
  Next ctl
  
End Sub

VBSlammer

Unemployed in Houston, Texas