Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access ElseIf et methode sur condition

ElseIf et methode sur condition

5 réponses
Avatar
Nina
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et les conditions
d'autres champs (date_vidange > l'an 2000, ou camps non nul pour trait_FTE,
Trait_FS, Trait_EV, trait_EM, ...) afficher des etiquettes (PreT valide ou
non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition supplemenatire n'est
pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament il existe la methode
des select Case que je ne maitrise pas du tout...peut etre autre chose ??

Pouvez vous , SVP, m'expliquer pourquoi mes conditions supplementaires ne
fonctionnent pas et comment il remedier et aussi si cela est possible, une
methode peut etre plus adaptée a mon objectif d'affichage.

Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub
Signaler un problème avec ce contenu

5 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
SAlut,
Voici une methode bien plus simple a installer dans "On
Curent" de ton formulaire et "after Update" de ton champ
condition:

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3)





-----Message d'origine-----
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et
les conditions

d'autres champs (date_vidange > l'an 2000, ou camps non
nul pour trait_FTE,

Trait_FS, Trait_EV, trait_EM, ...) afficher des
etiquettes (PreT valide ou

non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition
supplemenatire n'est

pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament il
existe la methode

des select Case que je ne maitrise pas du tout...peut
etre autre chose ??


Pouvez vous , SVP, m'expliquer pourquoi mes conditions
supplementaires ne

fonctionnent pas et comment il remedier et aussi si cela
est possible, une

methode peut etre plus adaptée a mon objectif
d'affichage.


Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub


.



Avatar
Nina
Boujour,

ce n'est pas ce qu'il me faut.
il s'agit de selon la valeur de plusieurs champs d'afficher un
message/images pour valider que des critères de validité sont atteint..
ces criteres sont variables selon la valeur de de mon champs Pret_type.
Mais merci quand meme

Nina

a écrit dans le message de news:
046a01c4d79d$ff9d6940$
SAlut,
Voici une methode bien plus simple a installer dans "On
Curent" de ton formulaire et "after Update" de ton champ
condition:

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3)





-----Message d'origine-----
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et
les conditions

d'autres champs (date_vidange > l'an 2000, ou camps non
nul pour trait_FTE,

Trait_FS, Trait_EV, trait_EM, ...) afficher des
etiquettes (PreT valide ou

non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition
supplemenatire n'est

pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament il
existe la methode

des select Case que je ne maitrise pas du tout...peut
etre autre chose ??


Pouvez vous , SVP, m'expliquer pourquoi mes conditions
supplementaires ne

fonctionnent pas et comment il remedier et aussi si cela
est possible, une

methode peut etre plus adaptée a mon objectif
d'affichage.


Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub


.



Avatar
Ghislain
Re salut,

Je pense franchement que c est ce qu il te fo, si tu veux
plusieurs conditions tu utilise "And"

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3) And (Forms!TaForm!
[TonChampCondition2]=9)

Ce code rend tonchamp visible lorsque les conditions 1 et
2 sont remplis... A moins que ce ne soit pas ce que tu
veux, mais c comme ca que je l ai compris ...

-----Message d'origine-----
Boujour,

ce n'est pas ce qu'il me faut.
il s'agit de selon la valeur de plusieurs champs
d'afficher un

message/images pour valider que des critères de validité
sont atteint..

ces criteres sont variables selon la valeur de de mon
champs Pret_type.

Mais merci quand meme

Nina

a écrit dans le
message de news:

046a01c4d79d$ff9d6940$
SAlut,
Voici une methode bien plus simple a installer dans "On
Curent" de ton formulaire et "after Update" de ton champ
condition:

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3)





-----Message d'origine-----
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et
les conditions

d'autres champs (date_vidange > l'an 2000, ou camps non
nul pour trait_FTE,

