Recherche Multi-criteres Erreur 3075

**TomskyChina** · 06/08/2009, 07h23

Bonjour,

J'ai cree une recherche multicriteres fonctionnant a merveille.
Cependant, je voudrais trier les resultats par ordre alphabetique selon le champ "Supplier".

Access m'affiche alors cette erreur :

Run-time error '3075'
Erreure de syntaxe (operateur absent) dans l'expression ??Base!ID <>0 And Category = 'Sport'Or Category2 = 'Sport' Or Category3 = 'Sport' ORDER BY Base.Supplier??.

Code :

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

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT ID, Supplier, Category, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ORDER BY Base.Supplier "
 
If Not Me.chkCategory Then
    SQL = SQL & "And Base!Category = '" & Me.cmbRechCategory & "' "
End If
If Not Me.chkSupplier Then
    SQL = SQL & "And Base!Supplier like '*" & Me.txtRechSupplier & "*' "
End If
If Not Me.chkCountry Then
    SQL = SQL & "And Base!Country = '" & Me.cmbRechCountry & "' "
End If
 
If Not Me.chkType Then
    SQL = SQL & "And Base!Type = '" & Me.cmbRechType & "' "
End If
 
If Not Me.chkProvince Then
    SQL = SQL & "And Base!Province = '" & Me.cmbRechProvince & "' "
End If
 
If Not Me.chkTurnover Then
    SQL = SQL & "And Base!Turnover = '" & Me.cmbRechTurnover & "' "
End If
 
If Not Me.chkExport Then
    SQL = SQL & "And Base!Export = '" & Me.cmbRechExport & "' "
End If
 
If Not Me.chkStatus Then
    SQL = SQL & "And Base!Status = '" & Me.cmbRechStatus & "' "
End If
 
If Not Me.chkImpression Then
    SQL = SQL & "And Base!Impression = '" & Me.cmbRechImpression & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Base", SQLWhere) & " / " & DCount("*", "Base")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

En vous remerciant par avance des reponses que vous pourrez m'apporter,

Bonne journee

**Chtulus** · 06/08/2009, 11h53

Bonjour,

A mon avis il faudrait placer le ORDER BY au niveau de tes IF...

Car là tu fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
-- Mauvaise synthaxe
SELECT...
FROM...
WHERE...
ORDER BY...
AND... 
 
-- Bonne synthaxe
SELECT...
FROM...
WHERE...
AND... 
ORDER BY...

**TomskyChina** · 06/08/2009, 13h25

Je pense comprendre ce que tu veux dire.

Je pense que cela doit etre simple a coder mais je n'y suis pas arrive.

Peux tu je te prie uniquement recoder un des IF pour que je puisse voir a quoi cela doit ressembler?

Merci d'avance

**Chtulus** · 06/08/2009, 13h49

Oui monsieur,

Code :

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

1
2
3
If Not Me.chkCategory Then
    SQL = SQL & "And Base!Category = '" & Me.cmbRechCategory & "' ORDER BY Base.Supplier "
End If

Ainsi ta requête complète donnera (Pense à virer la clause ORDER BY de ta première ligne) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SELECT ID
         , Supplier
         , Category
         , Type
         , Country
         , Province
         , Turnover
         , Export
         , Status
         , Impression 
FROM Base 
Where Base!ID <> 0 
-- Pense a ajouter des parenthèses
   And 
(
         Category = 'Sport' 
     Or Category2 = 'Sport' 
     Or Category3 = 'Sport'
)
   And Base!Category = '" & Me.cmbRechCategory & "' 
ORDER BY Base.Supplier

**TomskyChina** · 07/08/2009, 10h10

Merci beaucoup, la recherche fonctionne!

