La r\u00e9p\u00e9tition de donn\u00e9es dans un \u00e9tat peut \u00eatre une n\u00e9cessit\u00e9, c’est souvent le cas pour l’\u00e9dition d’\u00e9tiquettes, de formulaires en plusieurs exemplaires ou tout simplement pour des codes barres.<\/p>\n\n\n\n
La premi\u00e8re, qui fait plus office de bricolage consiste \u00e0 dupliquer les enregistrements \u00e0 la source. Cependant cela n\u00e9cessite d’avoir une table source d\u00e9vou\u00e9e \u00e0 l’impression, de pr\u00e9parer l’impression en amont et bien s\u00fbr de consacrer du temps SGBD et serveur pour cette t\u00e2che.<\/p>\n\n\n\n
La seconde, celle que nous allons mettre en pratique consiste \u00e0 utiliser le moteur d’impression des \u00e9tats d’ACCESS pour simuler cette duplication.<\/p>\n\n\n\n
Admettons une table compos\u00e9 des 2 colonnes suivantes :<\/p>\n\n\n\n
On commence par cr\u00e9er un \u00e9tat simplement bas\u00e9 sur cette table, on cache la zone de texte Fr\u00e9quenceImpression en mettant sa propri\u00e9t\u00e9 Visible <\/strong>\u00e0 Non.<\/p>\n\n\n\n Le d\u00e9cors est plant\u00e9, il n’y a plus qu’\u00e0 ins\u00e9rer le code VBA correspondant.<\/p>\n\n\n\n Le code exploite les \u00e9v\u00e8nements Sur Ouverture <\/strong>et Sur Formatage<\/strong>, une variable globale, une petite fonction qui peut \u00eatre facultative comme nous le verrons plus tard et utilise la propri\u00e9t\u00e9 NextRecord <\/strong>propre aux \u00e9tats ACCESS.<\/p>\n\n\n\n La variable globale va permettre de compter les occurrences imprim\u00e9es.<\/p>\n\n\n\n Lors de l’ouverture de l’\u00e9tat la variable est initialis\u00e9e \u00e0 1.<\/p>\n\n\n\n A chaque pr\u00e9paration de l’impression de la zone d\u00e9tail on analyse ce qui doit \u00eatre effectu\u00e9.<\/p>\n\n\n\n Si le compteur (cpt) n’a pas atteint le nombre de r\u00e9p\u00e9tition souhait\u00e9 on r\u00e9imprime le m\u00eame enregistrement. Le nombre de r\u00e9p\u00e9tition est d\u00e9termin\u00e9 par la valeur contenue dans FrequenceImpression<\/strong>. Par exemple si FrequenceImpression<\/strong> contient \u00ab\u00a0trimestriel\u00a0\u00bb l’enregistrement sera imprim\u00e9 3 fois.<\/p>\n\n\n\n Notez que cette derni\u00e8re fonction peut \u00eatre param\u00e9tr\u00e9e \u00e0 votre guise, ne pas exister du tout si vous indiquez directement le nombre dans la colonne FrequenceImpression <\/strong>ou si le nombre d’impression est fixe.<\/p>\n\n\n\n Bonne utilisation !<\/p>\n","protected":false},"excerpt":{"rendered":" La r\u00e9p\u00e9tition de donn\u00e9es dans un \u00e9tat peut \u00eatre une n\u00e9cessit\u00e9, c’est souvent le cas pour l’\u00e9dition d’\u00e9tiquettes, de formulaires en plusieurs exemplaires ou tout simplement pour des codes barres. Plusieurs solutions La premi\u00e8re, qui fait plus office de bricolage consiste … Continuer la lecture Le code<\/h2>\n\n\n\n
Option Compare Database \nOption Explicit \n\nDim cpt As Long<\/code><\/pre>\n\n\n\nPrivate Sub Report_Open(Cancel As Integer) \n cpt = 1 \nEnd Sub<\/code><\/pre>\n\n\n\nPrivate Sub D\u00e9tail_Format(Cancel As Integer, FormatCount As Integer) \n cpt = cpt + 1 \n If cpt <= nbrRepeat(Me.FrequenceImpression) Then \n Me.NextRecord = False \n Else \n cpt = 1 \n End If \nEnd Sub<\/pre>\n\n\n\n
Ce tour de force est effectu\u00e9 gr\u00e2ce \u00e0 la propri\u00e9t\u00e9 NextRecord <\/strong>qui, si elle est False<\/strong>, ne charge pas l’enregistrement suivant.<\/p>\n\n\n\n
Dans cet exemple on veut imprimer suivant une p\u00e9riodicit\u00e9 une quantit\u00e9 d\u00e9termin\u00e9e d’informations.<\/p>\n\n\n\nFunction nbrRepeat(period As String) \n Select Case period \n Case \"trimestriel\" \n nbrRepeat = 3 \n Case \"annuel\" \n nbrRepeat = 1 \n Case \"semestriel\" \n nbrRepeat = 2 \n End Select \nEnd Function<\/pre>\n\n\n\n