CODES SOURCES - WHILE -     Remarques: Le code suivant vous montre une application de la boucle "While" (Tant Que). 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 While MonRecordset.EOF = False               '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 Wend End Sub                               ©Copyright Webmaster 2002