VBA: Mise en forme cond. dans s-formulaire continu
1 réponse
Stach
Bonjour à tous,
Dans un sous-formulaire en "mode continu", j'ai essayer le code suivant afin
que la couleur de fond du champs "ETAGE" du sous-formulaire soit en une
certaine couleur selon l'étage:
'Mise en forme conditionnelle de la couleur
Dim rstSFMSTOCKGEST As DAO.Recordset
MyForm = Screen.ActiveForm.Name
With Forms(MyForm)
Set rstSFMSTOCKGEST = !sfmSTOCKGEST.Form.Recordset
rstSFMSTOCKGEST.MoveFirst
Select Case !sfmSTOCKGEST.Form.ETAGE.Value
Case Is = 1 'Bleu
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(0, 0, 255)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(0, 0, 255)
Case Is = 2 'Rouge
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 0, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 0, 0)
Case Is = 3 'Vert
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(0, 180, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(0, 180, 0)
Case Is = 4 'Jaune
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 255, 0)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 255, 0)
Case Else 'Vide
!sfmSTOCKGEST.Form.[ETAGE].BackColor = RGB(255, 255, 255)
!sfmSTOCKGEST.Form.[ETAGE].ForeColor = RGB(255, 255, 255)
End Select
rstSFMSTOCKGEST.MoveNext
end with
Le problème est que tous mes enregistrements se trouvant dans le
sous-formulaire se colore de la même couleur.
J'ai bien essayer en attendant d'utiliser le mise en forme conditionnelle
"standard" d'access, mais mon problème est que j'ai 5 conditions alors que
cette fonction n'en permet que 3.
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,
"Stach" | Dans un sous-formulaire en "mode continu", j'ai essayer le code suivant afin | que la couleur de fond du champs "ETAGE" du sous-formulaire soit en une | certaine couleur selon l'étage: | [...] | Le problème est que tous mes enregistrements se trouvant dans le | sous-formulaire se colore de la même couleur. | | J'ai bien essayer en attendant d'utiliser le mise en forme conditionnelle | "standard" d'access, mais mon problème est que j'ai 5 conditions alors que | cette fonction n'en permet que 3.
"Stach"
| Dans un sous-formulaire en "mode continu", j'ai essayer le code suivant afin
| que la couleur de fond du champs "ETAGE" du sous-formulaire soit en une
| certaine couleur selon l'étage:
|
[...]
| Le problème est que tous mes enregistrements se trouvant dans le
| sous-formulaire se colore de la même couleur.
|
| J'ai bien essayer en attendant d'utiliser le mise en forme conditionnelle
| "standard" d'access, mais mon problème est que j'ai 5 conditions alors que
| cette fonction n'en permet que 3.
"Stach" | Dans un sous-formulaire en "mode continu", j'ai essayer le code suivant afin | que la couleur de fond du champs "ETAGE" du sous-formulaire soit en une | certaine couleur selon l'étage: | [...] | Le problème est que tous mes enregistrements se trouvant dans le | sous-formulaire se colore de la même couleur. | | J'ai bien essayer en attendant d'utiliser le mise en forme conditionnelle | "standard" d'access, mais mon problème est que j'ai 5 conditions alors que | cette fonction n'en permet que 3.