Ho usato questo codice per aggiungere un'icona ad ugni record visualizzato ma quando carico il Form mi da l'errore limiti esauriti.Premetto che ho associato il controllo imagelist caricando all'interno l'icona da visualizzare ma nulla da fare.Grazie Mille![]()
![]()
Private Sub Form_Activate()
List1.Refresh
MDIForm1.Enabled = False
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
List1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] is null "
Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = List1.ListItems.Add(Icon)
With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("OraApertura")
RS.MoveNext
End With
Loop
End Sub