[Article] Classe MELA pour formulaire

[loufab]

Bonjour,

Découvrez la classe MELA (CRUD en anglais), de l'acronyme Modification, Effacement, Lecture, Ajout.

Disponible en version 2007 ou Texte pour ceux qui ont des versions antérieures.

C'est ici
http://loufab.developpez.com/tutorie...s/classe-mela/

[Edit] L'interet d'une telle classe réside dans la facilité de mise en place d'un système de gestion de fiche pour l'ensemble d'une application, simplement par la déclaration d'une classe dans l'événement d'ouverture des formulaires.

J'attend vos commentaires.

Cordialement,

[St-Jean]

Bonjour Fabrice,

Un grand merci. J'adore cette classe MELA.

Une suggestion d'ajout (en rouge) dans Public Property Set Form (objForm As Form) :

Code :

1
2
3
4
5
6
7
       
'...
 If Not (TypeOf ctrl Is Label Or TypeOf ctrl Is Line Or TypeOf ctrl Is Image Or _
                TypeOf ctrl Is CustomControl Or TypeOf ctrl Is TabControl Or _
                TypeOf ctrl Is Page Or _
                TypeOf ctrl Is PageBreak Or TypeOf ctrl Is Rectangle) Then
'...

En effet, tous les contrôles de mon Form sont inclus dans un contrôle TabControl. Or comme le TabIndex de celui-ci est égal à zéro, le TabControl s'impose comme contrôle par défaut pour définir DefaultControlName.

En pratique, cela se traduit par un bouton btnEnregistrer toujours visible et un bouton btnModifier toujours invisible.

C'est un détail, mais ça peut éviter à d'autres de sécher comme je l'ai fait.

Cordialement
Ph.

[St-Jean]

Encore moi.

Une variante utile d'utilisation ou d'adaptation de la classe MELA :

J'ai créé un sous-formulaire ne contenant que les boutons. C'est ce sous-formulaire qui appelle la classe MELA. Il suffit d'insérer le sous-formulaire dans l'entête ou le pied de n'importe quel formulaire, et ça marche très bien. Cela évite de coder dans chaque formulaire le code d'appel de la classe Mela dans les événements Open et Close.

Il y a essentiellement deux modifications à apporter au code :

1. Partout ou le code fait référence à des contrôles de la section Détail du formulaire, il suffit de remplacer Form par Form.Parent. Par exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    
'...
For Each ctrl In Form.Parent.Section(acDetail).Controls
        ' c'est un controle avec une propriété TabIndex        
        If Not (TypeOf ctrl Is Label Or TypeOf ctrl Is Line Or TypeOf ctrl Is Image Or _
                TypeOf ctrl Is CustomControl Or TypeOf ctrl Is TabControl Or TypeOf ctrl Is Page Or _
                TypeOf ctrl Is PageBreak Or TypeOf ctrl Is Rectangle) Then

            If ctrl.TabIndex = 0 Then
                DefaultControlName = ctrl.Name
                Exit For
            End If

        End If
    Next
'...

2. Dans le code ci-dessous, remplacer acHeader par acDetail (j'ai placé les boutons dans la section Détail du sous-formulaire — J'aurais aussi pu les placer dans la section En-tête et ne pas modifier ce bout de code) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Property Set Form(objForm As Form)
' initialisation du formulaire à gérer
    On Error GoTo errSub

    Dim ctrl As Control
    
    Set oForm = objForm
    ' parcours l'entête de formulaire
    
    For Each ctrl In Form.Section(acHeader).Controls    ' => For Each ctrl In Form.Section(acDetail).Controls
        If TypeOf ctrl Is CommandButton Then
            ' on active l'événement
            ctrl.OnClick = "[Event Procedure]"
'...

Ph.

[loufab]

En effet beaucoup de variation possible autour de ce thème.

[loufab]

Suite à la demande d'un lecteur sur mon blog voici une petite évolution de la classe MELA.

Copie d'un enregistrement

Il est facile d’ajouter des fonctions dans la classe MELA.
Il suffit d’ajouter un bouton en utilisant la normalisation requise.

1) Ajouter la déclaration dans l’entête de la classe

Code :

Private WithEvents btnCopierEnregistrement As CommandButton

2) Ajouter la libération dans la procédure Terminate.

Code :

Set btnCopierEnregistrement = Nothing

3) Ajouter l’instanciation dans la property Form

Code :

1
2
Case "btnCopierEnregistrement "
Set btnCopierEnregistrement = Ctrl

4) Ajouter le code de la copie dans une nouvelle procédure respectant la normalisation du nom.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub btnCopierEnregistrement _Click()
' copier l'enregistrement courant
Dim rst As DAO.Recordset
Dim fld As DAO.Field
If Form.NewRecord And Not Form.Dirty Then Exit Sub 'pas de copie d'un enregistrement vide
btnEnregistrer_Click ' on enregistre
Set rst = Form.RecordsetClone 'on utilise le clone pour la source
 
btnCreer_Click 
 
Form.Recordset.AddNew 'et le recordset pour la destination
For Each fld In Form.Recordset.Fields
 
     If Not fld.Attributes And dbAutoIncrField Then 'sauf les NumeroAuto
         fld.Value = rst.Fields(fld.Name)
     End If
 
Next
Form.Recordset.Update
End Sub

5) Ajouter le bouton avec le nom btnCopierEnregistrement.

Voilà !