Discussion :

[djpit]

Salut,

A partir d'un formulaire multicritères (que j'ai fais à partir du tutoriel de caféine), j'aimerais stocker le résultat de la recherche dans une requête qui soit modifiée à chaque fois que l'utilisateur change de critères dans le formulaire.

Ensuite le résultat de lma requête serait exporté sous Excel afin d'étblir des graphiques.

Merci

Pierre

Voici la fin du code qui actualise la list box dans le formulaire

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
Private Sub RefreshQuery()
 
Dim SQL As String
 
SQL = "SELECT [Canal 2].NumCanal, [Canal 2].NomCanal, [Canal 2].Moyenne, [Canal 2].RefClasse, [Canal 2].RefDate, [Canal 2].[Type de données]" & _
"FROM [Canal 2]" & _
"WHERE ((([Canal 2].NumCanal)<>0))"
 
If Not Me.ChkCanal Then
 
    SQL = SQL & "And [Canal 2].NomCanal = '" & Me.cmbRechCan & "' "
 
End If
 
If Not Me.ChkType Then
 
      SQL = SQL & "And [Canal 2].[Type de données] = '" & Me.cmbRechType & "' "
 
End If
 
If Not Me.ChkClasse Then
 
     SQL = SQL & "And [Canal 2].[RefClasse] like '*" & Me.txtRechCla & "*' "
 
End If
 
If Not Me.ChkDate Then
 
     SQL = SQL & "And [Canal 2].[RefDate] like '*" & Me.txtRechDate & "*' "
 
End If
 
SQL = SQL & ";"
 
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
 
End Sub

[LedZeppII]

Bonjour,

ça peut se faire avec DAO. Dans visual basic vérifier que la référence à la librairie Microsoft DAO 3.6 Object Library (ou 3.5) est bien cochée.
Voici le code à ajouter à RefreshQuery pour une requête nommée "MaRequete"

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
Sub RefreshQuery()
Dim db As DAO.Database, qd As DAO.QueryDef

... ton code actuel ...

Set db = CurrentDb
On Error Resume Next
Set qd = db.QueryDefs("MaRequete")
On Error GoTo 0

If qd Is Nothing Then  ' Si la requête n'existe pas. On la crée
   Set qd = db.CreateQueryDef("MaRequete")
   db.QueryDefs.Append qd
End If

qd.SQL = SQL   ' On affecte à la requête le code SQL de la variable SQL
db.Close
End Sub

La requête sera le reflet de ce qu'on voit dans la liste lstResults.

Bon courage

[djpit]

Ok merci
ça fonctionne