Erreur code recherche multi-critères

**bétécé** · 22/11/2006, 16h04

Bonjour,

Je suis en train de m'inspirer du tutoriel de Caféine ( http://cafeine.developpez.com/access...echerchemulti/ ) pour mettre au point une recherche multi-critère d'après un formulaire access.
Ma base recense une série de brochures statistiques concernant l'éducation, et j'aimerais que les utilisateurs puissent, en sélectionnant des critères, voir apparaitre la liste de toutes les brochures qui correspondent à ces critères.

En pièce joint, voici le récapitulatif de mes champs et des noms de boutons qui y correspondent (ma table s'appelle tableaux statistiques)

Voila donc mon code qui lance la procédure de recherche :

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String

 SQL = "SELECT NumTableau, Public_prive, AnScolaire, DegreEnseign, TypeEtablissement, TypePersonne, TypeDonnees, TypeDiplome FROM Tableaux statistiques Where Tableaux statistiques!NumTableau <> 0 "

 If Me.chknumtabl Then
    SQL = SQL & "And Tableaux statistiques!NumTableau like '*" & Me.cmbrechnumtabl & "*' "
 End If

If Me.Chkpubpriv Then
    SQL = SQL & "And Tableaux statistiques!Public_prive like '*" & Me.cmbrechpubpriv & "*' "
 End If

If Me.chkannscol Then
    SQL = SQL & "And Tableaux statistiques!AnScolaire like '*" & Me.txtrechannscol & "*' "
 End If

If Me.chkdegrens Then
    SQL = SQL & "And Tableaux statistiques!DegreEnseign like '*" & Me.cmbrechdegrens & "*' "
 End If

 If Me.chktypeetab Then
    SQL = SQL & "And Tableaux statistiques!TypeEtablissement like '" & Me.cmbrechtypeetab & "' "
 End If

 If Me.chktyppers Then
    SQL = SQL & "And Tableaux statistiques!TypePersonne like '*" & Me.cmbrechtyppers & "*' "
 End If

 If Me.chktypdonn Then
    SQL = SQL & "And Tableaux statistiques!TypeDonnees like '*" & Me.cmbrechtypdonn & "*' "
 End If

 If Me.chktypdipl Then
    SQL = SQL & "And Tableaux statistiques!TypeDiplome = '" & Me.cmbrechtypdipl & "' "
 End If

 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"

 Me.lblStats.Caption = DCount("*", "Tableaux statistiques", SQLWhere) & " / " & DCount("*", "Tableaux statistiques")

 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery

End Sub

Mais quand je teste mon formulaire, un message d'erreur apparait : "Erreur de compilation : projet ou bibliothèque introuvable" et le mot right est souligné dans le code.

Qu'est ce qui ne colle pas ?

**mathilde50** · 22/11/2006, 16h26

A mon avis, tu as un problème déjà au niveau de la déclaration de ta table "Tableaux statistiques".

ACCESS ne doit pas pouvoir trouver cette table car il y a un espace entre les deux mots.

Essaye de mettre à la place de "Tableaux statistiques" dans ton code : Tableaux_statistiques.

Peut-être le problème vient-il de là. Mais il est aussi possible que cela ne vienne pas de là.

J'espère avoir pu t'aider un peu.

**bétécé** · 22/11/2006, 16h36

Merci de ton aide : j'ai tout remplacé, mais ça ne change rien ... L'erreur reste la même

**mathilde50** · 22/11/2006, 16h41

Alors tu n'as peut-être pas déclaré une référence dans ton code.

Pour vérifier, tu retournes dans ton code et tu cliques sur OUTILS-REFERENCES. Dans la liste qui s'affiche, regarde si tu n'as pas une ligne où apparait "introuvable" ou "absent" ou un truc de ce genre là, je ne sais plus le mot exact.

En espérant t'avoir aidé un peu plus...

**cafeine** · 22/11/2006, 18h49

Hello,

le mot c'est "MANQUANT" ...

Sinon, il faudrait peut être essayer de déboguer ton SQL ...

debug.Print SQL ou sinon regarde mon tuto de débogage ... ça pourrait être intéressant ...

http://cafeine.developpez.com/access...el/debugprint/