Discussion :

[pascalb41]

Bonjour,
Je suis totalement ignare en Access.
J'ai procédé au remplacement d'un vieux PC qui tournait sous XP et une très vieille version d'access (2003 peut-être...) par un nouveau PC sous Windows 10 avec Office 2019 Pro Plus.
Sur le vieux PC il y avait une petite application Access développée il y a une quinzaine d'années.
Cette application comporte 2 tables, 1 menu d'accueil avec une dizaine de boutons et quelques formulaires.
La plupart des actions fonctionnent sauf au moins une qui entraine l'affichage successif de 2 messages d'erreur que voici :





J'ai donc voulu examiner le code de cette macro qui plante.
Le problème c'est que je n'arrive pas à trouver ce code.
Lorsque sur l'onglet Outils de base de données j'appelle la commande Exécuter une macro j'ai une liste qui s'affiche avec une dizain de macro dont celle que je recherche.
Mais lorsque je vais dans Visual Basic, je ne trouve pas ces macros.
J'ai 3 formulaires, 3 modules, mais je ne trouve pas les macros de la liste.

Pourriez-vous m'aider à trouver ces macros afin que j'essaye de comprendre ce qui plante ?

Merci.

[ONTAYG]

Bonjour,

Les macros ne sont pas codés en VB, c'est purement en mode graphique.

Tu les trouveras dans le menu de navigation sur la gauche, ou dans l'onglet Créer/Macros

ONTAYG

[pascalb41]

Bonjour et merci d'avoir répondu.
Lorsque j'appelle Macro dans l'onglet Créer je peux ajouter une nouvelle action mais je ne trouve pas les macros déjà existantes :

[hyperion13]

Salut,
Si les macros ne sont pas visibles dans la barre des objets à gauche, elles sont peut-être incorporées.
Aller sur Évènements de l'objet et vérifier s'il n'y a pas Macro incorporée.

[pascalb41]

Bonjour et merci d'avoir répondu,
Lorsque je vais sur les propriétés du bouton qui déclenche l'erreur, je trouve le code ci-dessous qui, si je comprends bien, appelle une macro PrepareABEBooks mais je ne vois pas où se trouve la définition de cette macro.

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
Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click
 
    Dim stDocName As String
 
    stDocName = "PrepareABEBooks"
    DoCmd.RunMacro stDocName
 
Exit_Commande15_Click:
    Exit Sub
 
Err_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
 
End Sub

[ONTAYG]

Re

Comme dit hyperion13, les macros doivent être dans la partie Navigation sur la gauche.

Le code que tu as est généré par l'assistant pour lancer une macro sur le click du bouton, une macro qui existe déjà dans la base de donnée.

ONTAYG

[pascalb41]

OK mais je ne vois pas où se trouve cette partie Navigation sur la gauche, je ne dois pas être sur le bon affichage, je suis ici, et il y a bien un Navigation en haut mais il est grisé.

[ONTAYG]

Bon à priori il a été masqué.

Appui sur la touche F11, sinon Fichier/Options/Base de données active et coche "Afficher le volet de navigation"

ONTAYG

[pascalb41]

Effectivement le menu de navigation est apparu avec un F11 mais j'ai beau chercher dans ce menu, je ne trouve pas le "code" de ma macro.

[hyperion13]

Attentiion !
Le bouton Navigation que vous pointez sert à créer des formulaires de navigation. D'ailleurs je m'étonne qu'il soit inactif.
A priori, votre code est du vba. ALT F11 pour ouvrir la fenêtre environnement VBA.
Cliquez sur l'un des boutons de votre frm, regardez à droite Feuille des propriétés, onglet Évènements

OK mais je ne vois pas où se trouve cette partie Navigation sur la gauche, je ne dois pas être sur le bon affichage, je suis ici, et il y a bien un Navigation en haut mais il est grisé.

[ONTAYG]

et il n'y a rien lorsque tu n'a pas la liste déroulante

[pascalb41]

Attentiion !
Le bouton Navigation que vous pointez sert à créer des formulaires de navigation. D'ailleurs je m'étonne qu'il soit inactif.
A priori, votre code est du vba. ALT F11 pour ouvrir la fenêtre environnement VBA.
Cliquez sur l'un des boutons de votre frm, regardez à droite Feuille des propriétés, onglet Évènements

Bonjour,

Lorsque je vais sur les propriétés du bouton qui déclenche l'erreur j'ai cette fenêtre qui m'affiche une liste de procédures événementielles mais aucune de ces procédures n'est sélectionnée si je comprends bien :



Si je déroule la liste j'ai ces éléments :



Du côté de l'éditeur VB, le code qui est associé au clic sur ce bouton est le suivant :

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
Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click
 
    Dim stDocName As String
 
    stDocName = "PrepareABEBooks"
    DoCmd.RunMacro stDocName
 
Exit_Commande15_Click:
    Exit Sub
 
Err_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
 
End Sub

Et si je comprends bien, il appelle une une macro du nom de PrepareABEBooks.
Mais le "code" de cette macro, je ne le trouve pas.

Pascal

[ONTAYG]

Bonjour,

Je ne comprends pas, dans le volet de navigation tu devrais voir une macro qui se nomme : PrepareABEBooks

ONTAYG

[pascalb41]

Bonjour,

Je ne comprends pas, dans le volet de navigation tu devrais voir une macro qui se nomme : PrepareABEBooks

ONTAYG

Moi non plus je ne comprends rien, dans le volet de navigation je n'ai pas de macros, seulement des forms et des tables :

[tee_grandbois]

bonjour,
vois-tu tes objets avec ces deux options cochées ?

[ONTAYG]

A moins quelle ait été masqué.

Clique droit en haut de la liste puis Options de navigation et décoche "Afficher les objets masqués".

ONTAYG

[pascalb41]

bonjour,
vois-tu tes objets avec ces deux options cochées ?

Voici ce je vois avec les options demandées :

[pascalb41]

A moins quelle ait été masqué.

Clique droit en haut de la liste puis Options de navigation et décoche "Afficher les objets masqués".

ONTAYG

La case Afficher les objets masqués n'était pas cochée :

[ONTAYG]

Alors là je ne vois plus.

Car pour moi la commande suivante lance bien une macro.

Code :

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

1
2
stDocName = "PrepareABEBooks"
DoCmd.RunMacro stDocName

[pascalb41]

Alors là je ne vois plus.

Car pour moi la commande suivante lance bien une macro.

Code :

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

1
2
stDocName = "PrepareABEBooks"
DoCmd.RunMacro stDocName

On est bien d'accord, je ne connais pas Access mais c'est assez transparent.
Le problème c'est de trouver où le code de cette Macro est écrit pour pouvoir comprendre ce qui plante quand on la lance en cliquant sur le bouton.