Collections problem - Resolved!!!

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

VB Code:

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

Private Sub clrTxtBoxes()
Dim ctl As TextBox

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

End Sub

hows that?

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


:(

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

BINGO :)

Thanks Beacon that did the trick perfectly :)

N.P :)