[Résolu][Base] Couleur du formulaire sous condition

[Kilin]

Bonjour à tous,

Est il possible,en fonction du résultat de ma requête, de changer la couleur de mon formulaire ?
Exemple : j'interroge ma table civilité, le résultat de ma requête est "Madame", la couleur de fond de mon formulaire est rose ! Si le résultat était "Monsieur", alors il serait bleu !

Merci pour votre aide,

[Hubert Lambert]

Bonjour,

C'est possible oui, par exemple avec la macro suivante affectée à l'événement "Après le changement d'enregistrement" du formulaire :

Code : Tout sélectionner

sub couleur_civilite(event)
    source = event.Source
    doc = source.Parent.Parent
    pagestyle = doc.StyleFamilies.PageStyles.Standard
    civilite = source.getString(source.findColumn("civilité"))
    select case lcase(civilite)
    case "monsieur"
        pagestyle.BackColor = rgb(52, 101, 164) 'BLEU
    case "madame", "mademoiselle"
        pagestyle.BackColor = rgb(204, 102, 153) 'ROSE
    case else
        pagestyle.BackColor = rgb(128, 128, 128) 'GRIS
    end select
end sub

Cordialement.

[Kilin]

C'est génial, c'est exactement ce que je cherchais à faire, merci infiniment !

[Kilin]

Cette macro utilise un contrôle type textbox, comment l'adapter avec un contrôle de type liste de sélection ?

[Hubert Lambert]

Pour aller plus loin, fournis un exemple reproduisant la structure de ta base, avec des données bidons.
Sinon on risque de multiplier les essais inutiles.

[Kilin]

Voila ma base en question, je souhaiterais qu'en fonction du type de dossier, la couleur de fond change comme votre script précédent, merci !

[Piaf]

Bonjour
A tester
Je t'ai mis l'exemple comme dans ta base, mais je pense qu'il vaut mieux stocker dans les tables l'identifiant plutôt que la valeur(voir la table IDENTITE FIJAIS1 et le formulaire Consultation1).
A+

[Kilin]

Un gros merci pour ce script !!