boucle Do until....loop en VBA

boucle Do until....loop en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 12-10-2005 à 13:19:14    


kikou
 
voila dans un formulaire Access j'ai une liste deroulante avec des periodicité (mensuelle, hebdo...) selon la periodicite choisi j'affiche par un bouton "visualiser" la liste des taches à executer
 
j'ai un boucle do until.....loop qui est censé m'afficher pour une periodicité donné tte la liste des taches
 
mais voila ça m'affiche que le premier enreg
 :??:  je kinprin po ..........
 
>>Private Sub cmdVisualiserReq_Click()
 
>>Dim db As Database
>>Dim rs As Recordset
>>Set db = CurrentDb
>>Set rs = db.OpenRecordset(Me.RecordSource)
 
 
 
>>If Not rs.EOF Then
     
>>>>Do Until rs.EOF
       
>>>>mlNOMREQ = [rs]![NOMREQ]
>>>>mlLBREQU = [rs]![LBREQU]
>>>>mlLBPERREQ = [rs]![LBPERREQ]
>>>>mlEXECREQ = True
     
>>>>rs.MoveNext
     
>>>>Exit Do
>>>>Loop
     
>>End If
 
 
J'ai pitete oublié qq chose non ???
 
merçi d'avance


---------------
Soyez Heureux
Reply

Marsh Posté le 12-10-2005 à 13:19:14   

Reply

Marsh Posté le 12-10-2005 à 14:41:55    

vire le exit do, ça ira certainement mieux :D


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed