Collections problem - Resolved!!!

[rudvs2]

hi all I cant quite figure out what i have done wrong with the following code............... anybody who can point out where i have messed up would be appreciated

Private Sub clrTxtBoxes()
Dim frm As Form
Dim ctl As TextBox
    
    Set frm = Form1
    
    For Each ctl In frm
        ctl.Text = ""
    Next ctl
 
End Sub

Thanks in advance

[Beacon]

Private Sub clrTxtBoxes()
Dim ctl As TextBox

For Each ctl In Controls
ctl.Text = ""
Next ctl

End Sub

hows that?

[rudvs2]

thanks beacon but still no luck i just get a type mismatch error when it trys to execute the For-Next loop

[Beacon]

Dim ctl As Control

My bad!

You may need this if your just doing text boxes:

For Each ctl In Controls
If (TypeOf ctl Is TextBox) Then
ctl.text = ""
End If
Next

[rudvs2]

BINGO

Thanks Beacon that did the trick perfectly

[Beacon]

N.P