Trait_FS, Trait_EV, trait_EM, ...) afficher des
etiquettes (PreT valide ou

non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition
supplemenatire n'est

pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament il
existe la methode

des select Case que je ne maitrise pas du tout...peut
etre autre chose ??


Pouvez vous , SVP, m'expliquer pourquoi mes conditions
supplementaires ne

fonctionnent pas et comment il remedier et aussi si cela
est possible, une

methode peut etre plus adaptée a mon objectif
d'affichage.


Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub


.




.




Avatar
Nina
et bien desolée mais merci kan mm..

Ce kil me faut c'est bien rendre visible, selon des condition, une
etiquette....
ta methode ca donne ca avec mes données :
Forms![Filiere]!ETQ_PreT_NV.Visible = Forms![Filiere]!Pret_Type.Value = 0 Or
Forms![Filiere]!Pret_Type.Value = 999
Forms![Filiere]!ETQ_PreT_V.Visible = Forms![Filiere]!Pret_Type.Value <> 0 Or
Forms![Filiere]!Pret_Type.Value <> 999
Forms![Filiere]!ETQ_PreT_NV.Visible = Forms![Filiere]!Pret_Type.Value = 0 Or
Forms![Filiere]!Pret_Type.Value = 999
mais alors je ne peux pas rendre mon etiquette "ETQ_PreT_NV" visble pour le
cas ou le PreT est NV c'est a dire non valide.
Ce que je cherche a faire c'est commuler des conditions pour pouvoir
afficher : c'est ok (avec ETQ_PreT_V cad PreT valide) ou c'est pas ok (avec
ETQ_PreT_NV cad PreT non valide)
Ca ca marche aussi avec mes IF THEN mais la ou ca coince c'est que la
validité des PreT depend de information de TRait_QQChose (eux meme assez
nombreux comme critere) et qui change selon la valeur de du type de PreT
(Pret_Type).
ce qui bloque en faite c'est que la conditionsupplementaire en ELseIF n'est
pas prises en compte (???) et que le code est tres tres redondant -

J'essaie d'etre claire mais je ne crois pas l'etre...desolé.
Si vous pouvez quand mm m'aider !!
MErci encore
N.

"Ghislain" a écrit dans le message de
news: 04a201c4d7a7$8c44dcd0$
Re salut,

Je pense franchement que c est ce qu il te fo, si tu veux
plusieurs conditions tu utilise "And"

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3) And (Forms!TaForm!
[TonChampCondition2]=9)

Ce code rend tonchamp visible lorsque les conditions 1 et
2 sont remplis... A moins que ce ne soit pas ce que tu
veux, mais c comme ca que je l ai compris ...

-----Message d'origine-----
Boujour,

ce n'est pas ce qu'il me faut.
il s'agit de selon la valeur de plusieurs champs
d'afficher un

message/images pour valider que des critères de validité
sont atteint..

ces criteres sont variables selon la valeur de de mon
champs Pret_type.

Mais merci quand meme

Nina

a écrit dans le
message de news:

046a01c4d79d$ff9d6940$
SAlut,
Voici une methode bien plus simple a installer dans "On
Curent" de ton formulaire et "after Update" de ton champ
condition:

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3)





-----Message d'origine-----
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et
les conditions

d'autres champs (date_vidange > l'an 2000, ou camps non
nul pour trait_FTE,

Trait_FS, Trait_EV, trait_EM, ...) afficher des
etiquettes (PreT valide ou

non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition
supplemenatire n'est

pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament il
existe la methode

des select Case que je ne maitrise pas du tout...peut
etre autre chose ??


Pouvez vous , SVP, m'expliquer pourquoi mes conditions
supplementaires ne

fonctionnent pas et comment il remedier et aussi si cela
est possible, une

methode peut etre plus adaptée a mon objectif
d'affichage.


Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub


.




.




Avatar
Ghislain
Je sais pas si tu as vu mais tu as mis "Or" au lieu
de "and" qui etait dans mon code... peut etre que c a
marchera.
Sinon essaye de jouer avec les valeurs par default a l
ouverture, j imagine que certain champs sont visibles et
d'autres non a louverture de ton formulaire, joue avec
l'option visible ds les proprietes de tes champs.
Et noublie pas de mettre ce code a "on current" du
formulaire et "AFter Update" de ton champ condition.
J espere que ca marchera en tout cas
A+ Ghislain



-----Message d'origine-----
et bien desolée mais merci kan mm..

Ce kil me faut c'est bien rendre visible, selon des
condition, une

etiquette....
ta methode ca donne ca avec mes données :
Forms![Filiere]!ETQ_PreT_NV.Visible = Forms![Filiere]!
Pret_Type.Value = 0 Or

Forms![Filiere]!Pret_Type.Value = 999
Forms![Filiere]!ETQ_PreT_V.Visible = Forms![Filiere]!
Pret_Type.Value <> 0 Or

Forms![Filiere]!Pret_Type.Value <> 999
Forms![Filiere]!ETQ_PreT_NV.Visible = Forms![Filiere]!
Pret_Type.Value = 0 Or

Forms![Filiere]!Pret_Type.Value = 999
mais alors je ne peux pas rendre mon
etiquette "ETQ_PreT_NV" visble pour le

cas ou le PreT est NV c'est a dire non valide.
Ce que je cherche a faire c'est commuler des conditions
pour pouvoir

afficher : c'est ok (avec ETQ_PreT_V cad PreT valide) ou
c'est pas ok (avec

ETQ_PreT_NV cad PreT non valide)
Ca ca marche aussi avec mes IF THEN mais la ou ca coince
c'est que la

