Formatage METHODE CIRCLE

Le
Pandore
Bonjour

et merci à Pierre 3stone pour son aide.
Dans mon etat voila le code que j'utilise pour la section detail afin
de mettre en evidence les donnees repetitives d'un enregistrement sur
l'autre :

'Formater en rouge les valeurs à mettre en evidence
'avec une expression pour identifier les numeros qui ressortent

Couleur = Noir
If InStr(1, sLoto, " " & N1 & " ") > 0 Then
DessineCercle N1, 133
Couleur = Rouge
End If
Me!N1.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N2 & " ") > 0 Then
DessineCercle N2, 133
Couleur = Rouge
End If
Me!N2.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N3 & " ") > 0 Then
DessineCercle N3, 133
Couleur = Rouge
End If
Me!N3.ForeColor = Couleur


Couleur = Noir
If InStr(1, sLoto, " " & N4 & " ") > 0 Then
DessineCercle N4, 133
Couleur = Rouge
End If
Me!N4.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N5 & " ") > 0 Then
DessineCercle N5, 133
Couleur = Rouge
End If
Me!N5.ForeColor = Couleur

'mémoriser la chaine des valeurs à formater en rouge
sLoto = " " & N1 & " " & N2 & " " & N3 & " " & N4 & " " & N5 & " "


Je souhaiterais simplement modifier le critere pour que les numeros
consecutifs comme 12-13 ou 25-26 qui sont affiches dans l'etat soient
mis en evidence sur le meme enregistrement, et c'est la ou je bloque.
Le code ci dessus entoure le numero 12 si celui ci est present dans
l'enregistrement precedent.
Or moi je souhaiterais que sur la meme ligne les numeros 12-13 soient
entoures quand ils se suivent.

Si quelqu'un à la solution ? merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #20586791
Salut,

Il semblerait que tes numéros se retrouvent sur "une ligne" dans ton état?
Si oui, cela simplifie la méthode...

- Dans la section détail, mémorise les valeurs d'une ligne dans un tableau
- Fais une double boucle imbriquée, en vérifiant si la valeur
suivante est égale à l'actuelle +1
- Si vrai tu empile (mémorise)
- Si la condition est fausse, tu vérifies si la pile >=2
tu appelles une fonction qui trace ton ovale
- puis tu incrémentes et vide la pile...
- quelques constantes au début du pour définir les valeurs
du "ou" et "longueur" aiderons à fignoler cela ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Pandore wrote:
Bonjour

et merci à Pierre 3stone pour son aide.
Dans mon etat voila le code que j'utilise pour la section detail afin
de mettre en evidence les donnees repetitives d'un enregistrement sur
l'autre :

'Formater en rouge les valeurs à mettre en evidence
'avec une expression pour identifier les numeros qui ressortent

Couleur = Noir
If InStr(1, sLoto, " " & N1 & " ") > 0 Then
DessineCercle N1, 133
Couleur = Rouge
End If
Me!N1.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N2 & " ") > 0 Then
DessineCercle N2, 133
Couleur = Rouge
End If
Me!N2.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N3 & " ") > 0 Then
DessineCercle N3, 133
Couleur = Rouge
End If
Me!N3.ForeColor = Couleur


Couleur = Noir
If InStr(1, sLoto, " " & N4 & " ") > 0 Then
DessineCercle N4, 133
Couleur = Rouge
End If
Me!N4.ForeColor = Couleur

Couleur = Noir
If InStr(1, sLoto, " " & N5 & " ") > 0 Then
DessineCercle N5, 133
Couleur = Rouge
End If
Me!N5.ForeColor = Couleur

'mémoriser la chaine des valeurs à formater en rouge
sLoto = " " & N1 & " " & N2 & " " & N3 & " " & N4 & " " & N5 & " "


Je souhaiterais simplement modifier le critere pour que les numeros
consecutifs comme 12-13 ou 25-26 qui sont affiches dans l'etat soient
mis en evidence sur le meme enregistrement, et c'est la ou je bloque.
Le code ci dessus entoure le numero 12 si celui ci est present dans
l'enregistrement precedent.
Or moi je souhaiterais que sur la meme ligne les numeros 12-13 soient
entoures quand ils se suivent....

Si quelqu'un à la solution ? merci d'avance


Publicité
Poster une réponse
Anonyme