0/5 (2 avis)
Snippet vu 6 065 fois - Téléchargée 45 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
11 janv. 2003 à 11:37
Voila ....
Merci d'avance
6 août 2002 à 02:13
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.