Problème : "Expression trop complexe"

Version imprimable

Bonjour,

J'ai cherché des réponses sur le forum (qui m'aide bcp, étant débutant en SQL) pour un soucis dans une requête, mais sans trouver une réponse. J'espère ne pas avoir loupé un sujet, si c'est le cas, je m'excuse d'avance.

Voici mon problème : Je réalise une sélection multicritères. J'ai bien voulu tenté le coup des CASE mais sans trop de succès et suis donc revenu au IIF. Le problème est que sur la dernière "couche" de condition, Access m'indique que l'expression est trop complexe, et l'aide me renvoi une erreur type 3075.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 SELECT (ALTITUDESUPERIEURE-ALTITUDEINFERIEURE)/Longueur*100 AS Pente, IIF(LARGEURMOYENNELIT>0 AND LARGEURMOYENNELIT<=1, IIF(PENTE<=12.5,"Brèmes",IIF(PENTE<100,"Truites", IFF(LARGEURMOYENNELIT>1 AND LARGEURMOYENNELIT<=5, IIF(PENTE<=1,"Brèmes", IIF(PENTE<=3,"Barbeaux",IIF(PENTE<=7.5,"Ombres",IIF(PENTE<100,"Truites", IIF(LARGEURMOYENNELIT<=25 AND LARGEURMOYENNELIT>5, IIF(PENTE<=0.5,"Brèmes",IIF(PENTE<2,"Barbeaux",IIF(PENTE<6,"Ombres",IIF(PENTE<100,"Truites", IIF(LARGEURMOYENNELIT>25, IIF(PENTE <=0.33,"Brèmes",IIF(PENTE<1.25,"Barbeaux",IIF(PENTE<4.5,"Ombres",IIF(PENTE<100,"Truites","Hors zonation HuAND")))))))))))))))))) AS Zonation_Piscicole FROM EM_Vuille_SEUIL Into K3_tab;
En rouge, l'endroit où access semble n'être pas content. J'ai beau retourner la chose, je ne vois pas en quoi il y a problème. Est-ce une question de longueur de mes IIF?

Je connais principalement le language de Matlab, orienté objet et suis donc un peu perdu face à ce genre de soucis. Le peu de SQL que j'avais fait était une variante géographique dans le Soft Manifold...

PS : Magnifique forum, j'ai déjà pu me sortir quelques épines du pied pour mes différents projets, merci!

Bonjour

Tu imbriques sans doute trop de parenthèses. Tu peux te faciliter beaucoup la vie en faisant une procédure VBA. Tu places ceci dans un nouveau module :

Code:

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Public Function ChoisirZonation_Piscicole(LARGEURMOYENNELIT, PENTE)
 
End Function

Et dans ton SQL tu fais

Code:

1
2
3
SELECT (ALTITUDESUPERIEURE-ALTITUDEINFERIEURE)/Longueur*100 AS Pente,
ChoisirZonation_Piscicole(LARGEURMOYENNELIT, Pente) AS Zonation_Piscicole
FROM EM_Vuille_SEUIL Into K3_tab;

Ensuite, c'est du VBA. Je dois dire que je ne comprend rien à la logique de ton test parceque je ne suis pas certain qu'il soit bien écrit. Je te donne un exemple juste pour que tu voies une syntaxe possible pour résoudre ton problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function ChoisirZonation_Piscicole(LARGEURMOYENNELIT, Pente) As String
 
    Select Case LARGEURMOYENNELIT
    Case 0
    Case Is <= 1
        Select Case Pente
        Case Is <= 12.5
            ChoisirZonation_Piscicole = "Brèmes"
        Case Is <= 100
            ChoisirZonation_Piscicole = "Truites"
        End Select
    Case Is <= 5
    Case Is <= 25
    Case Else
    End Select
 
    If ChoisirZonation_Piscicole = "" Then
        ChoisirZonation_Piscicole = "Hors zonation HuAND"
    End If
End Function

06/05/2013, 10h42
Dahutroll

Hello,

Merci pour la réponse. Petite question supplémentaire. Je n'ai jamais utilisé le VBA et ne suis donc pas familier avec cet outil. La fonction contenant les CASE doit se formuler dans le modul? Dans un autre truc propre au VBA? Ou dans un endroit sombre et obscure d'Access?
06/05/2013, 12h05
mumen

