Discussion :

[Nounours1]

Bonjour à tous,

Combien de "VraiFaux" peut-on imbriquer dans une requête action ?, dans Excel ça doit être 6 ou 7.

VraiFaux .........VraiFaux.......VraiFaux........etc

Merci

[LedZeppII]

Bonsoir,

regarde dans l'aide d'Access la fonction Switch (PremVrai en français).
Elle remplace avantageusement des VraiFaux imbriqués.

A+

[Nounours1]

Merci,

Mais je ne trouve rien sur Switch ou PremVrai tu as une solution ?

@+

[LedZeppII]

C'est une fonction VBA.
Elle se trouve dans
Référence du langage Visual Basic
--> Fonctions
----> Q-Z
------> Switch

Aide en ligne d'Office : Switch

A+

[Nounours1]

Merci,

Donc, si j'ai bien compris
1 je crée un module
2 je colle par exemple ce code que je vais adapter:

Code :

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

1
2
3
4
5
Function MatchUp (CityName As String)
    Matchup = Switch(CityName = "London", "English", _
              CityName = "Rome", "Italian", _
              CityName = "Paris", "French")
End Function

et ensuite sous le champ de ma requête de mise à jour par exemple comment je fais ?

Merci.

[LedZeppII]

Non, pas besoin de créer un module.

Tu utilises Switch (PremVrai) comme IIf (VraiVFaux) dans une requête.

Les arguments de Switch vont toujours par paire : Expression (renvoyant Vrai ou Faux) et une valeur à renvoyer si l'expression est Vraie.
A la première expression Vraie Switch s'arrête et renvoie la valeur associée.

Un exemple de requête mise à jour.
On suppose que le champ [NumJourSemaine] contient des valeur de 1 à 7 représentant les jours de la semaine.
On veut mettre à jour le champ txtJourSemaine avec le nom du jour :

Code sql :

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

1
2
3
4
5
6
7
8
9
UPDATE MaTable,
SET txtJourSemaine = Switch([NumJourSemaine]=1,"Lundi",
			    [NumJourSemaine]=2,"Mardi",
			    [NumJourSemaine]=3,"Mercredi",
			    [NumJourSemaine]=4,"Jeudi",
			    [NumJourSemaine]=5,"Vendredi",
			    [NumJourSemaine]=6,"Samedi",
			    [NumJourSemaine]=7,"Dimanche",
			    True, "Inconnu")

Par exemple si NumJourSemaine vaut 4 et que je remplace les expressions par leur résultat booléen

Code :

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

1
2
3
4
5
6
7
8
                     Switch(False,"Lundi",
			    False,"Mardi",
			    False,"Mercredi",
			    True,"Jeudi",
			    False,"Vendredi",
			    False,"Samedi",
			    False,"Dimanche",
			    True, "Inconnu")

revoie "Jeudi" car [NumJourSemaine]=4 est la première expression Vraie en partant de la gauche.

Est-ce que tu penses que ça répond à ton besoin ?

A+

[Nounours1]

Merci beaucoup,

C'est parfait, c'est bien ce que je recherchais.

@+