Discussion :

[wanted08]

Bonjour j'ai un problème qui me bloque depuis plusieurs jours, j'ai un formulaire avec les critère de filtre
combobox: département
listbox à sélection multiple: nom et prénom
textbox: date début
textbox: date fin

et un bouton valider qui me permet soit d'imprimer ou d'exporter un état filtré pour chaque nom sélectionné dans le listbox. jusqu'ici tout vas bien.
dans mon état j'ai 4 textbox à l'entête qui me permet de récupérer les différents critères de mon filtre. j'ai pu récupérer 3 critère en mettant
dans la propriété source de contrôle de chaque textbox de mon état:

Code :

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

1
2
3
departement= [Formulaires]![Recherche]![Datedeb]
date debut= [Formulaires]![Recherche]![Datefin]
date fin= [Formulaires]![Recherche]![Cbodep]

mon problème c'est que je n'arrive pas récuperer dans l'entête de mon rapport le nom correspondant à létat exporter.vu que le nombre d'état exporté
correspond au nombre d'employé sélectionné dans la listbox. et moi je veux récuperer pour chaque état le nom correspondant.

voici une partie du code de mon boutton

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
Private Sub CmndVal_Click()
'initialize variables
On Error Resume Next
Dim filtre As String
Dim i As Integer
Dim j As Integer
 
 
filtre = ""
 
For i = 0 To Me.ListEmp.ListCount - 1
If Me.ListEmp.Selected(i) Then
If Not IsNull(Me.Cbodep.Value) Then
filtre = "([Department]='" & Me.Cbodep.Value & "')"
End If
If Not IsNull(Me.Datedeb) And Me.Datedeb <> "" And Not IsNull(Me.Datefin) And Me.Datefin <> "" Then
filtre = filtre & " AND Clng([LogDate]) BETWEEN " & CLng(Me.Datedeb) & " AND " & CLng(Me.Datefin) & ""
End If
filtre = filtre & " AND [Nom]='" & Me.ListEmp.Column(0, i) & "'"
filtre = filtre & " AND [PreNom]='" & Me.ListEmp.Column(1, i) & "'"
j = j + 1
 
Select Case Me.CadrExport.Value
 
Case 1
 
If Me.checkRR.Value = True Then
DoCmd.OpenReport "Rapport Retards", acViewReport, , filtre
États![Rapport Retards]![Texte37] = Me.ListEmp.Column(0, i) & " " & Me.ListEmp.Column(1, i)
DoCmd.PrintOut , , , , j
DoCmd.Close acReport, "Rapport Retards"
End If
 
Case 2
strChemin = "C:\EXPORT" & Format(Now, "ddmmyyyy hhnn") & "\ "
MkDir (strChemin)
 
If Me.checkRR.Value = True Then
DoCmd.OpenReport "Rapport Retards", acViewReport, , filtre
États![Rapport Retards]![Texte37] = Me.ListEmp.Column(0, i) & " " & Me.ListEmp.Column(1, i)
DoCmd.OutputTo acOutputReport, "Rapport Retards", acFormatPDF, strChemin & "RapportRetards" & Me.ListEmp.Column(0, i) & "_" & Me.ListEmp.Column(1, i) & ".pdf"
DoCmd.Close acReport, "Rapport Retards"
End If
 
End Select
End If
Next i
 
End Sub

[wanted08]

Code :

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

États![Rapport Retards]![Texte37] = Me.ListEmp.Column(0, i) & " " & Me.ListEmp.Column(1, i)

cette partie ne me renvoie que la dernière ligne( nom et prénom) de ma sélection pour tous mes rapports extrait. c'est la dernière méthode que j'ai tenté, je ne sait plus comment m'y prendre s'il vous plait j'ai besoin d'aide .