Création d'un générateur d'étiquettes

T_TypesEtiquettes: il s'agit des différents types d'étiquettes proposées à l'utilisateur. Dans notre exemple étiquettes adresses et étiquettes articles. Cette table est non accessible à l'utilisateur. Elle est mise en place à l'initiation de l'application. L'évolution est assurée par le développeur.

T_ChampsEtiquettes: dans cette entité, nous isolerons les items nécessaires à l'élaboration d'une étiquette. L'exhaustivité des champs de la table n'est nullement nécessaire, le développeur aura pris soin de mettre à disposition de l'utilisateur l'ensemble des champs dont il a réellement besoin. Cette table est non accessible par l'utilisateur final.

T_NomsEtiquettes: Cette table va permettre de stocker les nouvelles étiquettes générées par l'utilisateur ainsi que fournir un certain nombre de formats prédéfinis.

T_ParametresEtiquettes: cette table va permettre de stocker l'ensemble des données personnalisables et renseignées par l'utilisateur. À la création d'un nouveau format, et fonction du type d'étiquette, une requête de type ajout alimentera automatiquement cette table. Nous aurons l'occasion de visualiser le contenu de cette requête dans la section relative aux formulaires.

II-A-2-a. Les articles▲

T_Articles: cette table permet de stocker l'ensemble des informations concernant un article.

La description de cette table comporte peu d'intérêt puisque dépendante de chaque solution. Le contenu des informations présenté sur le modèle ci-dessus est suffisamment explicite pour que chacun puisse s'y reconnaître.

T_Fournisseurs: cette table permet de stocker l'ensemble des informations concernant un fournisseur. La relation entre la table fournisseurs et articles est basée sur la règle suivante :

II-A-2-b. Les Clients▲

T_Clients: cette table permet de stocker l'ensemble des informations concernant un client. La description de cette table comporte peu d'intérêt puisque dépendante de chaque solution. Le contenu des informations présenté sur le modèle ci-dessus est simple et ne requiert aucune explication supplémentaire.

T_CodesPostaux: cette table permet de stocker l'ensemble des informations concernant les différents codes postaux.

T_Civlités: cette table permet de stocker l'ensemble des informations concernant les différentes civilités.

Le rôle attendu par cette requête est d'afficher l'ensemble des produits impactés par la génération de nos étiquettes. Cette requête est soumise à la contrainte suivante : l'article est supposé de type imprimable. Pour cela, un champ booléen de type étiquette Article_Aimprimer a été créé dans la liste des champs de l'entité T_Articles. Cette requête répond également à une nouvelle contrainte posée, elle concerne l'ensemble des produits du stock. Vous savez tous comme moi qu'une requête supposée de relation 1 à 1 ne retourne qu'une ligne. Dans notre cas si l'article N dispose de 4 entrées en stock, le nombre d'étiquettes à imprimer est de 4. Nous avons donc rajouté une table TBL_Count afin de dupliquer automatiquement les lignes. Cette astuce est fournie dans la base exemple, et extrait de la FAQ https://access.developpez.com/faq/?page=TAEtat#multEnreg

L'exécution de la requête pourrait ressembler à ceci :

Cette requête ne revêt aucune difficulté particulière. Afin d'intégrer la notion de champ calculé, nous créerons un alias composé du nom complet de la personne (civilité + nom + prénom) ainsi qu'un alias situation composé du code postal et la ville ceci afin d'imaginer la notion abordée dans la définition des entités. Vous visualiserez à la fin du document le rôle et l'intérêt d'agrégation d'un champ.

L'exécution de la requête :

La réalisation de notre formulaire nécessite une étape préparatoire et de réflexion assidue. Vous remarquerez sur la partie supérieure droite un certain nombre d'étiquettes (nommées et2 à et19). Toutes les propriétés <visible> de chaque étiquette sont définies à <Non>. Les règles de nommage de nos champs sont essentielles, car elles vont nous permettre d'utiliser la notion de variable lors de la communication entre le code VBA et les actions menées par l'utilisateur. L'état de chacun de ces champs variera donc sur les règles de gestion d'événements placés dans notre sous-formulaire. Cela vous semble un peu barbare à première vue, mais la lecture de ce chapitre devrait vous éclairer un peu plus. La partie gauche de l'écran dispose également d'un champ indépendant (nommé et1) et correspondant à l'élément de la section. Vous comprenez donc les règles précises de numéro d'ordre évoquées dans le chapitre IILes entités (Description des tables génériques). Deux traits nommés Trait et Trait2 apparaissent également dans la partie supérieure de l'écran et vont servir de repère pour le pliage de l'étiquette (option intéressante lorsque le support nécessite un pliage de l'étiquette visuelle).

