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

Code sql : 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
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