boucle Do until....loop en VBA - VB/VBA/VBS - Programmation
MarshPosté 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)
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