Loop through textboxes on a form

[jpl458]

Back at the trough on this AP. I have a form with a number of labled text boxes on it, and have a need to loop though them. I want to load data into them from vb application that queries a database. Found this bit of code on the web that is a clue, but I think isType is not a method:

Dim myCtrl As Control
Dim myTextbox as textbox
For Each myctrl In myForm.Controls
If isType(myctrl) = "textBox" then
set mytextbox = myctrl
mytextbox.Value= ""
end if
Next myctrl

Using ACCESS 2010, SQlServer DB

Any help would create joy.

Thanks in advance
jpl

 

[dhookom]

Try something like:

    Dim myCtrl As Control
    Dim myTextbox As TextBox
    For Each myCtrl In Me.Controls
        If TypeName(myCtrl) = "textBox" Then
            Set myTextbox = myCtrl
            myTextbox.Value = ""
        End If
    Next myCtrl

Duane
Hook'D on Access
MS Access MVP