[RESOLVED] For each Method

[ryanframes]

hi guys, i have 3 textbox like this :

Private Sub Command1_Click()
Dim a As Object
Dim T As TextBox
Set a = T
For Each a In Form1
    a.Text = "TEST"
Next a
End Sub

but after the last text have been filled with "TEST" it show msgbox "Run Time error 13 Type Mismatch"

can u help me to solve this problem plz

[jmcilhinney]

That looks rather like VB6 code. Are you sure that you've posted to the correct forum?

[ryanframes]

oops.. sorry wrong forum..

[ryanframes]

oops sorry wrong forum.

[Joacim Andersson]

Moved to the VB6 forum.

[seenu_1st]

try this too

Dim t As Control
For Each t In Me.Controls
    If TypeOf t Is TextBox Then
        t.Text = "TEST"
    End If
Next

[ryanframes]

try this too

Dim t As Control
For Each t In Me.Controls
    If TypeOf t Is TextBox Then
        t.Text = "TEST"
    End If
Next

thx for solved my problem..
how to mark this thread as solved thread ???

[seenu_1st]

click thread tools > Mark thread resolved, above the 1st post.

[ryanframes]

click thread tools > Mark thread resolved, above the 1st post.

thx ,,,