Discussion :

[the big ben 5]

Bonjour,

Mon but est d'imprimer une série de fiches en un coup.
Pour ce j'ai créer un formualire avec un bouton imprimer et un sous fomulaire sous forme de grille avec une checkbox et évidement un autre champs étant l'id de l'enregistrement.
Comment puis je faire pour parcourir toutes les checkbox cochée de mon sous formaire et imprimer chaque fois le rapport correspondant?

D'avance merci

Ben

[Meduse]

Je suppose que ta checkbox est liée à un champ Selectionné.
Je suis pas bien sûre du code pour imprimer l'état.

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
Private Sub CmdImprimer_Click()
Dim rsC As Recordset
 
Set rsC = Me.MonSousFormulaire.Form.RecordsetClone
 
rsC.MoveFirst
Do Until rsC.EOF
    If rsC!Selectionné = True Then
        DoCmd.OpenReport "Fiche", , , "ID=" & rsC!ID
        DoCmd.PrintOut
    End If
    rsC.MoveNext
Loop
Set rsC = Nothing
End Sub