Discussion :

[Lycoz]

Bonjour a tous

J'ai dans une recherche multi critère une listBox avec différente langue a l'nitérieur qui sont select depuis une requête

Ce que j'aimerais c'est au lieu de pouvoir choisir qu'un eul critpre, pouvoir en choisir plusieur, et ainsi chercher par exemple les gens qui parle francais ET anglais...

J'ai essayé difféernt moyen, je n'ai pas réussis a trouver le résultat

[cafeine]

Hello,

Code :

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

SELECT * FROM MaTable WHERE Langue = 'French' Or Langue = 'English'

Soit tu mets un deuxieme combo pour la deuxieme langue, soit tu mets une liste à choix multiples.

[Lycoz]

Chui vraiment dsl mais j'ai encore un peu de mal avec ces codes...

Merci caféine, je voit plus ou moin ce que tu veux dire, mais je ne sais aps trop ou mettre ce code, je comprend pas bien...

Si c'est possible d'etre un peu plus explicite ca m'aiderais bcp.

En fait, mieux qu'une listbox serais des combobox et quand dans une on choisis un critère, une autre apparait pour donner la possibilité de choisir un autre critère...

[cafeine]

Pour être plus explicite il faudrait savoir comment marche ta recherche multicritères.

Pour le coup des combobox ça me paraît être une mauvaise idée, car comment sais-tu à l'avance combien faut-il en créer ?

Chui vraiment dsl mais j'ai encore un peu de mal avec ces codes...

Merci caféine, je voit plus ou moin ce que tu veux dire, mais je ne sais aps trop ou mettre ce code, je comprend pas bien...

Si c'est possible d'etre un peu plus explicite ca m'aiderais bcp.

En fait, mieux qu'une listbox serais des combobox et quand dans une on choisis un critère, une autre apparait pour donner la possibilité de choisir un autre critère...

[Lycoz]

Effectivement...

Mieux vaut rester sur l'idée de la listBox...

Je sais comment marche la rech-multi, mais je ne voit pas ou intégrer le code que tu as donnés plus haut...

[cafeine]

c'est bien si toi tu sais, mais vu que nous n'avons pas sous les yeux ta base, nous ne savons pas ...

si tu utilises mon tuto, regarde où se trouve le SQL et du coup adapte le.

[Lycoz]

Regarde :

(formulaire : F_Recherche)

[cafeine]

Désolé, je ne pratique pas comme ça ... d'autres voudront surement t'aider.

[Lycoz]

Autant pour moi...

Alors que je comprenne autremant...

Ce code

Code :

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

SELECT * FROM MaTable WHERE Langue = 'French' Or Langue = 'English'

Je suis d'accord...

Mais tu le place ou?

Dans le code VB (si oui ou)
Sinon dans le row source?

[cafeine]

Dans le code VB, là où il y a déjà, enfin je le suppose, un autre code SQL ...

[Lycoz]

OUi il y a un code SQL :

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
 
Private Sub RefreshQuery()
 
    SQL = "SELECT ID_Perso, Name, First_Name, Job_Title, Location, Language, Status, Salary, Last_PRP, Strenght, Weaknesses FROM requete_rechmulti Where requete_rechmulti.ID_Perso <>0 "
 
    If Not Me.chkJobTitle Then
        SQL = SQL & "And requete_rechmulti!Job_Title = '" & Me.cmbRechJobTitle & "' "
    End If
 
    If Not Me.chkLocation Then
        SQL = SQL & "And requete_rechmulti!Location = '" & Me.cmbRechLocation & "' "
    End If
 
    If Not Me.chkLanguage Then
        SQL = SQL & "And requete_rechmulti!Language = '" & Me.lstLanguage & "' "
    End If
 
    If Not Me.chkStatus Then
        SQL = SQL & "And requete_rechmulti!Status = '" & Me.cmbRechStatus & "' "
    End If
 
    If Not Me.chkSalary Then
        SQL = SQL & "And requete_rechmulti!Salary like '*" & Me.txtSalary & "*' "
    End If
 
    If Not Me.chkPRP Then
        SQL = SQL & "And requete_rechmulti!Last_PRP like '*" & Me.txtPRP & "*' "
    End If
 
     If Not Me.chkStrenght Then
        SQL = SQL & "And requete_rechmulti!Strenght = '" & Me.lstStrenght & "' "
    End If
 
     If Not Me.chkWeaknesses Then
        SQL = SQL & "And requete_rechmulti!Weaknesses = '" & Me.lstWeaknesses & "' "
    End If
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
    SQL = SQL & ";"
 
 
    Me.lstResults.RowSource = SQL
    Me.lstResults.Requery
 
