Si... alors dans une requête

**ivan7** · 21/02/2006, 19h52

Hello,

Je suis débutant et la fonction SI ALORS était bien pratique sur excel.

Deux petits problèmes avec si... alors:

1) on m'a montré le code pour créer une fonction "si...alors" que j'insère ensuite dans le critère de ma requête. Seulement ça ne marche plus avec le nouveau filtre que j'ai fait. Quand je suis dans VBA, le formulaire filtre avec des zone de listes déroulantes auxquelles je veux faire référence n'apparait pas dans les "access object". Du coup, il m'est impossible de faire référence à mes zone de liste dans ma fonction.
une idée?

2) y a til un autre moyen plus simple de faire des "si... alors"? Par exemple avec le générateur d'expression (je n ai pas réussi)

je sais que ça semble bizarre mais je bloque vraiment et ne sais pas pour quoi, surtout en ce qui concerne le 1)

Merci

**charleshbo** · 21/02/2006, 19h56

Voici la structure d'un SI...ALORS

Il s'agit d'un IF THEN END IF

Tu dois procéder comme ceci...

Code :

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

1
2
3
4
 
If condition1 Then
instruction1
End If

tu peux aussi mettre plusieurs conditions ou des SINON (ELSE, ELSEIF)

Code :

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

1
2
3
4
5
6
7
8
 
If condition1 Or/And condition2 Then
instruction1
ElseIf condition3 Then
instruction2
Else
instruction3
End If

en esperant t'avoir éclairci un peu...

**ivan7** · 21/02/2006, 20h03

oui, c'est sympa merci.

Mais je connaissais. Et justement, le truc bizarre c'est que ça ne marche plus avec mon nouveau formulaire (qui me sert de filtre pour faire des états selon plusieurs listes déroulantes)...: mes nouveaux fomulaires créés ne semble pas reconnu dans le code, c'est possible?

**charleshbo** · 21/02/2006, 21h15

post ton code pour voir

**ivan7** · 21/02/2006, 21h26

ok je frais demain là je suis son un mac

merci :)

**charleshbo** · 21/02/2006, 21h36

ok envoie moi un MP quand tu aura posté...

**ivan7** · 22/02/2006, 12h17

voilà mon code:

Code :

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

1
2
3
4
5
6
7
Public Function Critere8() As Variant'
If Form_Forulaire1.Modifiable12<> "" Then
       Critere8=Form_Forulaire1.Modifiable12
Else
       Critere8="%"
End If
End Function

**Heureux-oli** · 22/02/2006, 12h31

J'ai un autre moyen.
Ca ne répond pas à la question mais ça la contourne.

Dans la propriété du contrôle "Valeur par défaut", mets une *.
Fais une requête qui sert de filtre et dans le critère,
mets Like [modifiablex].

Si une valeur se trouve dans le contrôle, elle sert de critère, si pas de valeur, tous les enregistrements sont affichés.

**ivan7** · 22/02/2006, 12h41

Merci!!!!

C'est f abuleusement génialissime et ça me rends grand service.

Mais il me rste quand même une petite partie du problème. Car j aimerais pouvoir me servir de ces si alors, notamment pour une case à cocher triple état où je risque d'avoir le même problème.

Mais merci beaucoup, ça va me simplifier la vie

**Heureux-oli** · 22/02/2006, 13h05

