Décompter dans un groupe de contrôleRésolu

Question

Bonjour tout le monde ,

j 'aimerais bien savoir décompter le compteur dans le groupe de contrôle ci-dessous. J'èspere que qlq sait me donner la syntaxe?

For Each Ctrl In Me.Controls
            If TypeOf Ctrl Is Label Then
                If UCase(Mid(Ctrl.Name, 1, 3)) = "AAA" Then                    If rs.EOF False Or record.EOF False Then
                        If record("TEXT") = rs("TEXT") Then
                            Ctrl.Caption = rs("Anzahl_Fehler")
                            rs.MoveNext
                            record.MoveNext
                        Else
                            If (record.EOF = False) Then
          ------------->ICI JE DOIS DECOMPTER LE COMPTEUR
                                rs.MoveNext
                            End If
                        End If
                    End If
                End If
            End If
            Next

Merci,

Spawn

jrivet · Accepted Answer

Re,

IL faut effectuer quelques modifications...

Si tu as laisser :    If TypeOf Ctrl Is Label Then
c'est normal que cela plante car Ctrl ne fait référence a plus rien.

il faudrait ajouter 
Set Ctrl = Me.controls(i)

NOTE: C est i = 0 to Me.controls.count - 1 
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

jrivet · Answer

Decompter le Compteur..... Lequel... moi je ne comprend rien

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Ben dans la boucle For Each,il y a un compteur puisqu'a la fin c est l'instruction Next qui est éxecutée. Donc j'aimerais bien décompter ce compteur là.

J'espere que c est clair?

Utilisateur anonyme · Answer

Ben TonCompteur -= 1



Kenji



Il était une fois, un pauvre petit règlement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait plaisir ainsi qu'a nous. Merci

Spawn3107 · Answer

Oui, je sais que je dois faire -1 mais je vois pas le compteur de la boucle. Il y a seulement Next.

jrivet · Answer

Salut,

Change de type de boucle alors.

Au lieu de passer par un For Each XX in ZZ passe par For i = 1 To Me.controls.Count

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Merci , cela devrait fonctionner mais lorsque je remplace "For Each Ctrl In Me.Controls" par "For i = 1 To Me.controls.Count",
il me dit que j'ai oublier de declarer une variable. (??)

Spawn

Spawn3107 · Answer

Merci , cela devrait fonctionner mais lorsque je remplace "For Each Ctrl In Me.Controls" par "For i = 1 To Me.controls.Count",
il me dit que j'ai oublier de declarer une variable. (??)

Spawn

jrivet · Answer

Dim i as integer.... 

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Non,celle-là je l'avais pas oubliée. Il me dit qu 'une variable objet ou une variable with n'à pas été spécifiée.

Spawn3107 · Answer

Alors, un grand merci a toi !! GG

A+,

Spawn

Décompter dans un groupe de contrôle

11 réponses

Votre réponse

Discussions similaires