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
Avec un datagrid c'est plus facile mais je veux m'améliorer en vb.
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
J'espère que vous me comprenez.
Merci d'avance
Partager