Discussion :

[melitoriva]

bonjour et bonne année 2008.
j'ai réalisé un formulaire de recherche multicritère (Type caféine) à partir duquel j'affiche un état.
je souhaiterais pouvoir afficher sur cet état les critères utilisés dans le formulaire pour ma recherche (et c'est là que je bloque...).
quelqun a t il des pistes pour m'aider.....

[Dolphy35]

Salut et bonne année à toi,

Si ton Formulaire est toujours ouvert, tu peux créer des zone de textes dans l'entête puis sur l'evenement Format de l'entête tu viens chercher les valeurs des listes, exemples pour trois listes :

Code :

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

1
2
3
4
5
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
    Me.Texte7.Value = Forms!Formulaire1!Modifiable1
    Me.Texte9.Value = Forms!Formulaire1!Modifiable3
    Me.Texte10.Value = Forms!Formulaire1!Modifiable5
End Sub

A toi de l'adapter

Dolphy

[melitoriva]

merci pour tout, ca marche.
par contre, je souhaiterait pouvoir les afficher ou non, en fonction des critères choisis dans mon formulaire.
et là, je sèche.

[melitoriva]

j'ai essayé de l'adapté à mon frm de recherche :
mon état affiche effectivement les données voulues
mais :
je n'arrive pas à faire en sorte d'afficher que les critères choisis (dans le cas de txtetatNum.
aussi, les champs date affichent par défaut la date du jours (ca provient de mon formulaire). j'aurais souhaité, dans le cas où la procédure d'affichage en fonction des critères ne marche pas, afficher un champ null ou vide.
je ne sais pas si j'ai été très clair.

ci dessous mon 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Option Compare Database
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = " SELECT [RefBon],[Societe],[NumBon],[DateBon],[Fournisseur],[Total] FROM [rqttblboncommande1] Where [rqttblboncommande1]![RefBon] <> 0 "
 
If Not Forms!frmrecherchebons!chkNumeroBon Then
    SQL = SQL & " And [rqttblboncommande1]![NumBon]= " & Forms!frmrecherchebons!txtRechNum
End If
If Not Forms!frmrecherchebons!chkDateBon Then
    SQL = SQL & " And [rqttblboncommande1]![DateBon] = #" & Format(Forms!frmrecherchebons!zdtRechDate, " mm/dd/yyyy ") & "#"
End If
If Not Forms!frmrecherchebons!chkFourn Then
    SQL = SQL & " And [rqttblboncommande1]![Fournisseur] = '" & Forms!frmrecherchebons!cmbRechFourn & "' "
End If
If Not Forms!frmrecherchebons!chkperiode Then
    SQL = SQL & "And [rqttblboncommande1]![DateBon] Between #" & Format(Forms!frmrecherchebons!zdtdatedebut, "mm/dd/yyyy") & "# And #" & Format(Forms!frmrecherchebons!zdtdatefin, "mm/dd/yyyy") & "#"
End If
If Not Forms!frmrecherchebons!chksociete Then
    SQL = SQL & " And [rqttblboncommande1]![Societe] = '" & Forms!frmrecherchebons!cmbSociete & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.RecordSource = SQL
 
End Sub
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
 
    Me.txtetatNum.Value = Forms!frmrecherchebons!txtRechNum
    Me.txtetatFourn.Value = Forms!frmrecherchebons!cmbRechFourn
    Me.txtetatDate.Value = Forms!frmrecherchebons!zdtRechDate
    Me.txtetatdatedebut.Value = Forms!frmrecherchebons!zdtdatedebut
    Me.txtetatDatefin.Value = Forms!frmrecherchebons!zdtdatefin
    Me.txtetatsociete.Value = Forms!frmrecherchebons!cmbSociete
 
If IsNull(Forms!frmrecherchebons!txtRechNum) Then
    Me.txtetatNum.Visible = False
    Me.zdtetatNum.Visible = False
Else
    Me.txtetatNum.Visible = True
    Me.zdtetatNum.Visible = True
 
End If
 
End Sub
 
Private Sub Report_Open(Cancel As Integer)
 
RefreshQuery
 
End Sub

[melitoriva]

en cherchant un peu sur les forums, j'ai trouvé la solution a mon problème.

le code est le suivant :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
 
    Me.txtetatNum.Value = Forms!frmrecherchebons!txtRechNum
    Me.txtetatFourn.Value = Forms!frmrecherchebons!cmbRechFourn
    Me.txtetatDate.Value = Forms!frmrecherchebons!zdtRechDate
    Me.txtetatdatedebut.Value = Forms!frmrecherchebons!zdtdatedebut
    Me.txtetatDatefin.Value = Forms!frmrecherchebons!zdtdatefin
    Me.txtetatsociete.Value = Forms!frmrecherchebons!cmbSociete
 
If Forms!frmrecherchebons!chkNumeroBon = 0 Then
    Me.txtetatNum.Visible = True
    Me.zdtetatNum.Visible = True
Else
    Me.txtetatNum.Visible = False
    Me.zdtetatNum.Visible = False
End If
 
If Forms!frmrecherchebons!chkDateBon = 0 Then
    Me.txtetatDate.Visible = True
    Me.zdtetatDate.Visible = True
Else
    Me.txtetatDate.Visible = False
    Me.zdtetatDate.Visible = False
End If
 
If Forms!frmrecherchebons!chksociete = 0 Then
    Me.txtetatsociete.Visible = True
    Me.zdtetatsociete.Visible = True
Else
    Me.txtetatsociete.Visible = False
    Me.zdtetatsociete.Visible = False
End If
 
If Forms!frmrecherchebons!chkFourn = 0 Then
    Me.txtetatFourn.Visible = True
    Me.zdtetatFourn.Visible = True
Else
    Me.txtetatFourn.Visible = False
    Me.zdtetatFourn.Visible = False
End If
 
If Forms!frmrecherchebons!chkperiode = 0 Then
    Me.zdtetatperiode1.Visible = True
    Me.zdtetatperiode2.Visible = True
    Me.txtetatdatedebut.Visible = True
    Me.txtetatDatefin.Visible = True
Else
    Me.zdtetatperiode1.Visible = False
    Me.zdtetatperiode2.Visible = False
    Me.txtetatdatedebut.Visible = False
    Me.txtetatDatefin.Visible = False
End If
 
End Sub