Erreur de Compilation en SQL

Version imprimable

Bonjour à tous,
Voilà j'ai écris ces quelque ligne de SQL, mais ça ne fonctionne pas!!!:?

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
Option Compare Database
 
Private Sub cmbFait par_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbFait par2_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
 
        Case "txt"
            ctl.Value = ""
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT Fait par FROM TablePrincipale;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Fait par FROM TablePrincipale Where TablePrincipale!N° de Série de la Carte: <> 0 "
 
If Not Me.cmbFait par Then
    SQL = SQL & "And TablePrincipale!Fait par like '*" & Me.cmbFait par & "*' "
End If
If Not Me.cmbFait par2 Then
    SQL = SQL & "And TablePrincipale!Fait par = '" & Me.cmbFait par2 & "' "
End If
 
SQL = SQL & ";"
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmN° de Série de la Carte:", acNormal, , "[N° de Série de la Carte:] = " & Me.lstResults
 
 
End Sub

Access m'écrit:
Erreur de compilation
Attendu: fin d'instruction

Je pense que c'est à cause des noms de mes tables qui sont composés d'espaces!!?? Mais comme je suis débutant en SQL, je n'ai s'est pas comment corriger cela, et même s'il s'agit bien de cela...

Merci d'avance pour votre aide

08/07/2008, 09h35
Chtulus

Bonjour,

Quel code ! 8O

Pour les espaces utilise [ et ] ...

Pour le code je regarde de plus près... :roll:
08/07/2008, 09h47
Maque
Merci de vous pencher sur mon problème!!
Pour les [ et ], je viens d'essayer et cela ne marche pas!!:?

Autre chose, pour cette partie:
Code:

1 2 3 IF NOT Me.cmbFait par Then SQL = SQL & "And TablePrincipale!Fait par like '*" & Me.cmbFait par & "*' " End IF
Access me dit:
Erreur de compilation:
Attendu: Then ou GoTo

Ce que je cherche à faire avec cette ligne de code, est de dire que si la combobox Fait par est n'est vide (ou remplie) il exécute la ligne du dessous!
Mais plus je relis, plus je pense que ça veux rien dire ce que j'ai écris...:cry:
08/07/2008, 10h07
Chtulus

Citation:

que ça veux rien dire ce que j'ai écris

:aie: C'est souvent comme ça...

Tu pourrais changer tes noms et éviter les espaces...
08/07/2008, 10h17
Maque

Oui, cela pourrait être une solution, mais le problème est que ma table est énorme et est composée de + de 20 menu déroulant, ce qui implique beaucoups de liaison, et si je change les noms il va falloir que je reprenne toutes les liaisons!!!

Si tu as besoin de plus d'info sur la base de donnée ou les commandes que je souhaite réaliser, je suis à ton entière disposition!!!:lol:
08/07/2008, 10h37
Chtulus

Et si tu utilisais des variables auxquelles tu donnais les valeurs de tes champs pour les utiliser dans tes requêtes.
08/07/2008, 10h52
Maque

Je ne comprends pas du tout ce que vous voulez dire(peut-être parce que le vocabulmaire ne m'est pas familié)!
Je te rappel que je ne maîtrise pas Access et encore moins le langage SQL! LOL :lol:

De quelles types de variables s'agit-il???

Je vous explique vite fais de quoi il s'agit:
Dans le cadre d'un stage en entreprise, je dois créer des fiches de suivie pour des composants. Seulement je ne maitrise pas Access 2002, support sur lequel on m'a demandé d'effectuer ces fiches.

Voilà le but:
.via Access on doit pouvoir insérer des données
_J'ai donc créer des formulaires de saisie(7 au total) grâce auxquels les techniciens n'ont plus qu'à saisir leur valeur ou choisir des références via des menus déroulants.

.il fallait aussi qu'ils puissent rajouter des références dans les menus déroulants
_J'ai donc créer là aussi des formulaires de saisie(17 au total)

J'ai ensuite relier tout ça grâce au relation d'Access 2002, tout fonctionne parfaitement jusque là!!!

.enfin, il fallait pouvoir consulter les fiches créaient, en effectuant une recherche (N° de série du composant; date de création; technicien ayant validé la fiche de suivi; référence de certain composants...)
_c'est là que je boque, j'ai essayé de faire une requête en VB mais sans succès avec les lignes suivantes:

Pour la recherche:
_si l'entreprise reçoit en retour SAV une carte puissance(par exemple), elle doit pouvoir en inscrivant le N° de série qui y figure retrouvé sa fiche de suivi
_si l'un des technicien se rend compte que l'un des appareil de mesure était mal étalonné, et qu'ils ont produit et envoyé 100 produits, il faut qu'il puisse en inscrivant la référence de l'appareil retrouver tous les produits ayant était réglé à partir de celui-ci
_si l'entreprise reçoit plusieurs produits en SAV en quantité anormalement élevée, il faut qu'elle puisse en effectuant une recherche par date de création, rappeler la série pour un contrôle
_si au bout d'un certain temps de production, le technicien supérieur s'aperçoit que l'un des employé n'a pas assimilé la technique de fabrication et n'a donc pas construit les produits de manière conforme à une norme ISO XXX, il faut pouvoir rappeler les produits en utilisant le nom de l'employé...

Bref, lors des différentes recherches la totalité des critères ne seront jamais utilisés en même temps, de même il n'y a pas de critère qui sera utilisé systématiquement.
08/07/2008, 11h42
Chtulus

Code:

DoCmd.OpenForm "frmN° de Série de la Carte:", acNormal, , "[N° de Série de la Carte:] = " & Me.lstResults & "

Déjà !

Citation:

Erreur de compilation
Attendu: fin d'instruction

Tu peux effectuer un debug.print

PS: je sais

Citation:

Je te rappel que je ne maîtrise pas Access et encore moins le langage SQL
08/07/2008, 11h52
Maque

Oui, en effet déjà, comme vous l'avez remarqué je demande très vite le résultat et la consultation du formulaire!
Explication: en fait, les lignes de code écrites sont des tests pour savoir si les lignes écrites sont justes(et comme nous l'avons constaté NON! LOL), car je ne voulais pas perdre de temps à écrire mon code avec les 19critères (2 TextBox et 17 ComboBox) qu'il devra gérer à la fin! J'ai donc commencé avec seulement 1 critère(1 ComboBox), il s'agit de l'employé qui a réalisé le contrôle d'où le "Fait par".

Au fait comment fait-on un "debug.print"??? (je suis entrain de chercher)