Discussion :

[cretgil]

Bonjour à tous,

Je cherche comment répéter des données.

C'est à dire que j'ai une table membre (trimestriels, mensuels et annuels). Je dois imprimer des bulletins de versements.
J'aimerai suivant le type de membres (trimestriels, mensuels, annuels) répéter l'adresse du membre et ensuite passer au membre suivant.
Quelqu'un sait-il comment je peux le faire ?

Merci pour votre réponse
@++
GIC

[loufab]

Bonjour,

Normalement on utilise c'est trois propriétés pour gérer la réimpression :

Code :

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

1
2
3
Me.MoveLayout = False   'n'avance pas dans le report
Me.PrintSection = False  'n'imprime pas la section courante
Me.NextRecord = False  'ne passe pas au prochain record

Il faut faire des combinaisons à partir de ces 3 propriétés pour obtenir le comportement désiré. Cf le F1 qui explique le système.

Tout cela suivant comment ta source de données est présentée et comment tu as organisé ton état.

Cordialement,

[cretgil]

Hello,

Merci pour ton info. Je vais creuser cela.
Est-ce que par hasard tu aurais un exemple ?
Merci
@++
gic

[loufab]

peux-tu poster un exemple de ce que tu veux obtenir exactement, ainsi que l'organisation de tes données ?

[cretgil]

Hello

voilà un exemple de rapport pour un membre trimestriel. Le rapport doit faire 2 pages avec répétition de l'adresse du membre.
mise en forme rapport.pdf

si le membre est mensuel. Le rapport doit faire 6 pages avec répétition de l'adresse du membre
si le membre est annuel. Le rapport doit faire 1 page avec répétition de l'adresse du membre
Merci pour ton aide
@++
gic

[loufab]

C'est quelle adresse qui se répète la 1ère ou la 2ème ?
Tes données sont dans une seule table ou plusieurs ?

[cretgil]

Hello

la 2eme se répête sur 2 pages (trimestriels), 6 pages (mensuels), et 1 pages (annuels) et change après 2 pages, 6 pages ou 1 pages.

La 1ere ne change pas. C'est toujours la même.

Les informations sont dans une table.

Merci @++
gic

[loufab]

Bonjour,
Voici le code à intégrer dans 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Compare Database
Option Explicit
 
Dim cpt As Long
 
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
cpt = cpt + 1
If cpt <= nbrRepeat(Me.Champ1) Then
   Me.NextRecord = False
Else
   cpt = 1
End If
End Sub
 
Private Sub Report_Open(Cancel As Integer)
cpt = 1
End Sub
 
Function nbrRepeat(period As String)
Select Case period
Case "trimestriel"
nbrRepeat = 3
Case "annuel"
nbrRepeat = 1
Case "semestriel"
nbrRepeat = 6
End Select
End Function

Cordialement,

[cretgil]

Hello,

je te remercie cela fonctionne parfaitement

Cordialement
gic