winvsmac
Messages postés84Date d'inscriptionsamedi 26 mai 2007StatutMembreDernière intervention14 décembre 2016
-
1 sept. 2008 à 13:18
winvsmac
Messages postés84Date d'inscriptionsamedi 26 mai 2007StatutMembreDernière intervention14 décembre 2016
-
1 sept. 2008 à 14:08
Bonjour,
Décidément, moi et les boucles ça fait 2. J'ai de nouveau besoin d'aide ! Environnement VB6.
Voici une copie d'écran pour que se soit plus simple à comprendre :
Dans la zone 1, je créé de nouveux enregistrements (des évènements).
Dans la zone 2, je fais un double clique pour choisir les personnes participants à l'évènement
et ces participants s'affichent dans la zone 3.
En validant mon enregistrement, je dois avoir dans une table, un enregistrement par participant défini dans la zone 3.
Mais, une fois l'enregistrement effectué, je me rends compte, que la boucle est mal conçue. En effet, je vois bien que j'ai 4 enregistrements dans ma table
(cart 4 participants dans la zone 3), mais c'est quatre fois le meme, c'est à dire qu'il boucle sur le premier participant de la liste dans la zone 3.
La liste de la zone 3 se nome Liste_Ptcp
Voici le bout de code générant la boucle :
If Liste_Ptcp.ListCount > 0 Then
For i = Liste_Ptcp.ListCount - 1 To 0 Step -1
With evtadh
.AddNew
!numero = Mid(Liste_Ptcp.Text, 1, 14)
!idevt = evt!id
!quand = evt!quand
!theme = evt!sujet
.Update
End With
Next i
End If
J'ai beau relire le code, triturer la boucle dans tous les sens, je n'y parviens.
Si une âme binefaitrice veut bien m'aider ....
Un grand merci
winvsmac
Messages postés84Date d'inscriptionsamedi 26 mai 2007StatutMembreDernière intervention14 décembre 2016 1 sept. 2008 à 13:35
Bonjour Exploreur
Même avec ceci 'For i = 0 To Liste_Ptcp.ListCount -1'
je n'arrive pas au résultat escompté.
Merci tout de meme, c'est sympa d'avoir pris le temps de regarder mon message.