[VBA/ACCESS] Aggiungere più TextBox

[Gumble]

ciao. devo generare x textbox e attaccarli al form durante il form_load(). come faccio?

ora ho provato a fare questo:

Function createTxtbox(name As String, l As Integer, t As Integer) As TextBox
    Set createTxtbox = New TextBox
    createTxtbox.name = name
    createTxtbox.Left = l
    createTxtbox.Top = t
End Function

Private Sub Form_Load()
'esegui la query dei film
Dim FilmRcs As Recordset
Dim l As Integer, t As Integer, myName As String, i As Integer

'getFilms restituisce il recordset con la lista dei film
Set FilmRcs = getFilms()
l = 20 'left
t = 20 'top
i = 0
If Not FilmRcs.EOF Then FilmRcs.MoveFirst
    Do While Not FilmRcs.EOF
    'populate fields
    myName_1 = "txt_" & i
    myTxt_1 = createTxtbox(myName_1, l, t)
    i = i + 1
    ' ... aggiungi altri fields...
    t = t + 30 ' vai a capo
    l = 20 'resetta la proprietà left
    FilmRcs.MoveNext
Loop
End Sub

ma non se funziona e non so come attaccarlio al form.

[Brainjar]

Dovrebbe funzionare, hai dimenticato di rendere visibile il text box appena creato.

Function createTxtbox(name As String, l As Integer, t As Integer) As TextBox
    Set createTxtbox = New TextBox
    createTxtbox.name = name
    createTxtbox.Left = l
    createTxtbox.Top = t

    createTxtbox.Visible = true 

End Function