Discussion :

[Gérald03]

Bonjour,
Voici un code qui me pose un problème ! Les deux premières conditions fonctionnent parfaitement, par contre la dernière ne fonctionne pas
< "0". Je ne comprends pas !!

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
If (Result > "0") Then
Me.Result.BackColor = QBColor(10)
ElseIf (Result = "0") Then
Me.Result.BackColor = QBColor(14)
ElseIf (Result < "0") Then
Me.Result.BackColor = QBColor(12)
End If
End Sub

Merci pour votre aide

GERALD

[Gérald03]

Bonjour,

voici un petit code qui me pose problème, les deux premières conditions fonctionnent parfaitement, par contre la dernière ne fonctionne pas? Pourquoi ?
(le champ Result est un champ indépendant avec une formule dans le source contrôle),

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
If (Result > "0") Then
Me.Result.BackColor = QBColor(10)
ElseIf (Result = "0") Then
Me.Result.BackColor = QBColor(14)
ElseIf (Result < "0") Then
Me.Result.BackColor = QBColor(12)
End If
End Sub

Cordialement
GERALD

[titi95]

Bonsoir

la dernière ne fonctionne pas

la condition, le QBColor(12), ... ?

Result est numérique ou texte ?


Par ailleurs, n'oublie pas de fermer l'autre discussion identique. (avec Résolu)

[Gérald03]

le champ result est numérique

GERALD

[titi95]

Après un petit ménage, à essayer

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    If Result > 0 Then
        Me.Result.BackColor = QBColor(10)
    ElseIf Result = 0 Then
        Me.Result.BackColor = QBColor(14)
    ElseIf Result < 0 Then
        Me.Result.BackColor = QBColor(12)
    End If
End Sub

RAPPEL : Par ailleurs, n'oublie pas de fermer l'autre discussion identique. (avec Résolu)

[tee_grandbois]

bonsoir,
pourquoi des guillemets autour de 0, ce n'est pas du numérique ?

[Gérald03]

Bjr,

je viens d'essayer, impeccable. Apparemment Il fallait enlever les parenthèses !!!
je n'avais pas pensé à le faire

Merci beaucoup

Cordialement

GERALD