Discussion :

[Virgile59]

Amis du jour bonjour,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande327_Click()
If Me.Total_01.Value > 36000 Or Me.Total_01.Value < 29000 Then
MsgBox "Litrage incorrecte sur total du 1er dépotage !"
Me.Total_01.SetFocus
Else
DoCmd.OpenForm "F_Menu"
End If
EndSub

Voilà j'ai ce code qui fonctionne bien mais, car il y en à toujours un je voudrais que le code regarde si Totale_01 est >36000 ou < à 29000 uniquement que si la case à cocher Carbu_01 est coché.
Comment coder cette condition au sein de l'existante ?
Merci d'avance...

[Virgile59]

Code :

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

If Me.Total_01.Value > 36000 Or Me.Total_01.Value < 29000 And Me.Total_01 = True Then

Fonctionne pas

[Arkham46]

Salut,

Me.Total_01 = True

: :

Si c'est pour la case à cocher ben il faut comparer la valeur de la case à cocher; là tu testes si ton total est vrai....

[Virgile59]

Je voudrais qu'il regarde si les valeurs sont comprisent entren 36000 et 29000 mais uniquement si la case à cocher est cochée.

aide pour le code

[Arkham46]

ben remplace :

Code :

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

Me.Total_01 = True

par :

Code :

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

Me.LeNomDeLaCaseACocher = True

Non? C'est pas logique?

Je ne vois pas pourquoi tu testes si ton total est vrai, ça ne veut rien dire...

[cafeine]

Déjà ... petite erreur sur la logique ... il faut mettre And à la place de Or

If X > 10 Or X < 15 => X peut prendre toutes les valeurs possibles

If X > 10 And X < 15 => X est compris entre 10 et 15 exclus ] 10 ; 15 [

Ensuite comme en maths il faut mettre des priorités dans l'évaluation de ton test.

Code :

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

If ( X > 10 And X < 15 ) And ( Me.CaseACocher ) Then

[Virgile59]

Merci