OVH Cloud OVH Cloud

Evenement au formatage

26 réponses
Avatar
Audrey
bonjour
Quelqu'un connait il l'évènement "au formatage" de la section détail car je sui aller ds la section détail de mon formuliaare mais je n'ai rien trouver quelqun peux t'il m aider??
merci

10 réponses

1 2 3
Avatar
Raymond [mvp]
je t'ai demandé : as-tu les bonnes valeurs lorsque tu passes sur les lignes
ou quelles valeurs as-tu ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Audrey" a écrit dans le message de
news:
ben justement je croiis que xcecode ne suffit pas cest pr ca que je t'es
posé la question precedente??


Avatar
Audrey
escuse moi mais je ne peux pas savoir car justement qd je passe au débugueur il prend une seule valeur et cest tout cest pr cela quesoit mon evenement est faux soit il fo qqchose pr qu'il teste ttes les valeurs mais koi???? jze ne sais pas mais pr repondre a ta question sur la premiere ligne oui il prend bien la bonne valeur qui d'ailleurs n'est pas ds l'intervalle quze j'ai choisi par contre des que je met un intervalle ds lekel coorespond la valeur ttes mes zones de texte devienne rouge??? alors ke je souhaite ke uniqt la premiere????? comment faire ??? j'espere cette fois avoir bien repondu a ta question
Avatar
Raymond [mvp]
je commence à y voir clair.
en 1/2 journée nous sommes passés, de la section au formatage du formulaire
à la mise en forme conditionnelle par le code à un code que ne fait rien et
maintenant à un code qui fait tout.
Donc tu es dans un formulaire en mode continu, tout simplement. je n'avais
pas relevé dans l'avant dernier post car j'étais fixé sur le code vba.
C'est très simple : si tu veux utiliser la mise en forme conditionnelle dans
un formulaire continu il faut passer obligatoirement par la mise en forme
conditionnelle access. Si tu passes par une mise en forme personnelle en
code vba ça ne fonctionne pas car dans un formulaire en continu c'est le
même contrôle qui est affiché sur la page et non des contrôles différents et
ils portent tous la même couleur et changent tous ensemble.
Il y a un moyen de mettre des couleurs dans un formulaire en continu et faut
que tu lises les pages :
http://www.mvps.org/accessfr/forms/frm0024.htm
http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Couleurs
sans toutefois t'assurer que ça te conviendra.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Audrey" a écrit dans le message de
news:
escuse moi mais je ne peux pas savoir car justement qd je passe au
débugueur il prend une seule valeur et cest tout cest pr cela quesoit mon

evenement est faux soit il fo qqchose pr qu'il teste ttes les valeurs mais
koi???? jze ne sais pas mais pr repondre a ta question sur la premiere
ligne oui il prend bien la bonne valeur qui d'ailleurs n'est pas ds
l'intervalle quze j'ai choisi par contre des que je met un intervalle ds
lekel coorespond la valeur ttes mes zones de texte devienne rouge??? alors
ke je souhaite ke uniqt la premiere????? comment faire ??? j'espere cette
fois avoir bien repondu a ta question

Avatar
Audrey
merci bien pr ces renseignements mais le premier lien ne coorespond pas pr access 2002 et le second je l'avais deja vu mais si j'ai bien compris ce qu'il faut faire il faudrai 4 zone detexte supperposé du faite quej e odis jongler avec4 couleurs j'avais dailleurs vite fais essayé mais je trouvais que cela faisait bcp de zone cest pr cela que je cherchais une autre solution mais apparement je ne sais pas s'il en existe une??
Avatar
Raymond [mvp]
je n'en connais pas d'autres et je n'ai jamais vu passer d'autres messages
sur le sujet avec d'autres solutions.
désolé pour toi.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Audrey" a écrit dans le message de
news:
merci bien pr ces renseignements mais le premier lien ne coorespond pas pr
access 2002 et le second je l'avais deja vu mais si j'ai bien compris ce

qu'il faut faire il faudrai 4 zone detexte supperposé du faite quej e odis
jongler avec4 couleurs j'avais dailleurs vite fais essayé mais je trouvais
que cela faisait bcp de zone cest pr cela que je cherchais une autre
solution mais apparement je ne sais pas s'il en existe une??

