Discussion :

[poplite]

Bonjour

j'ai un champ qui s'apelle "maladie" dans mon état "par type" et ce champ a une couleur de fond.

J'ai plusieurs types (en realité 8 pour l'instant, mais ca devrait augmenter) et je voudrais que le fond de ce champ voit sa couleur changer selon le "type" choisi.

Je ne trouve pas la solution à mon probleme et l'assistant pour la mise en forme conditionelle s'arrête à 3..

Merci de votre précieuse aide.

[FreeAccess]

Bonjour,
Dans ce cas, teste la valeur de ton champ "type" à l'aide de SelectCase....et en fonction de ce qu'il contient tu affecte une couleur différente au champ "maladie"...

Bonne continuation.....

[poplite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
Dim grade As String
Select Case Maladie
Case AIT
Détail.BackColor = 16777215
End Select
End Sub

quelquechose dans ce style la?
Il me dit que l'expression est sans parametre et erreur 2427

Merci beaucoup

[Lou Pitchoun]

Salut,

Je suppose que AIT est une valeur texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case "AIT"

[poplite]

ok et pour compliquer un peu.
Je veux que selon les valeurs du champs "type", le champs "maladie" soit modifié.. vs avez une idée?
merci

[FreeAccess]

Je veux que selon les valeurs du champs "type", le champs "maladie" soit modifié.. vs avez une idée?

Et bien la même chose que tu as déjà fait pour "maladie"......

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Type
Case 1
Me.Maladie.BackColor = vbRed
Case 2
Me.Maladie.BackColor = vbGreen
...
...
End Select

En espérant répondre à ton problème...

[poplite]

Ben oui j'avais bien essayé mais je me retrouve avec une erreur de syntaxe...:/

[FreeAccess]

Re,

mais je me retrouve avec une erreur de syntaxe...:/

Ce genre de phrase ne nous aide pas beaucoup......

Montre nous ton code et décris exactement le type de message que tu as....

[poplite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Report_Open(Cancel As Integer)
Dim type As String
Select Case type
Case "Cardio"
Me.Maladie.BackColor = vbRed
Case "Neuro"
Me.Maladie.BackColor = vbGreen
End Select
End Sub

Voici tel quel mon code dans l'état. Il est à noter que les lignes 2 et 3 s'affichent en rouge dans VB.

merci beaucoup beaucoup


P.S.: peut etr que le probleme vient du fait que "type" soit une liste de choix?

[Invité]

Bonjour

Essaye de mettre ton code sur l'évènement Format, au lieu d'Open de ton Etat.

Starec

[poplite]

Pas d'erreur, mais d'un autre côté ca ne marche pas


Merci de ton aide

[Lou Pitchoun]

type est un champ de ton état ??

Alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.type

non ??

De plus, je pense que l'évènement le plus adapté est "Au formatage" de la section détail.

[FreeAccess]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Report_Open(Cancel As Integer)
Dim type As String

Pourquoi dans ton SelectCase déclare tu une variable "type"

Cela n'est pas la peine, puisque ici, "type" correspond à un nom de champ qui se trouve sur ton état...
Ce champ nommé "type" doit normalement avoir plusieurs valeurs en fonction de tes enregistrements...(comme dit Kikof : "Cardio", "Neuro".......)

[poplite]

Merci beaucoup a tous. Je suis encore jeunot dans le VB..