CODES SOURCES - DO LOOP -     Remarques: Le code suivant vous montre une application de la boucle "Do Loop / Until" (Répéter Tant Que / Jusqu'à). Dans cet exemple, on se connecte à une base de données, on ouvre un jeu d'enregistrement, puis on charge une liste déroulante avec un champs du jeu d'enregistrement. Il n'est pas nécessaire de maîtriser l'accès à la base de données pour comprendre cet exemple, l'intérêt ici est de comprendre le fonctionnement de la boucle.      L'interface :            Le code source du module général :   Option Explicit     Le code source du chargement de la feuille : Private Sub Form_Load() Dim MaBase As Database              'Déclaration de la base de données Dim MonRecordset As Recordset   'Déclaration d'un jeu d'enregistrements 'Ouverture de la base de données Set MaBase = OpenDatabase("c:\BdVbGenerator.mdb") 'Ouverture du jeux d'enregistrements Set MonRecordset = MaBase.OpenRecordset("Membres") 'Chargement de la liste avec le champs "Nom" de chaque enregistrement Do While MonRecordset.EOF = False       'Faire tant que l'on a pas atteint la fin du jeu d'enregistrements LstNom.AddItem MonRecordset("Nom")   'Ajouter à la liste le nom MonRecordset.MoveNext                          'Aller à l'enregistrement suivant Loop End Sub                               ©Copyright Webmaster 2002