Avatar
Audrey
4 zone pense tu ke cest possible supperposé????
Avatar
Audrey
Si j'en trouve une autre de solution je vs la poste sur le forum jai une petite idée il fo ke j'essaye car 4 zone ca ne memballe pas tro
Avatar
Rv
Bonjour Raymond et Audrey,

J'ai mis en place il y a quelques temps une méthode pour afficher des
controles en couleur dans un formulaire en mode continu de façon
conditionnelle. Ceci sans utiliser la superposition de controles mais plutôt
en programmant dynamiquement la mise en forme conditionnelle. Le fil étant
un peu long, je ne sais pas si cela peut interesser Audrey. Si c'est le cas,
si c'est toujours d'actualité, vous me dites et je vous fait parvenir un
exemple.

A+

Rv


"Raymond [mvp]" a écrit dans le message de
news:u$
je n'en connais pas d'autres et je n'ai jamais vu passer d'autres messages
sur le sujet avec d'autres solutions.
désolé pour toi.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Audrey" a écrit dans le message de
news:
merci bien pr ces renseignements mais le premier lien ne coorespond pas
pr


access 2002 et le second je l'avais deja vu mais si j'ai bien compris ce
qu'il faut faire il faudrai 4 zone detexte supperposé du faite quej e odis
jongler avec4 couleurs j'avais dailleurs vite fais essayé mais je trouvais
que cela faisait bcp de zone cest pr cela que je cherchais une autre
solution mais apparement je ne sais pas s'il en existe une??





Avatar
Audrey
OUi j'aimerai bien voir ton code stp pr avoir une petite idée en faite j'ai arrrangere le truc a ma facon j'ai mis une zone de texte coller a la zone que je voulai ki soit coloré cette autre zone contient la vl que je voulais tester et j'ai comme cela appliké la mise en forme conditionnelle mais cela m'interesserai bcp de voir ton code et pk pas le reprendre si j'arrive a le comprendre
Merci d'avance
Avatar
Rv
Re,

Je n'ai pas adapté ce code à ton cas de figure que je n'ai pas totalement
compris. Je te livre donc ce que j'avais mis en place tel quel avec juste
quelques commentaire en plus.
Le but était de mettre dans une certaine couleur toute la ligne
sélectionnée dans un formulaire en mode continu.
L'exemple est le suivant:
Une table "Table1" avec deux champs "id" et "txt"

Un formulaire en mode continu avec comme source la table "Table1"

Dans un module standard la procédure suivante:

' strNomChampUnique : nom d'un champ unique du formulaire idéalement la clé
primaire
' objForm : le formulaire ou appliquer le format conditionnel
Sub selLaLigne(strNomChampUnique As String, objForm As Access.Form,
lngCouleurFond As Long, lngCouleurForme As Long)
Dim objControl As Access.Control
Dim objFormatCondition As Access.FormatCondition

' Gestion d'erreur
On Error GoTo gereErr
' Puisque l'on veut sélectionner la ligne on agit sur tous les controles
de la zone détail
For Each objControl In objForm.Détail.Controls
' A appliquer sur les controles de type text ou liste
If objControl.ControlType = acTextBox Or objControl.ControlType acListBox Then
' Supprimer les formats conditionnels déjà existant
For Each objFormatCondition In objControl.FormatConditions
objFormatCondition.Delete
Next
' Appliquer le nouveau format conditionnel
Set objFormatCondition objControl.FormatConditions.Add(acExpression, , "[" & strNomChampUnique & "]
= " & Forms(objForm.Name).Controls(strNomChampUnique).Value)
objFormatCondition.BackColor = lngCouleurFond
objFormatCondition.ForeColor = lngCouleurForme
End If
Next
Exit Sub
gereErr:
MsgBox Err.Description
End Sub


Dans le formulaire sur l'événement "sur activation"

Private Sub Form_Current()
Call selLaLigne("id", Me, 255, 0)
End Sub

Tiens moi au courant de l'adaptation possible.

A+

Rv
1 2 3