Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 824 fois - Téléchargée 42 fois
Dim base As Database, rst As Recordset Private Sub Command1_Click() Set base = OpenDatabase("Votre Base") Set rst = base.OpenRecordset("Votre Table") List1.Clear bar.Max = rst.RecordCount Dim boucle2, boucle3, boucle4, boucle5 As Integer For boucle2 = 0 To rst.RecordCount For boucle3 = 0 To List1.ListCount If List1.Text <> rst![Champ] Then If List1.ListIndex = List1.ListCount - 1 Then List1.AddItem (rst![Champ]) End If Else GoTo passe End If List1.ListIndex = List1.ListIndex + 1 Next boucle3 passe: List1.ListIndex = 0 rst.MoveNext bar.Value = bar.Value + 1 Next boucle2 List1.ListIndex = 0 For boucle5 = 1 To List1.ListCount List1.ListIndex = List1.ListIndex + 1 Next boucle5 End Sub
Voila ....
Merci d'avance
Par ailleurs les GOTO sont à oublier depuis bien des années ...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.