En général, j'utilise les assistants de requête et je n'écris rien en SQL (ça viendra peut-être.

Dans la case ou se trouve le nom du champ, tu entre un nom quelconque qui sera le nom de ton champ dans l'affichage du résultat.

Nomqq : iif([Caseàcocher]=1;Valeur si vrai;Valeur si faux).

Valeur si vrai ou Valeur si faux peuvent à leur tour être remplacée par un immediate If (iif).

**seacat** · 22/02/2006, 13h33

bonjour,

en lisant

Form_Forulaire1.Modifiable12

je suggère:

-vérifier la syntaxe du code car, sauf si erreur de frappe lors du post, un Form_Formulaire1 serait plus propice

- utiliser des noms de champs & formulaires plus précis pour faciliter les recherches

- peut être faire explicitement référence à la propriété à tester du
champ Modifiable12 (ex if Form_Forulaire1.Modifiable12.value = x then...)

cordialement,

**ivan7** · 22/02/2006, 13h40

top cette fonction iif
effectivement c'est simple et efficace. merci merci
et tant que j'y suis :-)

pour avoir

si 3 <[exp]<5 alors 1;
ou si [exp]>5 alors 2
sinon 0

tu formalises ça comment?

**ivan7** · 22/02/2006, 13h42

heu oui c'est une erreur de frappe

je vais essayer avec .value

merci

**charleshbo** · 22/02/2006, 14h03

Envoyé par ivan7

top cette fonction iif
effectivement c'est simple et efficace. merci merci
et tant que j'y suis :-)

pour avoir

si 3 <[exp]<5 alors 1;
ou si [exp]>5 alors 2
sinon 0

tu formalises ça comment?

je t'ai deja montrer comment formaliser cela, regarde plus haut.

**Heureux-oli** · 22/02/2006, 14h56

Envoyé par ivan7

top cette fonction iif
effectivement c'est simple et efficace. merci merci
et tant que j'y suis :-)

pour avoir

si 3 <[exp]<5 alors 1;
ou si [exp]>5 alors 2
sinon 0

tu formalises ça comment?

Iif (3<[Exp]<5; 1;iif([exp]>5;2;0))

**charleshbo** · 22/02/2006, 15h12

merci d'utiliser la balise code...

Tu peux aussi faire

Code :

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

1
2
3
4
5
6
7
8
 
If 3 < exp < 5 Then
   1
ElseIf exp > 5
   2
Else
   0
End If

en mettant tes crochets, je ne les ai pas sur mon clavier... ou bien je ne connais pas les code ALT pour les crochets...

**ivan7** · 23/02/2006, 23h32

re... toujours le même problème...

la fonction Iif est bien pratique, mais pour un état filtré avec plein de critères et de conditions ça finit par faire quelque chose d'un peu lourd et access rame un peu (ou alors je m'y prends mal)

Quoi qu'il en soit j'ai toujours le même problème avec mon code que je vous avais mis plus haut. En fait le problème est exactement celui ci:

Quand je fait référence à un formulaire dans une fonction If dans un module, j'ai une liste de possiblité avec (notamment) mes différentes zones de listes déroulantes appartenant au formulaire auquel je fais référence qui apparait :

Form_monform. et là ma liste de possibilités. Ce qui montre que mon formulaire est "reconnu". Or, là, rien ne s'affiche et le code n'est pas considéré comme bon quand j'insère la fonction dans la requête. Une idée?

**Arkham46** · 24/02/2006, 00h55

slt,

la fonction Iif est bien pratique, mais pour un état filtré avec plein de critères et de conditions ça finit par faire quelque chose d'un peu lourd et access rame un peu (ou alors je m'y prends mal)

si plus de deux expressions à évaluer alors utiliser switch :

Code :

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

switch(3 <[exp]<5,1,[exp]>5,2,true,0)

retourne la valeur correspondant à la première expression vraie

donc pour accélérer les traitements, mettre les expressions les plus souvent vraies en premier

Form_monform. et là ma liste de possibilités. Ce qui montre que mon formulaire est "reconnu". Or, là, rien ne s'affiche et le code n'est pas considéré comme bon quand j'insère la fonction dans la requête. Une idée?

utilise le générateur d'expression pour faire appel à tes contrôles depuis une requête, ça te donnera la syntaxe

**ivan7** · 24/02/2006, 13h00

Merci pour le Switch!

Mais pour le deuxième problème ce n'est pas dans la requête que j'ai un problème, c'est dans mon module.

Je crée une fonction

Code :

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

1
2
3
4
5
6
7
Public Function Critere8() As Variant' 
If Form_Formulaire1.Modifiable12<> "" Then 
Critere8=Form_Formulaire1.Modifiable12 
Else 
Critere8="%" 
End If 
End Function

et d'habitude, après le point de Form_Formulaire1. ça me propose une liste de choix, dont Modifiable12 normalement. Or la fontion bug, et je ne sait pas pourquoi. Pour mon autre filtre ça marchait...