Sto creando una combo molto grande, ho utilizzato quella della FORM2. ecco il codice
Turni.Clear
Turni.ColumnCount = 5
Turni.ListWidth = "6,5 cm"
Turni.ColumnWidths = "1 cm;1 cm; 1,6 cm; 0,5 cm; 1 cm"
rsRecordSet14.MoveFirst
i14 = 0
Do While Not rsRecordSet14.EOF
Me.Turni.AddItem rsRecordSet14![Tipo turno] & ""
Me.Turni.List(i14, 1) = rsRecordSet14![Giornata] & ""
Me.Turni.List(i14, 2) = rsRecordSet14![Tipo giornata] & ""
Me.Turni.List(i14, 3) = rsRecordSet14![Rigo Giornata] & ""
Me.Turni.List(i14, 4) = rsRecordSet14!Treno & ""
Me.Turni.List(i14, 5) = rsRecordSet14!Servizio & ""
Me.Turni.List(i14, 6) = rsRecordSet14![Località inizio codice] & ""
Me.Turni.List(i14, 7) = rsRecordSet14![Località inizio] & ""
Me.Turni.List(i14, 8) = rsRecordSet14![Località fine codice] & ""
Me.Turni.List(i14, 9) = rsRecordSet14![Località fine] & ""
rsRecordSet14.MoveNext
i14 = i14 + 1
Loop
'chiude il recordset
rsRecordSet14.Close
Fino a qui è tutto perfetto, e non mi da problemi.
Ora però devo aggiungere altri dati nella combo.
Me.Turni.List(i14, 10) = rsRecordSet14![Ora prescritta inizio] & ""
Me.Turni.List(i14, 11) = rsRecordSet14![Ora prescritta fine] & ""
Me.Turni.List(i14, 12) = rsRecordSet14![TP] & ""
Me.Turni.List(i14, 13) = rsRecordSet14![Macchina1] & ""
Dal 10 in poi va in errore, come se fosse limitata a soli 10 dati, cioè dallo 0 al 9, oltre va in errore
Sapete darmi conferma di questo????
C'è un modo per andare oltre, devo aggiungere altre 6 campi.
Ciao e grazieeeeeeeeeeeeeeee