Discussion :

[leskev]

Bonjour, pour faire mon formulaire de recherche je me suis inspiré du tuto "Recherche Multi critères".
Cependant, j'ai un petit souci lors de l'exécution: Lorsque je sélectionne une des valeurs de mes menus déroulant, une boite de diialogue apparaît:
"Entrez la valeur du paramètre".
Bien sur si je saisi le texte sélectionné dans cette boite de dialogue ça fonctionne, mais c'est un peu fastidieux!!!

Voici mon code, si quelqu'un peut m'aider se serait sympa, Merci.

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
Private Sub Form_Open(Cancel As Integer)
    Dim Source As String
    'Source des types de client (client/ client contrat/ prospect
    Source = "SELECT ChoixClient FROM TableClient GROUP BY [TableClient].[ChoixClient]"
    Me.RechercheTypeClient.RowSourceType = "Table/Query"
    Me.RechercheTypeClient.RowSource = Source
    Source = ""
 
    'Source des activités du client
    Source = "SELECT SpecialiteClient FROM TableClient GROUP BY [TableClient].[SpecialiteClient]"
    Me.RechercheActivite.RowSourceType = "Table/Query"
    Me.RechercheActivite.RowSource = Source
    Source = ""
 
    RefreshQuery
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub RechercheActivite_Change()
    RefreshQuery
End Sub
 
Private Sub RechercheTypeClient_Change()
    RefreshQuery
End Sub

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
Private Sub RefreshQuery()
    Dim SqlClient As String
    SqlClient = "SELECT [TableClient].[IdClient],[TableClient].[NomClient] "
    SqlClient = SqlClient & "FROM TableClient "
    SqlClient = SqlClient & "WHERE [TableClient].[IdClient]<>0 "
 
    If Not IsNull(Me.RechercheTypeClient) Then
        SqlClient = SqlClient & "AND [TableClient].[ChoixClient] = " & Me.RechercheTypeClient
    End If
 
    If Not IsNull(Me.RechercheActivite) Then
        SqlClient = SqlClient & "AND [TableClient].[SpecialiteClient] = " & Me.RechercheActivite
    End If
 
    'Affichage des résultats
    Me.ZoneRes.RowSource = SqlClient
    Me.ZoneRes.Requery
End Sub

[loufab]

Bonjour,

Il faut tracer ton code jusqu'à la fin (constitution du code SQL) puis vérifier le code SQL.

Une fois posté on y verra sans doute plus clair. Et toi également.

Dans l'attente.

Cordialement,

[leskev]

Alors au niveau de la ligne de code:
Me.ZoneRes.RowSource = SqlClient
dans la fonction RefreshQuery()
Le contenu de SqlClient est le suivant si je sélectionne "Prospect" comme type de client:

SELECT [TableClient].[IdClient],[TableClient].[NomClient]
FROM TableClient
WHERE [TableClient].[IdClient]<>0 AND [TableClient].[ChoixClient] = Prospect

J'espère que ça peut aider!
Merci

[Invité]

Bonjour

Dans ton code

Code :

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

1
2
3
4
 
SELECT [TableClient].[IdClient],[TableClient].[NomClient] 
FROM TableClient
WHERE [TableClient].[IdClient]<>0 AND [TableClient].[ChoixClient] = Prospect

Prospect est une chaine, il faut que tu l'entoure de ', de même quand tu met comme variable Me.RechercheActivite

Starec

[leskev]

En effet c'est ça
Merci beaucoup je n'aurais pas trouvé tout seul
A bientôt