[RESOLVED] Run Time error 13 on clearing textboxes

[RS_Arm]

Hi.
I'm using this function to clear all my textbox objects in my form

Private Sub Clear_Click()
Dim objTXT As TextBox

For Each objTXT In Me
    objTXT.Text = vbNullString
Next objTXT

Set objTXT = Nothing
End Sub

After clearing all textboxes, in the end of the for cycle, i get this error:
Run-time error 13: Type Mismatch.

What should i do?

Thanks.

[Pasvorto]

objTXT.Text = ""

[Erroneous]

Does this work?

Private Sub Command1_Click()
Dim cTxt As Control

For Each cTxt In Controls
    If TypeOf cTxt Is TextBox Then
        cTxt.Text = ""
    End If
Next
    
End Sub

[robbedaya]

Dim txt As TextBox
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            Set txt = ctrl
            txt.Text = vbNullString
        End If
    Next ctrl

[RS_Arm]

No, none of both solutions works. I get the same error in the "next" instruction.

[RS_Arm]

robbedaya, thak works. Thanks a lot!

[Erroneous]

Delete your previous code and paste ours.

[si_the_geek]

While robbedaya's code works, it has more code than is needed (the txt variable is not required).

Erroneous's code should work for you - note that the first line (Dim cTxt As Control) is very important here, it is what stops that error from occurring.

The Controls collection of a form includes all of the controls.. so using a variable that is a specific control type is not valid. The "If TypeOf" line is what ensures you only work with the textboxes.

[Erroneous]

Cheers for the explanation. We learn new things everyday.

[robbedaya]

While robbedaya's code works, it has more code than is needed (the txt variable is not required).

I know the txt-variable is not deeded but it's easier in design time to write your code (if other properties need to be changed) when you can use the <CTRL>+<SPACE>-menu. That's the only reason i created an extra variabele.

Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            ctrl.Text = vbNullString
        End If
    Next ctrl

[RS_Arm]

Ok, I agree si_the_geek.
So, here goes the final code (i hope):

Public Sub ClearTBox(Forms As Form)
Dim tbox As Control
For Each tbox In Forms.Controls
    If TypeOf tbox Is TextBox Then
        tbox.Text = vbNullString
    End If
Next tbox

End Sub

[Erroneous]

Still you could easily memorize that it's a .Text pertaining to textboxes. While not declaring one variable will save a bit of memory usage.

[si_the_geek]

True, but if you are performing more than one operation on the control, the intellisense makes it worthwhile (at least while you are initially writing the code).

[Erroneous]

Yes si, in some cases. This is what VB is all about. To make your life easier. Is this thread resolved?