Sombre et obscur, ce n'est pas le mot, parce que, dans ce cas tout ce que tu ne connais pas est sombre et obscur.

Donc oui, tu crées un nouveau module et tu copies colles le code que j'ai mis.

Ensuite, tu entres la requête en SQL et tu la lances. Si le code plante, tu te retrouves dans l'IDE VBA en mode de débogage interactif. Les tests de mise au point se fait en rafraichissant la requête. Tu vas voir que cet outillage est terriblement pratique.

J'ai bien suivi tes consigne, ce qui me donne en VBA, la chose suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Compare Database
 
Option Explicit
 
Public Function ChoisirZonation_Piscicole(LARGEURMOYENNELIT, Pente)
 
End Function
 
 
Function ChoisirZonation_Piscicole(LARGEURMOYENNELIT, Pente) As String
 
    Select Case LARGEURMOYENNELIT
    Case 0
    Case Is <= 1
        Select Case Pente
          Case Is <= 12.5
            ChoisirZonation_Piscicole = "Brèmes"
          Case Is <= 100
            ChoisirZonation_Piscicole = "Truites"
        End Select
    Case Is <= 5
        Select Case Pente
          Case Is <= 1
            ChoisirZonation_Piscicole = "Brèmes"
          Case Is <= 3
            ChoisirZonation_Piscicole = "Barbeaux"
          Case Is <= 7.5
            ChoisirZonation_Piscicole = "Ombres"
          Case Is <= 100
            ChoisirZonation_Piscicole = "Truites"
        End Select
    Case Is <= 25
        Select Case Pente
          Case Is <= 0.5
            ChoisirZonation_Piscicole = "Brèmes"
          Case Is <= 2
            ChoisirZonation_Piscicole = "Barbeaux"
          Case Is <= 6
            ChoisirZonation_Piscicole = "Ombres"
          Case Is <= 100
            ChoisirZonation_Piscicole = "Truites"
        End Select
 
    Case Is > 25
      Select Case Pente
        Case Is <= 0.33
            ChoisirZonation_Piscicole = "Brèmes"
        Case Is <= 1.25
            ChoisirZonation_Piscicole = "Barbeaux"
        Case Is <= 4.5
            ChoisirZonation_Piscicole = "Ombres"
        Case Is <= 100
            ChoisirZonation_Piscicole = "Truites"
        End Select
    Case Else
    End Select
 
    If ChoisirZonation_Piscicole = "" Then
       ChoisirZonation_Piscicole = "Hors zonation Huet"
    End If
End Function

Malgré celà, Access me rétorque une erreur de compilation dans la fonction. Comment entre-t-on dans l'IDE pour vérification de débogage interactif? (A savoir qu'au boulot, on a.... Access 97 je croit, voir peut-être 2002........ oui je pleure parfois)

07/05/2013, 12h16
Dahutroll

Nevermind...

Je suis un idiot, j'ai bêtement mis les deux fois la fonction dont une fois en public... bougre d'âne que je suis.

Merci encore pour l'aide! Ca marche du tonner, et j'ai appris des choses, bref, today was a good day! :ccool:
07/05/2013, 12h44
mumen

Salut

Tu vois, maintenant que je connais la vraie forme de ton algorithme, je sais que ton SQL était faux, qu'il imbriquait donc trop de parenthèses, qu'il aurait pu être corrigé et fonctionner !

Ça s'appelle l'esprit d'escalier. Mais ça n'empêche que c'est quand même plus lisible en VB, non ?
07/05/2013, 17h19
Dahutroll

En effet, c'est ce que j'avais suspecté, mais je n'avais pas pu en être certain. C'est clair que passer par le VB est une démarche plus élégante et relativement plus transparente aussi dans la gestion de projets futures j'imagine. Ce qui me gène encore (mais bon c'est micro-soft) est l'absence de belle balise visible. Notepad2 est toujours aussi utile pour ça.

Merci beaucoup pour l'aide!
07/05/2013, 23h01
mumen

Citation:

Ce qui me gène encore (mais bon c'est micro-soft) est l'absence de belle balise visible. Notepad2 est toujours aussi utile pour ça.

De quoi parles tu ? L'IDE VBA est un régal. Je ne vois pas ce qu'elle pourrait décisivement envier à Notepad2 ou Notepad++ (que j'utilise) pour éditer du VBA, avec l'auto-complétion, la correction syntaxique directe, sa mise en valeur et surtout, surtout le débogage interactif !