Concernant les autres contrôles, nous reviendrons plus tard sur leurs utilisations respectives. Afin de construire dynamiquement notre étiquette, attardons-nous sur la réalisation de notre sous-formulaire, préambule nécessaire au fonctionnement du formulaire principal. Comme évoqué précédemment, la liste des champs de la table T_ParametresEtiquettes constitue donc la source de notre sous-formulaire. Cette table, je le rappelle est elle-même issue de la table T_champsEtiquettes, le nombre d'enregistrements varie donc en fonction du type d'étiquettes (articles, clients voire autres si besoin).

Dorénavant, nous allons visualiser le contenu de notre table T_ChampsEtiquettes (liste des éléments mis à disposition par le concepteur à destination de l'utilisateur) :

ainsi que la génération spontanée dans la table t_parametresEtiquettes lors de la création d'un nouveau format.

Afin de mieux comprendre les relations entre ces deux tables et aborder de manière plus sereine la suite de nos explications, le regroupement de ces deux requêtes dont le principe est le suivant :

et la visualisation précise de cette relation (pour une étiquette article) :

À partir de cet exemple précis, nous visualisons beaucoup plus facilement la relation bâtie entre les différentes étiquettes (et1 à et19) et les champs nécessaires à la construction de notre format. Le numéro d'ordre de chaque élément influera donc sur le comportement de chaque étiquette, par exemple la section (et1), le champ Fournisseur sur l'étiquette et3, le champ prix de vente sur l'étiquette et9 et ainsi de suite de notre formulaire principal.

La source de données de ce sous-formulaire basée sur la table T_Parametres_Etiquettes servira à l'utilisateur. Les propriétés accessibles sur le champ section étant différentes de celles des autres champs, nous allons donc interdire la saisie d'informations inutiles du champ section. Pour mémoire, la section correspond à la section Détail de l'état et hérite donc des mêmes propriétés. Ainsi la navigation opérée sur le sous-formulaire répond au code suivant. Ce code est appelé sur événement <SurActivation> du sous-formulaire :

Private Sub Form_Current()
  '
  Property_Fields
  Me.Auto_EnTete.Caption = Me.Nom_Du_Champ
  '
End Sub

La procédure Property_Fields associée à l'appel :

Private Sub Property_Fields()
'
' Fonction permettant d'inhiber l'affichage des contrôles sur la ligne de type section
'
Dim bolType_Ligne As Boolean
bolType_Ligne = Not (Me.Type_Ligne = 1)
'
    Me.Position_Haut.Enabled = bolType_Ligne
    Me.Position_Gauche.Enabled = bolType_Ligne
    Me.Souligne.Enabled = bolType_Ligne
    Me.Italique.Enabled = bolType_Ligne
    Me.Taille_Police.Enabled = bolType_Ligne
    Me.Nom_Police.Enabled = bolType_Ligne
    Me.Epaisseur_Caractères.Enabled = bolType_Ligne
    Me.Alignement.Enabled = bolType_Ligne
    Me.Nombre_Décimales.Enabled = bolType_Ligne
    Me.Afficher_OuiNon.Enabled = bolType_Ligne
    Me.Couleur_Texte.Enabled = bolType_Ligne
    Me.Format_Champ.Enabled = bolType_Ligne
'
End Sub

Détaillons donc l'ensemble des champs fournis dans le sous-formulaire. Celui-ci se décompose en quatre parties essentielles à savoir :

1. La définition des propriétés des champs de chaque élément nécessaire à l'élaboration de notre format d'étiquette ;
2. La position de départ de l'élément ainsi que ses dimensions ;
3. L'aide à la réalisation caractérisée par une image ;
4. L'affichage de l'élément dans le format.

La modification de certaines propriétés influe donc dynamiquement sur le formulaire principal en positionnant l'élément dans la zone de section définie.

La modification des propriétés suivantes : hauteur du champ, largeur du champ, position en hauteur, position en largeur et afficher l'élément impliquent donc la gestion d'un événement afin de mettre à jour le formulaire principal. Pour chacun de ces champs, l'événement déclenché se gère sur la propriété <Après Mise à Jour>. Nous verrons l'effet des autres propriétés au moment de la génération de notre état (aucun impact sur le formulaire parent).

Les procédures générées : les deux premières procédures sont contenues dans le code du sous-formulaire lui-même. Les deux dernières procédures sont enregistrées dans un module séparé.

Private Sub Hauteur_AfterUpdate()
    '
    ' Actualisation des données du formulaire Parent
    Show_Property

End Sub

Private Sub Show_Property()
'
' Actualisation des données du formulaire Parent
'
Dim Larg_Section As Integer
Dim Reponse As Integer
'
On Error GoTo Err_Show_Property
Select Case Me.Type_Ligne
'
' Contrôle de la position du champ dans la section
'
Case Is <> 1
    '
    ' Contrôle dépassement bord droit
    '
    Larg_Section = Parent.Et1.Width
    '
    If (Me.Largeur * 567) + (Me.Position_Gauche * 567) > Nz(Parent.Et1.Width, 0) Then
        
        Reponse = MsgBox("La largeur du champ " & Me.Nom_Du_Champ & vbCrLf & "dépasse la section de l'étiquette", vbCritical, "Erreur")
        '
        Select Case Me.ActiveControl.Name
        Case "Largeur"
            Me.Largeur = 0
        Case "Position_Gauche"
            Me.Position_Gauche = 0
        End Select
    End If
    '
    ' Contrôle dépassement bord haut
    '
    If (Me.Hauteur * 567) + (Me.Position_Haut * 567) > Nz(Parent.Et1.Height, 0) Then
        Reponse = MsgBox("La hauteur du champ " & Me.Nom_Du_Champ & vbCrLf & "dépasse la section de l'étiquette", vbCritical, "Erreur")
        '
        Select Case Me.ActiveControl.Name
        Case "Hauteur"
            Me.Hauteur = 0
        Case "Position_Haut"
            Me.Position_Haut = 0
        End Select
    End If
End Select
'
Call Affiche_Propriétés(Me.Parent.Name, Me.Nom_Du_Champ, Me.Afficher_OuiNon, Me.Hauteur, Me.Largeur, Me.Position_Haut, Me.Position_Gauche, Me.ChampEtiquette_Ordre)
'
Exit_Show_Property:
    Exit Sub
Err_Show_Property:
    MsgBox Err.Description
    Resume Exit_Show_Property
End Sub

Public Sub Affiche_Propriétés(NomForm, Nom_Champ, AFF, Haut, Larg, P_Ve, P_Ho, O_Element)
'
' Fonction permettant de vérifier l'affichage et envoyer le rafraîchissement dynamique du
' formulaire Parent
'
Dim retour As Boolean       ' retourne false si la fonction échoue
'
If O_Element Then
    retour = M_Propriétés(NomForm, O_Element, Nom_Champ, AFF, Haut, Larg, P_Ve, P_Ho)
End If
'
End Sub

Function M_Propriétés(NomForm, Element, Nom_Champ, Affiche, Hauteur, Largeur, Pos_Haut, Pos_Gauche) As Boolean
'
' Fonction de rafraîchissement dynamique du formulaire F_Etiquettes
' L'argument Element (défini par l'ordre) autorise la modification du comportement de chaque étiquette (ET1 à Etn)
' Nous utiliserons donc une variable afin de manipuler l'ensemble des contrôles
'
' La fonction renvoie False en cas d'erreur
'
Dim Fto As Form
Set Fto = Forms(NomForm)
 
On Error GoTo Err_M_Propriétés
'
Dim Nam_Control As String
Dim Aff_Repere As Boolean
'
M_Propriétés = False
'
' Afficher les reperes de pliage
'
Aff_Repere = Nz(Fto![Aff_Repère], True)
'
Nam_Control = "Et" & CStr(Element)
If Nz(Element, 0) = 0 Then Exit Function
'
Select Case Element     ' Element 1 il s'agit d'une section
Case 1
    Select Case Affiche
        Case -1
            With Fto.Controls(Nam_Control)
                .Visible = True
                .Width = Largeur * 567
                .Height = Hauteur * 567
            End With
            '
            Select Case Aff_Repere
            Case -1
                With Fto
                    .[Trait].Visible = True
                    .[Trait].Height = Hauteur * 567
                    .[Trait].top = Pos_Haut * 567 + (0.15 * 567)
                    .[Trait].Left = (Pos_Gauche + (Largeur / 2)) * 567 + (0.2 * 567)
                '
                    .[Trait2].Visible = True
                    .[Trait2].Width = Largeur * 567
                    .[Trait2].top = (Pos_Haut + (Hauteur / 2)) * 567 + (0.15 * 567)
                    .[Trait2].Left = Pos_Gauche * 567 + (0.2 * 567)
                End With
            Case Else
                With Fto
                    .[Trait].Visible = False
                    .[Trait2].Visible = False
                End With
            End Select
        Case Else
            Fto.Controls(Nam_Control).Visible = False
            Select Case Aff_Repere
            Case -1
                With Fto
                    .[Trait].Visible = False
                    .[Trait2].Visible = False
                End With
            End Select
        End Select
Case Else
    Select Case Affiche
        Case -1
            With Fto.Controls(Nam_Control)
                .Visible = True
                .Width = Largeur * 567
                .Height = Hauteur * 567
                .top = Pos_Haut * 567 + (0.15 * 567)
                .Left = Pos_Gauche * 567 + (0.2 * 567)
                .Caption = Nom_Champ
                '
            End With
        Case Else
            Fto.Controls(Nam_Control).Visible = False
        End Select
End Select
'
Set Fto = Nothing
M_Propriétés = True
'
Exit Function
Err_M_Propriétés:
    M_Propriétés = False
    MsgBox Err.Description & " dans le Module M_Propriétés"
End Function

Notez bien l'utilisation de Controls(Nam_Control) permettant de passer dans une variable la modification du comportant des étiquettes du formulaire F_Etiquettes_Principal. Une fois de plus, vous comprendrez le rôle décisif de l'ordre d'affichage dans les tables T_ChampsEtiquettes et la façon de le réutiliser à plusieurs effets (navigation, manipulation, etc.). Notez également que le positionnement des éléments est exprimé en Twips et non en centimètres (1 cm équivaut à 567 twips) et que distinction est faite des propriétés de type champ et section dans notre select case. Un centimètre équivaut à 567 twips (et un pouce à 1 440 twips).

Nous n'avons pas pour autant résolu tous les problèmes posés par la modification des propriétés des champs dans notre sous-formulaire. Il est essentiel de pouvoir visualiser le format de l'étiquette au moment du chargement de notre formulaire. Dans cette problématique, et puisque nous avons pris soin d'isoler dans des fonctions dissociées les règles d'affichage de nos éléments, nous allons donc boucler sur tous les enregistrements de notre table T_ParametresEtiquettes du format concerné afin de rafraîchir dynamiquement la visualisation du format à l'écran. Ce code est donc mis en place sur l'événement <sur Ouverture> des propriétés du formulaire parent (F_Etiquettes_Principal) matérialisé par le code suivant :

Private Sub Form_Open(Cancel As Integer)
'
' Chargement des codes couleurs spécifié pour les valeurs de champs de nos contrôles
'
On Error GoTo Err_Form_Open
  
'
If Nz(Me.TypeEtiquette_FK, 0) = 0 Then Exit Sub
'
Dim oDb As DAO.Database
Set oDb = CurrentDb
Dim rst As DAO.Recordset
Dim Ordre_Affichage As Byte, Couleur As Long
Dim Nam_Control As String
Dim X As Boolean
'
' Génération du Recordset permettant de lier l'ensemble des couleurs spécifiées dans le paramétrage
' des champs
'
Me.Auto_EnTete.Caption = Me.Description_Format
'
Set rst = oDb.OpenRecordset("SELECT T_ChampsEtiquettes.Ordre, T_ChampsEtiquettes.Couleur, T_ChampsEtiquettes.TypeEtiquette_FK FROM T_ChampsEtiquettes WHERE (((T_ChampsEtiquettes.TypeEtiquette_FK)=" & Nz(Me.TypeEtiquette_FK, 0) & "));")
  '
If rst.RecordCount = 0 Then
    rst.Close
    Set rst = Nothing
    Exit Sub
End If
  ' Boucle sur le recordset afin de modifier la couleur de fond des étiquettes (et1 à et19)
Do Until rst.EOF

    Ordre_Affichage = rst.Fields(0)
    Couleur = rst.Fields(1)
    '
    Nam_Control = "Et" & CStr(Ordre_Affichage)
    Me.Controls(Nam_Control).BackColor = Couleur
    '
    rst.MoveNext
Loop
rst.Close
'
' Affichage dynamique de l'étiquette en lecture des propriétés
' de la table T_ChampsEtiquettes
'
Set rst = oDb.OpenRecordset("SELECT T_ChampsEtiquettes.NomEtiquette, T_ParametresEtiquettes.PositionHaut, T_ParametresEtiquettes.PositionGauche, T_ParametresEtiquettes.Hauteur, T_ParametresEtiquettes.Largeur, T_ParametresEtiquettes.AfficherOuiNon, T_ChampsEtiquettes.Ordre, T_ChampsEtiquettes.TypeLigne FROM T_ChampsEtiquettes INNER JOIN T_ParametresEtiquettes ON T_ChampsEtiquettes.ID_ChampEtiquette = T_ParametresEtiquettes.ChampEtiquette_FK WHERE ((T_ParametresEtiquettes.NomEtiquette_FK)=" & Nz(Me.TB_Numero_Format, 0) & ");")
'
If rst.RecordCount = 0 Then
    rst.Close
    Set rst = Nothing
    Exit Sub
End If
'
Do Until rst.EOF
    '
    'Nom_Champ, Ele_Affiche, Ele_Hauteur, Ele_Largeur, Pos_Haut, Pos_Gauche, Ordre_Affiche
    '
    Call Affiche_Propriétés(Me.Name, Nz(rst.Fields(0), 0), Nz(rst.Fields(5), 0), Nz(rst.Fields(3), 0), Nz(rst.Fields(4), 0), Nz(rst.Fields(1), 1), Nz(rst.Fields(2), 1), Nz(rst.Fields(6), 0))
    '
    rst.MoveNext
Loop
'
' Fermeture et libération
'

Exit_Form_Open:
    rst.Close
    Set rst = Nothing
    oDb.Close
    Set oDb = Nothing
'
Exit Sub
Err_Form_Open:
    MsgBox Err.Description
    Resume Exit_Form_Open
End Sub

Lors de la création de notre format d'étiquette, l'image ci-dessous s'affiche sur notre écran :

L'élément Section (1) dont les valeurs par défaut (2) ont étés enregistrées dans la table est seul visible à l'écran. En effet, lors de l'insertion des données dans la table, cette valeur a été forcée à <Oui>. En modifiant les valeurs d'affichage des repères de pliage (3), les zones trait et trait2 sont rendues visibles ou invisibles.

Continuons donc notre article en modifiant les propriétés de notre étiquette. En changeant la valeur de la largeur du champ et de la hauteur du champ, vous constaterez la modification dynamique de la représentation de l'élément <Section> sur la partie supérieure. Les formats préconisés par les étiquettes articles ou adresses auront bien évidemment des valeurs tout à fait différentes. Concernant la section, seuls les éléments permettant de renseigner les dimensions sont disponibles.

Sur la partie inférieure de l'écran, nous pouvons ainsi naviguer sur les différents éléments mis à disposition de l'utilisateur.

En modifiant les valeurs coordonnées (3) et en ordonnant l'affichage de l'élément, la partie supérieure de l'écran a été instantanément redessinée. Le champ décrivant l'élément en cours est inscrit dans la zone (4). Cette valeur correspond au texte renseigné dans la table T_ChampsEtiquettes (NomEtiquette) et non à l'alias ou au nom du champ figurant dans la table (articles ou clients dans notre exemple), ceci afin d'offrir à l'utilisateur un confort particulièrement apprécié (vous le savez comme moi que le nommage d'un champ dans une table ou une requête ne paraît pas évident pour un client néophyte). Vous pouvez modifier l'ensemble des propriétés de chaque élément mais ces changements n'interviennent pas dans la visualisation dynamique de notre format (nous verrons leurs utilités dans la partie conception de notre état). En marge de la couleur, un écran vous permettra d'afficher un panel de différents coloris avec l'ensemble des valeurs décimales à associer au champ.

Procédez ainsi pour l'ensemble des éléments. En cliquant sur le bouton <Imprimer Etiquettes> vous pourrez visualiser l'affichage de votre format généré. Nous reviendrons plus tard sur cette fonctionnalité.

Après quelques manipulations, vous devriez obtenir ce genre de représentation à l'écran :

Le contenu de la table T_Parametres filtrée sur le format nous affiche donc le résultat suivant :

Nous en avons terminé sur la partie Formulaires. Vous pouvez également vous essayer à la création d'un format d'étiquettes adresses. Les exemples ci-dessus sont fournis dans le code source de l'applicatif.