Bonjour à toutes et à tous
Je me permet d'ouvrir ce post car j'ai beaucoup de mal à comprendre le tuto de loufab sur la classe M.E.L.A (ICI).
Je tiens d'abord à vous informer que je ne suis pas expert dans l'utilisation du VBA... Si vous pensez que je m'engage dans quelque chose de trop complexe, n'hésitez pas à m'en faire part.
Ma BDD dans laquelle je veux utiliser la classe :
- Table : "T_Personnes" | Champs: ID_Personne, Nom, Prénom, Date de naissance, Adresse, Tel, Mail.
- Formulaire : "F_Personnes", incluant les champs de la table.
Voici comment j'ai procédé :
1 - J'ai télécharger le modèle "MELA.accdb".
2 - Dans le VBA de ma BDD, j'ai implanté la référence (Outils -> Références) : "MELA.accbd"
3 - J'ai copié/collé les boutons de l'exemple de formulaire de la BDD "MELA.accbd".
4 - J'ai ajouter le code ci-dessous dans mon formulaire "F_Personnes" :
Malheureusement, lorsque je clique sur les boutons, rien ne se passe...
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
37
38
39
40
41
42
43
44
45
46
47
48
49 Option Compare Database Option Explicit Dim mButtonNav As cBoutonNav Private Sub Form_Open(Cancel As Integer) ' mise en fonction de la classe Set mButtonNav = MELA.CreerMELA() ' paramètrage de la classe avec le formulaire Set mButtonNav.Form = Me ' Dans le cas ou l'on veut fixer un controle par défaut différent ' de celui défini par la classe. 'mButtonNav.DefaultControlName = "Prenom" End Sub Private Sub Form_Close() Set mButtonNav = Nothing 'libère la variable End Sub Public Sub piAfterDelete() '--------------------------------------------------------------------------------------- ' Procedure : piAfterDelete ' Author : Fabrice CONSTANS (MVP) ' Date : 13 / 07 / 2012 ' Purpose : Après la suppression de la fiche par la classe Mela CBoutonNav celle-ci ' fait un appel à cette procédure publique pour faire des traitements Post. ' En effet il n'y a pas de déclenchement d'événement après. ' Parametres: vlId l'id de la fiche supprimée ' Return : '--------------------------------------------------------------------------------------- ' Dim db As DAO.Database Dim i As Integer Set db = CurrentDb db.Execute "DELETE * FROM tInscription WHERE Id_Adherent=" & mButtonNav.IdCurrentRecord & ";", dbFailOnError Set db = Nothing On Error GoTo 0 Exit Sub End Sub
Ai-je loupé quelque chose ?
Merci d'avance pour votre lecture.
Falneur.
Partager