disable controls

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

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:

Code:

---

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

---

Does this help?

vb Code:

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

Thanks Si...

it worked a treat!!

:) :)