[VBA] Hoe een variable voor textfieldnaam gebruiken?

[Verwijderd]

Als volgt
Ik heb 15 textfields die allemaal met textfield beginnen en dan een cijfer
dus
textfield1, textfield2, textfield3 etc

Nou maak ik een recordset en wil ik de textfields vullen met deze waarde uit de recordset.
Ik dacht zelf om een teller mee te laten lopen, maar zoals ik het hieronder heb
krijg ik wel "Forms!formulier1.textfield1" via de MsgBox te zien, maar vult ie de waarde niet in het textfield in.

Ik heb deze code

code:

i = 1
Do While Not rst.EOF
    myTf = "Forms!formulier1.textfield" & i
    MsgBox myTf
    
    myTf = rst!club
    i = i + 1
rst.MoveNext
Loop

met

code:

myTf = Forms!formulier1.textfield & i

doet ie het ook niet

iemand een id?

[Kuhlie]

Hiermee kom je er wel:

code:

Private Sub UserForm_Click()
Dim c As Object
For Each c In Controls
    MsgBox c.Name
Next
End Sub

Waarom jouw code niet werkte? Omdat er geen elementair verschil tussen:

code:

myTf = "Forms!formulier1.textfield" & i

en

code:

myTf = rst!club

zit. In het tweede geval wordt gewoon de inhoud van de recordset in de variabele gezet, VBA kan niet ruiken of je dan ineens een of andere textbox bedoelt.

[ Voor 10% gewijzigd door Kuhlie op 04-02-2004 23:26 . Reden: typfoutje en opmaakverbetering ]

[Verwijderd]

Ik heb er dit van gemaakt

code:

i = 1

Do While Not rst.EOF
    For Each ctrl In Controls
    
         If ctrl.Name = "textfield" & i Then
            ctrl.Value = rst!club
         End If
         
    Next
i = i + 1
rst.MoveNext
Loop

en daarmee is het gelukt
tnx