Discussion :

[RNico]

Bonjour,

J'aimerais faire apparaître dans une liste, à la suite de sélections sur plusieurs listes modifiables, des champs en provenances de 2 tables différentes... J'ai essayé le code suivant et ca ne marche pas après sélection d'une des listes modifiables:

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Guests.CodMedia, Guests.Guest, Episodes.Nom, Episodes.Titre, Guests.GuestA INNER JOIN Guests ON Episodes.Titre=Guests.Titre Where Guests.CodMedia <> 0"
 
If Me.chkTitre Then
    SQL = SQL & "And Episodes!Titre = '" & Me.cmbRechTitre & "' "
End If
If Me.chkGuest Then
    SQL = SQL & "And Guests!Guest = '" & Me.cmbRechGuest & "' "
End If
If Me.chkNom Then
    SQL = SQL & "And Episodes!Nom = '" & Me.cmbRechNom & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & " ORDER BY Guests.Guest, Episodes.Nom ;"
 
Me.lblStats.Caption = DCount("*", "Episodes", SQLWhere) & " / " & DCount("*", "Episodes")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Alors que le code suivant fonctionne au demarrage de la page (tout s'affiche bien)... :

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
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = 0
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT Guests.CodMedia, Guests.Guest, Episodes.Nom, Episodes.Titre, Guests.GuestA FROM [Episodes] INNER JOIN Guests ON Episodes.Titre=Guests.Titre ORDER BY Guests.Guest, Episodes!Nom;"
Me.lstResults.Requery
 
End Sub

Quelqu'un aurait une idée d'où vient mon erreur?

Merci beaucoup!

[loufab]

Les espaces manquant peut-être ?

[RNico]

Les espaces manquant peut-être ?

Désolé, je comprends pas la blague... Du coup, je comprends pas mon problème!

[loufab]

Salut RNICO

No joke, c'est du sérieux là !

Vérifie les espaces entre tes associations de chaînes (variable intitulé SQL)
au premier coup d'oeil on voit qu'il va en manquer.

...
Pour les blagues voir la Taverne

[fdraven]

Exemple où il manque un espace :

Code :

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

SQL = SQL & "And Episodes!Titre = '" & Me.cmbRechTitre & "' "

Sans l'espace devant And, ta requête sera :

Code :

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

SELECT ... FROM ... Where Guests.CodMedia <> 0And ...

Conseil: fais un msgbox de SQL pour vérifier que ta requête fonctionne.

En espérant t'avoir aidé.

[Kloun]

Conseil: fais un msgbox de SQL pour vérifier que ta requête fonctionne.

Le debug.print SQL est assez pratique aussi, puisqu'on peut copiercoller ensuite la requète pour voir ce qui ne fonctionne pas.