validité des PreT depend de information de TRait_QQChose
(eux meme assez

nombreux comme critere) et qui change selon la valeur de
du type de PreT

(Pret_Type).
ce qui bloque en faite c'est que la
conditionsupplementaire en ELseIF n'est

pas prises en compte (???) et que le code est tres tres
redondant -


J'essaie d'etre claire mais je ne crois pas
l'etre...desolé.

Si vous pouvez quand mm m'aider !!
MErci encore
N.

"Ghislain" a écrit
dans le message de

news: 04a201c4d7a7$8c44dcd0$
Re salut,

Je pense franchement que c est ce qu il te fo, si tu veux
plusieurs conditions tu utilise "And"

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3) And (Forms!TaForm!
[TonChampCondition2]=9)

Ce code rend tonchamp visible lorsque les conditions 1 et
2 sont remplis... A moins que ce ne soit pas ce que tu
veux, mais c comme ca que je l ai compris ...

-----Message d'origine-----
Boujour,

ce n'est pas ce qu'il me faut.
il s'agit de selon la valeur de plusieurs champs
d'afficher un

message/images pour valider que des critères de validité
sont atteint..

ces criteres sont variables selon la valeur de de mon
champs Pret_type.

Mais merci quand meme

Nina

a écrit dans le
message de news:

046a01c4d79d$ff9d6940$
SAlut,
Voici une methode bien plus simple a installer dans "On
Curent" de ton formulaire et "after Update" de ton champ
condition:

Forms!TaForm![TonChamp].Visible = (Forms!TaForm!
[TonChampCondition] > 3)





-----Message d'origine-----
Boujour
Je souhaite selon la valeur de mon champs Pret_Type et
les conditions

d'autres champs (date_vidange > l'an 2000, ou camps non
nul pour trait_FTE,

Trait_FS, Trait_EV, trait_EM, ...) afficher des
etiquettes (PreT valide ou

non valide ou T vaide ou non valide).

Et la , j'ai deux problemes :
- les ELSEIF ne fonctionnent pas cas que la condition
supplemenatire n'est

pas prise en compte....?
- Je trouve pas ca tres bo comme methode, apparament
il



existe la methode
des select Case que je ne maitrise pas du tout...peut
etre autre chose ??


Pouvez vous , SVP, m'expliquer pourquoi mes conditions
supplementaires ne

fonctionnent pas et comment il remedier et aussi si
cela



est possible, une
methode peut etre plus adaptée a mon objectif
d'affichage.


Merci par avance
Nina

Private Sub Form_Current()

'si PreT es enexistant ou sans info
If Pret_Type.Value = 0 Or Pret_Type.Value = 999 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True
'date vidange
ElseIf Pret_Date_vidange >= 2000 Then
ETQ_PreT_V.Visible = False
ETQ_PreT_NV.Visible = True

Else: ETQ_PreT_V.Visible = True
ETQ_PreT_NV.Visible = False
End If


'PreTraitement = 1
If Pret_Type.Value = 1 And Trait_FTE Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'Pretraitement = 2

If Pret_Type.Value = 2 And Trait_FS Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If


'Pretraitement = 3
If Pret_Type.Value = 3 And Trait_EM Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
ElseIf Trait_EV Is Nothing Then
ETQ_T_NV.Visible = True
ETQ_T_V.Visible = False
Else
ETQ_T_NV.Visible = False
ETQ_T_V.Visible = True
End If

'.....etc sur d'autre Pret_Type
End Sub


.




.




.