[VB(A)] Problème de boucle
Problème de boucle [VB(A)] - VB/VBA/VBS - Programmation
Marsh Posté le 29-05-2002 à 16:51:00
bon, je récapitule, j'ai 20 cases à cocher auxquelles est affecté à chaque fois une source de controle de données.
je veux que cette boucle m'efface la source de controle, mais si la case était cochée, je veux qu'elle le soit encore après...
c mieux ?
---------------
Music|Market|Feed|Loom|DVD
Marsh Posté le 30-05-2002 à 10:20:09
| Loom the Gloom a écrit a écrit : For i = 1 To 20 b = False If Me("caseSource" & i).Visible Then Me("caseSource" & i).SetFocus If Me("caseSource" & i).Value = -1 Then b = True End If Me("caseSource" & i).ControlSource = "" If b Then Me("caseSource" & i).Value -1 End If Next |
ya pas un problème là ?
---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Sujets relatifs:
- [Java] Problème de conception lié aux interfaces
- [kava] Probleme avec un JTree
- probleme de Jar
- Probleme de rebbot lor de la compilation sous vc++ et win2k
- [Visual C++] Problème avec _beginthread... [Allons plus loin]
- [SQL] Problème de requête !! Help !
- [Interbase] Problème lors de l'affichage d'une exception
- Un probleme de package !!!!!!!!!!!!!!!!!
- problème avec getch() ---> et les touches spéciales
- *DELPHI* Lire une ListView avec le Handle, probleme, aidez moi svp
Marsh Posté le 29-05-2002 à 16:22:21
For i = 1 To 20
b = False
If Me("caseSource" & i).Visible Then Me("caseSource" & i).SetFocus
If Me("caseSource" & i).Value = -1 Then
b = True
End If
Me("caseSource" & i).ControlSource = ""
If b Then
Me("caseSource" & i).Value -1
End If
Next
cette simple boucle plante à la deuxième échéance, mais seulement à la 2e, et pas la première. Voyez vous pkoi ?
[jfdsdjhfuetppo]--Message édité par Loom the Gloom le 30-05-2002 à 09:00:35--[/jfdsdjhfuetppo]
---------------
Music|Market|Feed|Loom|DVD