et merci =E0 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 =E0 mettre en evidence
'avec une expression pour identifier les numeros qui ressortent
Couleur =3D Noir
If InStr(1, sLoto, " " & N1 & " ") > 0 Then
DessineCercle N1, 133
Couleur =3D Rouge
End If
Me!N1.ForeColor =3D Couleur
Couleur =3D Noir
If InStr(1, sLoto, " " & N2 & " ") > 0 Then
DessineCercle N2, 133
Couleur =3D Rouge
End If
Me!N2.ForeColor =3D Couleur
Couleur =3D Noir
If InStr(1, sLoto, " " & N3 & " ") > 0 Then
DessineCercle N3, 133
Couleur =3D Rouge
End If
Me!N3.ForeColor =3D Couleur
Couleur =3D Noir
If InStr(1, sLoto, " " & N4 & " ") > 0 Then
DessineCercle N4, 133
Couleur =3D Rouge
End If
Me!N4.ForeColor =3D Couleur
Couleur =3D Noir
If InStr(1, sLoto, " " & N5 & " ") > 0 Then
DessineCercle N5, 133
Couleur =3D Rouge
End If
Me!N5.ForeColor =3D Couleur
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....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
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 ;-)
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
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 ;-)
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....
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 ;-)
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....
