Discussion :

[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 :

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

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 :

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
    
'...
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 :

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

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 :

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

Private WithEvents btnCopierEnregistrement As CommandButton

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

Code :

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

Set btnCopierEnregistrement = Nothing

3) Ajouter l’instanciation dans la property Form

Code :

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

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 :

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
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à !

[loufab]

Nouvelle version avec le copier et la liste déroulante de recherche.

[loufab]

Concernant ton code :
Pense à libérer les objets que tu ouvres surtout dans des classes.

Code :

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

1
2
3
4
5
 
    Dim rst As Object
    Set rst = oForm.RecordsetClone  
...
    set rst = Nothing

Il vaut mieux créer une fonction private qui renvoi le recordcount.
Que se passe-t-il si le recordset est vide ?

Cordialement,

[SkyCorp]

Pense à libérer les objets que tu ouvres surtout dans des classes.

Exact, merci de me l'avoir rappelé

Il vaut mieux créer une fonction private qui renvoi le recordcount.

Pour quelle raison ?

Que se passe-t-il si le recordset est vide ?

S'il n'y a pas d'enregistrement dans ma table, les boutons ne sont pas visibles. C'est l'intérêt de la gestion des erreurs que j'ai inclus justement : sans enregistrement, RecordCount retourne la valeur 0.

[loufab]

A la fin du point VI-A du tuto, il est indiqué

Code :

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

Docmd.OpenForm "fAdherent",,,,acAdd

On continue le verrouillage/déverrouillage tout au long des actions qui le nécessitent. De quoi s'agit-il, et où peut-on le mettre ?

Et pourquoi placer les boutons de commande forcément dans l'en-tête ?

C'est pour donner un exemple d'une commande qui va déclencher le mode Ajout et de mettre ceci en pratique :

Ici le choix de l'activation ou non des contrôles est conditionné par la valeur renvoyée par la propriété NewRecord du formulaire. Ceci permet d'être immédiatement en situation de saisie si l'ouverture du formulaire est réglée sur Ajout de données.

Code :

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

1
2
3
4
5
6
7
' verrouille l'enregistrement dés son affichage sauf si c'est un nouvel enregistrement.
    ActiverControleDetail oForm.NewRecord
 
    ' Capte l'id de l'enregistrement
    If Not oForm.NewRecord Then
       Me.IdCurrentRecord = vIdCurrentRecord
    End If

Donc il n'y a rien à faire ! Du moment que tu ouvres un formulaire en mode acAdd (nouvel enregistrement).

Cordialement,