Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Conditions avec entre

Conditions avec entre

3 réponses
Avatar
EM
Ce petit programme me permet d'afficher « Normal » quand on lui indique «
20 » dans le champs TotalPositive. Comment faire pour indiquer une valeur
entre 10 et 20 pour afficher aussi dans le champs MMSResultat « Normal »
Merci si vous pouvez m'aider .



Private Sub Form_Current()

With CodeContextObject

If (.TotalPositive = 20) Then

Form!MMSResultat = "Normal"

End If

End With

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonsoir.

il est préférable d'utiliser select case qui sera plus facile à modifier
plus tard en cas de rajout de valeurs:
1-
Select Case TotalPositive
Case 20: Forms!FormName!MMSResultat = "Normal"
Case 10 To 19: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

2-
Select Case TotalPositive
Case 10 To 19, 20: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

ce ne sont que des exemples. on peut passer par des If ou des IIf .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"EM" a écrit dans le message de news:
%
Ce petit programme me permet d'afficher « Normal » quand on lui indique «
20 » dans le champs TotalPositive. Comment faire pour indiquer une valeur
entre 10 et 20 pour afficher aussi dans le champs MMSResultat « Normal »
Merci si vous pouvez m'aider .



Private Sub Form_Current()

With CodeContextObject

If (.TotalPositive = 20) Then

Form!MMSResultat = "Normal"

End If

End With

End Sub








Avatar
EM
Bonsoir Raymond
Je te remercie de ta reponse rapide mais je ne suis pas arrivée à appliquer
tes exemples.Je ne suis pas une pro...Si tu peux me donner un peu plus
d'explications
Merci d'avance


Bonsoir.

il est préférable d'utiliser select case qui sera plus facile à modifier
plus tard en cas de rajout de valeurs:
1-
Select Case TotalPositive
Case 20: Forms!FormName!MMSResultat = "Normal"
Case 10 To 19: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

2-
Select Case TotalPositive
Case 10 To 19, 20: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

ce ne sont que des exemples. on peut passer par des If ou des IIf .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"EM" a écrit dans le message de news:
%
Ce petit programme me permet d'afficher « Normal » quand on lui indique
«


20 » dans le champs TotalPositive. Comment faire pour indiquer une
valeur


entre 10 et 20 pour afficher aussi dans le champs MMSResultat «
Normal »


Merci si vous pouvez m'aider .



Private Sub Form_Current()

With CodeContextObject

If (.TotalPositive = 20) Then

Form!MMSResultat = "Normal"

End If

End With

End Sub












Avatar
Raymond [mvp]
Bonsoir.

le contrôle Forms!FormName!MMSResultat doit être chargé avec la valeur
"Normal" sir la valeur de tyotyalpositive est comprise entre 10 et 20.
plutôt que de passer par des If ou IIf qui sont difficilement modifiables en
cas de listes longues , on passe par select case dans lequel on indique les
tranches de valeurs et bles fonctions à appliquer.
tu présentes la procédure de deux façons différentes:
Select Case TotalPositive
Case 20: Forms!FormName!MMSResultat = "Normal"
Case 10 To 19: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

Select Case TotalPositive
Case 20
Forms!FormName!MMSResultat = "Normal"


Case 10 To 19
Forms!FormName!MMSResultat = "Normal"


Case Else
Forms!FormName!MMSResultat = "Anormal"


End Select



ce qui laisse une marge de manoeuvre pour les modifs futures.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"EM" a écrit dans le message de news:

Bonsoir Raymond
Je te remercie de ta reponse rapide mais je ne suis pas arrivée à
appliquer
tes exemples.Je ne suis pas une pro...Si tu peux me donner un peu plus
d'explications
Merci d'avance


Bonsoir.

il est préférable d'utiliser select case qui sera plus facile à modifier
plus tard en cas de rajout de valeurs:
1-
Select Case TotalPositive
Case 20: Forms!FormName!MMSResultat = "Normal"
Case 10 To 19: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

2-
Select Case TotalPositive
Case 10 To 19, 20: Forms!FormName!MMSResultat = "Normal"
Case Else: Forms!FormName!MMSResultat = "Anormal"
End Select

ce ne sont que des exemples. on peut passer par des If ou des IIf .

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"EM" a écrit dans le message de news:
%
Ce petit programme me permet d'afficher « Normal » quand on lui indique
«


20 » dans le champs TotalPositive. Comment faire pour indiquer une
valeur


entre 10 et 20 pour afficher aussi dans le champs MMSResultat «
Normal »


Merci si vous pouvez m'aider .



Private Sub Form_Current()

With CodeContextObject

If (.TotalPositive = 20) Then

Form!MMSResultat = "Normal"

End If

End With

End Sub