Bonjour à tous
Voilà j'ai créé trois datacombos pour faire une recherche et je veux qu'aprés la recherche le résultat s'affiche sur la listview.
Le code pour les recherches marchent mais j'ai un problème pour le code qui permet d'afficher le résultat. Command1 est le bouton "Rechercher" qu'on clique pour commencer la recherche.

Voilà 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Command1_Click()
 
Dim Critere As String
 
If (Trim(DataCombo1.Text) <> "") Then
  If (Critere <> "") Then
    Critere = Critere & " and  nom_dr like '%" & Trim(DataCombo1.Text) & "%'"
   Else
     Critere = Critere & " nom_dr like '%" & Trim(DataCombo1.Text) & "%'"
  End If
End If
 
 
If (Trim(DataCombo2.Text) <> "") Then
  If (Critere <> "") Then
    Critere = Critere & " and  type_connexion like '%" & Trim(DataCombo2.Text) & "%'"
   Else
     Critere = Critere & " type_connexion like '%" & Trim(DataCombo2.Text) & "%'"
  End If
End If
 
 
If (Trim(DataCombo3.Text) <> "") Then
  If (Critere <> "") Then
    Critere = Critere & " and  type_nas like '%" & Trim(DataCombo3.Text) & "%'"
   Else
     Critere = Critere & " type_nas like '%" & Trim(DataCombo3.Text) & "%'"
  End If
End If
If Critere <> "" Then
  Critere = " Where " & Critere
End If
 
Debug.Print Critere
' Listview = " Select nom_agence from ListeAgences " & Critere & ";"
 
End Sub
Avec un datagrid c'est plus facile mais je veux m'améliorer en vb.
J'espère que vous me comprenez.
Merci d'avance