End Sub

Le fait est que je ne comprend pas ou je doit le placer...

Il faudrai dans dans la listbox : lstLanguage on puisse selectionner différente langue

[Tofalu]

Bien à la suite

Dim v As Variant
Dim temp As String
'Crée la liste des éléments
For Each v In Me.lstLanguage.ItemsSelected
temp = temp & Chr(34) & v & Chr(34) & ","
Next v
If temp <> "" Then
'Supprime la dernière virgule et ajoute au critere
temp = Left(temp, Len(temp) - 1)
SQL = SQL & " AND MonChamp IN (" & temp & ") "
End If
MsgBox SQL

[Lycoz]

chui vraiment navré, bien que j'ai tous les éléments sous les yeux, je ne vois pas ou intégrer exactement le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim v As Variant
Dim temp As String
'Crée la liste des éléments
For Each v In Me.lstLanguage.ItemsSelected
temp = temp & Chr(34) & v & Chr(34) & ","
Next v
If temp <> "" Then
'Supprime la dernière virgule et ajoute au critere
temp = Left(temp, Len(temp) - 1)
SQL = SQL & " AND MonChamp IN (" & temp & ") "
End If
MsgBox SQL

J'ai essayé partout, comme par exemple en dessus du End If...

Code :

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

1
2
3
If Not Me.chkLanguage Then
        SQL = SQL & "And requete_rechmulti!Language = '" & Me.lstLanguage & "' "
    End If

Mais ca ne marche pas...

Qqun pourrais me montrer comment l'intégrer que comment ca donne a la fin?

erci

[Tofalu]

ça marche puisque j'ai testé

[Lycoz]

J'ai mis texto :

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
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub RefreshQuery()
 
    SQL = "SELECT ID_Perso, Name, First_Name, Job_Title, Location, Language, Status, Salary, Last_PRP, Strenght, Weaknesses FROM requete_rechmulti Where requete_rechmulti.ID_Perso <>0 "
 
 
    If Not Me.chkJobTitle Then
        SQL = SQL & "And requete_rechmulti!Job_Title = '" & Me.cmbRechJobTitle & "' "
    End If
 
    If Not Me.chkLocation Then
        SQL = SQL & "And requete_rechmulti!Location = '" & Me.cmbRechLocation & "' "
    End If
 
    If Not Me.chkLanguage Then
        SQL = SQL & "And requete_rechmulti!Language = '" & Me.lstLanguage & "' "
 
Dim v As Variant
Dim temp As String
'Crée la liste des éléments
For Each v In Me.lstLanguage.ItemsSelected
temp = temp & Chr(34) & v & Chr(34) & ","
Next v
If temp <> "" Then
'Supprime la dernière virgule et ajoute au critere
temp = Left(temp, Len(temp) - 1)
SQL = SQL & " AND MonChamp IN (" & temp & ") "
End If
MsgBox SQL
 
    End If
 
    If Not Me.chkStatus Then
        SQL = SQL & "And requete_rechmulti!Status = '" & Me.cmbRechStatus & "' "
    End If
 
    If Not Me.chkSalary Then
        SQL = SQL & "And requete_rechmulti!Salary like '*" & Me.txtSalary & "*' "
    End If
 
    If Not Me.chkPRP Then
        SQL = SQL & "And requete_rechmulti!Last_PRP like '*" & Me.txtPRP & "*' "
    End If
 
     If Not Me.chkStrenght Then
        SQL = SQL & "And requete_rechmulti!Strenght = '" & Me.lstStrenght & "' "
    End If
 
     If Not Me.chkWeaknesses Then
        SQL = SQL & "And requete_rechmulti!Weaknesses = '" & Me.lstWeaknesses & "' "
    End If
 
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
 
    SQL = SQL & ";"
 
 
    Me.lstResults.RowSource = SQL
    Me.lstResults.Requery

et ca ne marche pas...

P:S immaginon que je sais combien de critère au max peuvent être choisis, ainsi vomment faire des combobox et quand dans une on choisis un critère, une autre apparait pour donner la possibilité de choisir un autre critère... C'est peut etre plus simple étant donné que je ne comprend pas du tout vos explication pour la liste...