Buon giorno,
mi sono impostato un metodo per far apparire dei controlli dinamicamente ma non appare niente, qualcuno saprebbe dirmi dove sbaglio:
codice:
Private Sub Command2_Click()
Dim i As Integer
i = 1
Call connetti
Rs.Open "SELECT * FROM u_89", Cn
Do While Not Rs.EOF
Load Text1(i)
Text1(i).Move 1200, 2000, 800, 350
Text1(i).MaxLength = 10
Text1(i).Visible = True
If Rs.State <> 0 Then 'se non si sono verificati errori
If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
Text1(i).Text = Rs("CodForn")
End If
Else
MsgBox "Errore durante l'apertura della tabella", vbCritical
End If
i = i + 1
Loop
Cn.Close
Set Cn = Nothing
Grazie