bonjour à tous
j'ai un petit probléme concernant le délais pour afficher un liste box.en fait en cliquant sur un bouton la liste box prend beaucoup de temps pour s'afficher ce qui n'est pas praticable si on a plusieurs opérations à faire.
cette liste affiche les données à partir d'une base de données acces qui contient disons 200 enregistrements.
est ce que quelqu'un peut m'aider à changer dans les lignes de code de façon à accélerer un peut l'affichage ?
voilà le code:
______________________________________________________________________________________
Private Sub Command4_Click()
Set BD = DBEngine.OpenDatabase("d:\gestion de stock.mdb")
Set CL = BD.OpenRecordset("client")
List2.Clear
List2.Refresh
If CL.RecordCount > 0 Then
CL.MoveFirst
While Not CL.EOF
If CL!cod_clt <> "" Then
List2.AddItem CL!cod_clt & "--->" & CL!nom_clt
End If
CL.MoveNext
Wend
End If
If List2.Visible = False Then
List2.Visible = True
List2.Refresh
List2.SetFocus
Else
List2.Visible = False
End If
BD.Close
______________________________________________