Discussion :

[missastro]

Bonjour;

Au niveau d'une apllication je dois effectuer dans un formulaire une recherche selon plusieurs critères. Une fois je saisi les conditions de recherhce, soit par liste déroulante ou zone de texte.

Et le résultat doit s'afficher en listbox, le problème c'est que je en sais pas le code que je dois mettre "au niveau de la commande RECHERCHER" pour afficher le résultat après le clic.

Merci d'avance pour voter aide
Bon Ciel

[Invité]

Bonjour

As-tu été consulté les tutos sur les formulaires de recherches ? Si non, va les voir, le lien sur la page tuto est dans ma signature.

Starec

[missastro]

OUi g vérifié mais je ne trouve pas une réponse adéquouate

Bon Ciel

[p'tite Sandrine]

Ici tu as également un très bon tutoriel sur les recherches multi-critères

http://cafeine.developpez.com/access...echerchemulti/

et si u veux que ta recherche ne se lance que sur clique de ton bouton rechercher .

tu supprime les refreshQuery des evenements après mise à jour et tu le met sur clic de ton bouton.

Bonne continuation

[missastro]

Re! Merci pour la réponse.

Effectivement g suivie ce tutoriel pour résoudre ce problème et voilà ce que g fais :

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
Private Sub Cmd_rech_Click()
 
'Déclarration des variables
Dim sql As String
Dim SQLWhere As String
 
'Requete SQL
sql = " SELECT Referenced, Opérateur, DateD, DateF, Type_client, Nom_client, Nature, Produit FROM Demande_Assitance;"
If Me.Chkclient Then
    sql = sql & "And Demande_Assistance!Type_client like '*" & Me.liste_type & "*' "
 End If
 If Me.chknom Then
    sql = sql & "And Demande_Assistance!Nom_Client = '" & Me.txtnom & "' "
 End If
 If Me.chkop Then
    sql = sql & "And Demande_Assistance!Opérateur like '*" & Me.liste_opérateur & "*' "
 End If
 If Me.chkcode Then
    sql = sql & "And Demande_Assistance!Num_code like '*" & Me.txtcode & "*' "
 End If
 If Me.chkcompte Then
    sql = sql & "And Demande_Assistance!Num_compte = '" & Me.txtcompte & "' "
 End If
 If Me.chkcarte Then
    sql = sql & "And Demande_Assistance!Num_carte = '" & Me.txtcarte & "' "
 End If
 
 SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
 sql = sql & ";"
 
 
 Me.listresults.RowSource = sql
 
End Sub

Mais ça ne marche tjr pas; Voici l'interface que g faite



Encore uen fois merci

Bon ciel

[p'tite Sandrine]

Peut être est-ce dut au fait que tu as oublier le:

Code :

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

 Me.listresults.Requery

Tout à la fin de ton code.

Essaye avec ca !