Par contre, J'avais code une petite statistique qui me donnait le nombre de contacts trouves par rapport a l'ensemble de ma base et le fait d'ajouter le classement alphabetique avec "ORDER BY" le fait buggera la troisieme ligne avant la fin "Me.lblStats.Caption = DCount("*", "Base", SQLWhere) & " / " & DCount("*", "Base")".

En voici le code complet...

Code :

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

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
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where ( Category = 'Sport'Or Category2 = 'Sport' Or Category3 = 'Sport' ) Order by Base.Supplier ;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) ORDER BY Base.Supplier "
 
If Not Me.chkSupplier Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Supplier like '*" & Me.txtRechSupplier & "*' ORDER By Base.Supplier "
End If
If Not Me.chkCountry Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Country = '" & Me.cmbRechCountry & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkType Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Type = '" & Me.cmbRechType & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkProvince Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Province = '" & Me.cmbRechProvince & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkTurnover Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Turnover = '" & Me.cmbRechTurnover & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkExport Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Export = '" & Me.cmbRechExport & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkStatus Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Status = '" & Me.cmbRechStatus & "' ORDER BY Base.Supplier "
End If
 
If Not Me.chkImpression Then
    SQL = "SELECT ID, Supplier, Type, Country, Province, Turnover, Export, Status, Impression FROM Base Where Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Impression = '" & Me.cmbRechImpression & "' ORDER BY Base.Supplier "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Base", SQLWhere) & " / " & DCount("*", "Base")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Si jamais la solution vous saute aux yeux, merci d'avance!

Bonne journee

**Chtulus** · 07/08/2009, 10h26

salut ^^

Tu as quoi comme message d'erreur ?

**TomskyChina** · 07/08/2009, 10h33

Le malheureusement recurrent Run-time error '3075'

Erreur de syntaxe (operateur absent) dans l'expression ??Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' ) And Base!Type = " ORDER BY Base.Supplier??.

**Chtulus** · 07/08/2009, 11h50

Oui il te manque quelque chose...

Code :

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

1
2
 
And Base!Type = " <== [LA] ORDER BY Base.Supplier

Tu ne fais pas de test si "Type" est vide.... Il faudrait afficher un message !

**TomskyChina** · 07/08/2009, 12h10

Ok, merci beaucoup!

**vodiem** · 09/08/2009, 03h36

salut Chtulus

et bienvenu TomskyChina,

je remarque une différence notable entre tes deux codes TomskyChina.
tu as à l'origine comme critère en fin de traitement "A et B et C" dans le deuxième cas "A" ou "B" ou "C".

je te conseil de construire ta requete en plusieurs étape:

Code :

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

1
2
3
4
5
6
7
8
9
maSQL="SELECT * FROM Base"
critere="Base!ID <> 0 And ( Category = 'Sport' Or Category2 = 'Sport' Or Category3 = 'Sport' )"
critere=critere & iif(chkSupplier,"", " And Base!Supplier like '*" & txtRechSupplier & "*'")
critere=critere & iif(chkCountry,"", " And Base!Country = '" & cmbRechCountry & "'")
...
 
maSQL=maSQL & " WHERE " & critere & " ORDER BY Base.Supplier"
 
...

si c'est le cas "A" ou "B" ou "C":

Code :

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

1
2
3
4
5
critere2=iif(chkSupplier,"", " And Base!Supplier like '*" & txtRechSupplier & "*'")
critere2=iif(chkCountry,"", " And Base!Country = '" & cmbRechCountry & "'")
...
critere=critere & critere2
...

tu peux ainsi utiliser "critere" pour le DCount.
il est possible aussi d'obtenir le même résultat avec:

Code :

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

Me.lblStats.Caption = Me.Recordset.RecordCount & " / " & DCount("*", "Base")

ou plus simplement utiliser un champ calculé en entete ou pied de page:

Code :

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

=Compte(*) & "/" & CpteDom("*","Table1")

Recherche Multi-criteres Erreur 3075 [AC-2003]

Requêtes et SQL.

Discussions similaires

Partager

Partager