disable controls

[holly]

Hi

I have this code in vba which I would Like to use to disable all textbox controls
on my form but it does not work...can anyone help?

Set frmcurrent = Form_frm_EditQuotes
For Each ctlContol In frmcurrent.Controls
If frmcurrent.Controls = acTextBox Then
Form_frm_EditQuotes.AllowEdits = False
End If
Next

thanks

[si_the_geek]

Thread moved to Office Development (and VBA) forum

I'm not sure exactly how this should be done in VBA, but here is your code with the 'obvious' errors corrected:

Set frmcurrent = Form_frm_EditQuotes
For Each ctlContol In frmcurrent.Controls
  If TypeOf ctlContol Is acTextBox Then
    ctlContol.AllowEdits = False
  End If
Next

[Siddharth Rout]

Does this help?

Private Sub CommandButton1_Click()
    Dim cCont As Control
 
    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" Then
            'Disable Control
            cCont.Object.Enabled = False
        End If
    Next cCont
 
End Sub

[holly]

Thanks Si...

it worked a treat!!