Discussion :

[JulienTough]

Bonjour

j'ai adapté le formulaire de recherche issu du tutoriel de Caféine à mon cas
cependant lorsque je veux utiliser plusieurs critères la liste n'affiche aucun élément
voici le code

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
 
Private Sub RefreshQuery()
Dim SQL As String
 
SQL = "SELECT ListeTronçons.code_troncon, ListeTronçons.nom_troncon, ListeTronçons.subdivision FROM ListeTronçons WHERE ListeTronçons.code_troncon <> Null "
If Not Me.chkCode Then
    SQL = SQL & "AND ListeTronçons.code_troncon like '" & Me.txtCode & "*' " & "ORDER BY ListeTronçons.code_troncon"
End If
If Not Me.chkSubdi Then
    SQL = SQL & "AND ListeTronçons.Subdivision = '" & Me.cmbSubdi & "' "
End If
If Not Me.chkNom Then
    SQL = SQL & "AND ListeTronçons.nom_troncon like '*" & Me.txtNom & "*' "
End If
 
SQL = SQL & ";"
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

pouvez me dire ce qu'il se passe et m'aidez à résoudre le problème.


merci

[tAKAmAkA]

Bonjour,
Ton ORDER BY doit être placé à la fin de ta requète:

Code :

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

SQL = SQL & "ORDER BY ListeTronçons.code_troncon;"

Cordialement

[JulienTough]

Merci beacoup