Discussion :

[kmaillet]

Bonjour à tous,

Je souhaite créer un module de classe pour gérer certains événements des checkboxs d'un de mes formulaires. Pour ce faire j'ai extrapolé un module de classe qui marche parfaitement bien sur VBA excel. Malheureusement je n'arrive pas à le faire fonctionner sous Access, le logiciel ne relève pas d'erreurs en exécutant le code mais c'est pas pour autant que ça marche: les événements ne sont toujours pas gérés.

Voici ci dessous le code du module de classe "ControleAccessEvents"

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
Option Compare Database
Option Explicit
 
Public WithEvents mCheckboxes As Access.CheckBox
Public WithEvents mLabelGroup As Access.Label
Public WithEvents mTextBoxGroup As Access.TextBox
Public WithEvents mButtonGroup As Access.CommandButton
 
Private Sub mButtonGroup_Click()
'MsgBox (" has been pressed")
End Sub
 
Private Sub mLabelGroup_Click()
'MsgBox mLabelGroup.Caption & " backcolour is " & mLabelGroup.BackColor
End Sub
 
Private Sub mTextBoxGroup_Click()
End Sub
 
Private Sub mTextboxGroup_Change()
'MsgBox mTextBoxGroup.Name & " value is is " & mTextBoxGroup.Text
End Sub
 
Private Sub mCheckboxes_Click()
'MsgBox ("coucou")
End Sub

Voici le module qui assigne à la classe ControleAccessEvents les checkboxs de mon formulaire

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
30
31
32
33
34
35
36
Option Compare Database
Option Explicit
 
Dim mcolEvents As Collection
 
Sub Grp_ctrlAccess()
 
'pour rajouter tous les contrôles à la classe ControleAccessEvents
Dim cCBEvents As ControleAccessEvents
Dim cBtnEvents As ControleAccessEvents
Dim cLblEvents As ControleAccessEvents
Dim cTBEvents As ControleAccessEvents
Dim shp As Access.Control
Set mcolEvents = New Collection
 
For Each shp In Form_frmEvolutionAnalyses.Controls
 
    If TypeOf shp Is Access.CheckBox Then
        Set cCBEvents = New ControleAccessEvents
        Set cCBEvents.mCheckboxes = shp
        mcolEvents.Add cCBEvents
    ElseIf TypeOf shp Is Access.CommandButton Then
        Set cBtnEvents = New ControleAccessEvents
        Set cBtnEvents.mButtonGroup = shp
        mcolEvents.Add cBtnEvents
    ElseIf TypeOf shp Is Access.Label Then
        Set cLblEvents = New ControleAccessEvents
        Set cLblEvents.mLabelGroup = shp
        mcolEvents.Add cLblEvents
    ElseIf TypeOf shp Is Access.TextBox Then
        Set cTBEvents = New ControleAccessEvents
        Set cTBEvents.mTextBoxGroup = shp
        mcolEvents.Add cTBEvents
    End If
 
Next

Je n'arrive pas à comprendre pourquoi ça ne marche pas. Tous les conseils sont les bienvenus !!

Merci d'avance

[Tofalu]

Dans quel évènement est lancé votre Sub ?

[kmaillet]

Le sub est lancé dans l'événement Load du formulaire en question.

[kmaillet]

Après de longues et infructueuses recherches j'ai enfin trouvé la solution à mon petit problème.
Mon module de classe ne fonctionnait pas car Access gère, semble t il, différemment les événements que Excel.

Pour résoudre ce petit problème il suffit de faire une toute petite modification dans le module "classique":

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
30
31
32
33
34
 
Sub Grp_ctrlAccess()
 
'pour rajouter tous les contrôles à la classe ControleAccessEvents
Dim cCBEvents As ControleAccessEvents
Dim cBtnEvents As ControleAccessEvents
Dim cLblEvents As ControleAccessEvents
Dim cTBEvents As ControleAccessEvents
Dim shp As Access.control
Set mcolEvents = New Collection
 
For Each shp In Form_frmSites.Controls
 
    If TypeOf shp Is Access.CheckBox Then
        Set cCBEvents = New ControleAccessEvents
        Set cCBEvents.mCheckboxes = shp
        mcolEvents.Add cCBEvents
    ElseIf TypeOf shp Is Access.CommandButton Then
        Set cBtnEvents = New ControleAccessEvents
        Set cBtnEvents.mButtonGroup = shp
        mcolEvents.Add cBtnEvents
    ElseIf TypeOf shp Is Access.Label Then
        Set cLblEvents = New ControleAccessEvents
        Set cLblEvents.mLabelGroup = shp
        mcolEvents.Add cLblEvents
    ElseIf TypeOf shp Is Access.TextBox Then
        Set cTBEvents = New ControleAccessEvents
        Set cTBEvents.mTextBoxGroup = shp
        shp.AfterUpdate = "[Event Procedure]"     'si l'on souhaite que l'événement AfterUpdate soit géré par le module de classe. Oui, trouver cette ligne m'a fait perdre 2 semaines..
        mcolEvents.Add cTBEvents
    End If
 
Next
End Sub

Voilà voilà!
Je passe le sujet en Résolu!

[Mr l'Ashanti]

Cette syntaxe est donc essentielle ? Merci à vous
Pour l'événement mousemove dans le module de classe sur les labels, pour ceux qui tomberont sur ça :
Ctrls.OnMouseMove="[Event procedure]"

Merci à toi pour le coup de génie

[deedolith]

Hello,

Je ne suis pas sûre de comprendre l'intérêt de passer par une classe intermédiaire.
Sachant qu'un formulaire est une classe, il suffit de déclarer des évènements dans ce dernier, et l'instancier (ou initialiser une référence).

Au pire, tu peux passer par le design pattern Observer.

[loufab]

Bonjour,

L’intérêt d'avoir une classe CRUD se pose quand tu as plusieurs formulaires de saisies et que tu veux éviter de copier ton code dans chacun.

Tu as une seule déclaration dans ton Form_Open et tu ne copies plus qu'un bandeau de contrôles (les boutons Créer, Modifier...) sans aucun code, la classe se chargeant de tout.

https://loufab.developpez.com/tutori...s/classe-mela/

Mais ce n'est pas la seule solution à ce problème.

Cordialement,

[deedolith]

Je voit le principe, qui, il faut l'avouer est assez fouillis.

Je pense que le DP Observer est une meilleur solution.
Le formulaire cible se contente de générer des évènements, que la (ou les) classe(s) abonnée(s) peuvent intercepter et traiter.
Moins de références sont en jeux.

https://en.wikipedia.org/wiki/Observer_pattern

[loufab]

Alors n'hésite pas à faire un tuto ou une contribution.

Car il faut avouer qu'un lien wiki c'est très maigre.