Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Evenement au formatage

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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
Raymond [mvp]
"au formatage" pour la section détail n'existe que pour les états et non
pour les formulaires.

--
@+
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:
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


Avatar
Audrey
Bonjour
Existe t'il un equivalent pour les formulaires car je souhaite utiliser la mise en forme condiionnel mais par le code car la zone que je voudrais mettre en couleurs n'est pas celle tester et le code que j'ai trouvé est mis dedans et qd je l'a met par exemple a l'ouverture cela me met un message d'erreur qui ne veut rien dire
Avatar
Raymond [mvp]
Bonjour Audrey.

Tu sais que ton message n'est pas très clair ?
tu veux utiliser le mise en forme conditionnelle par le code, mettre les
conditions de la mise en forme conditionnelle elle-même ou directement
remplacer la mise en forme par code avec des if ou un select case ?
la zone mise en couleur n'est pas celle testée, bon et alors ça change quoi
dans tes tests? tu as une erreur, quelle erreur et quelle est ta procédure
utilisée ?
à part ça je ne sais pas.
--
@+
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:
Bonjour
Existe t'il un equivalent pour les formulaires car je souhaite utiliser la
mise en forme condiionnel mais par le code car la zone que je voudrais

mettre en couleurs n'est pas celle tester et le code que j'ai trouvé est mis
dedans et qd je l'a met par exemple a l'ouverture cela me met un message
d'erreur qui ne veut rien dire

Avatar
Audrey
Escuse moi de bon matin des fois cest dur ..
J'ai donc c tu as dis utiliser des if.... suivant le modelede cette page
http://access.seneque.free.fr/couleurs_condition.ht
mais l'venement au formatage n'existe donc pas ds les formulaire je l'ai donc mis dans l'evenement load mais jze n'ai plus de message d'erreur tantm ieu mais ca ne fonctionne pas
mon est le suivant

Private Sub Form_Open(Cancel As Integer

If (Forms![EmplacementStockage]![DPourcUtil] >= 70) And (Forms![EmplacementStockage]![DPourcUtil] <= 79) The
Me.NomServeur.BackColor = RGB(255, 0, 0

Exit Su
End I
End Su

EmplacementStockage est mon formulaire ou je teste la valeur de la zone de texte DPourcUtil, si elle se trouve entre 70 et 79 alors la zone de texte NomServeur recoit la couleurde fond rouge mais il ne se passe aucune action
Avatar
Raymond [mvp]
es-tu sûre que le formulaire EmplacementStockage est déjà chargé lorsque tu
fais ton test.
rajoutes un test de chargement:
If CurrentProject.AllForms("EmplacementStockage").IsLoaded Then
If (Forms![EmplacementStockage]![DPourcUtil] >= 70) And
(Forms![EmplacementStockage]![DPourcUtil] <= 79) Then
Me.NomServeur.BackColor = RGB(255, 0, 0)
Exit Sub
End If
Else
' ici pas trouvé le formulaire
End If

il serait préférable de mettre cette fonction sur Form_Load plutôt que
Form_Open.
--
@+
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 de bon matin des fois cest dur ...
J'ai donc c tu as dis utiliser des if.... suivant le modelede cette page
http://access.seneque.free.fr/couleurs_condition.htm
mais l'venement au formatage n'existe donc pas ds les formulaire je l'ai
donc mis dans l'evenement load mais jze n'ai plus de message d'erreur tantm

ieu mais ca ne fonctionne pas
mon est le suivant :

Private Sub Form_Open(Cancel As Integer)

If (Forms![EmplacementStockage]![DPourcUtil] >= 70) And
(Forms![EmplacementStockage]![DPourcUtil] <= 79) Then

Me.NomServeur.BackColor = RGB(255, 0, 0)

Exit Sub
End If
End Sub

EmplacementStockage est mon formulaire ou je teste la valeur de la zone de
texte DPourcUtil, si elle se trouve entre 70 et 79 alors la zone de texte

NomServeur recoit la couleurde fond rouge mais il ne se passe aucune action

Avatar
Audrey
merci de ton aide mais il en se passe tjs rien regarde ma procedure

Private Sub Form_Load(

If CurrentProject.AllForms("EmplacementStockage").IsLoaded The
If (Forms![EmplacementStockage]![DPourcUtil] >= 70) And (Forms![EmplacementStockage]![DPourcUtil] <= 79) The
Me.NomServeur.BackColor = RGB(255, 0, 0
Exit Su
End I
Els
MsgBox ("ici pas trouvé le formulaire"
' ici pas trouvé le formulair
End I
End su
Si quelqu'un a une idée ce serai coool car la je ne comprend pas
Avatar
Raymond [mvp]
as-tu vérifié en plaçant un arrêt sur chaque ligne que tu exécutes les
bonnes lignes et que tu as les bonnes valeurs ?

--
@+
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 de ton aide mais il en se passe tjs rien regarde ma procedure

Private Sub Form_Load()

If CurrentProject.AllForms("EmplacementStockage").IsLoaded Then
If (Forms![EmplacementStockage]![DPourcUtil] >= 70) And
(Forms![EmplacementStockage]![DPourcUtil] <= 79) Then

Me.NomServeur.BackColor = RGB(255, 0, 0)
Exit Sub
End If
Else
MsgBox ("ici pas trouvé le formulaire")
' ici pas trouvé le formulaire
End If
End sub
Si quelqu'un a une idée ce serai coool car la je ne comprend pas


Avatar
Audrey
n'existe t'il pas quelque chose pr tester ttes les lignes d'un formulaire continue??
Avatar
Raymond [mvp]
je parle du code vba et de ta procédure d'ouverture.

--
@+
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:
n'existe t'il pas quelque chose pr tester ttes les lignes d'un formulaire
continue?


Avatar
Audrey
ben justement je croiis que xcecode ne suffit pas cest pr ca que je t'es posé la question precedente??
1 2 3