Discussion :

[sultan87]

Bonjour
dans un module j'ai écrit une fonction dans un module

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
 
Option Compare Database
 
Function Toto()
    MsgBox "ca marche"
End Function
 
Function Création_Adhérents_Circonscription()
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Création_T_Adhérents_Circonscription_1"
    DoCmd.OpenQuery "Création_T_Adhérents_Circonscription_2"
    DoCmd.OpenQuery "Création_T_Adhérents_Circonscription_3"
    DoCmd.SetWarnings True
 
End Function

dans une macro je demande 'Exécutercode' en précisant soit 'Toto' soit 'Création_Adhérents_Circonscription'
et j'ai ce message d'erreur
"Ne parvient pas à trouver le nom 'Toto' ou 'Création_Adhérents_Circonscription' dans l'expression
pouvez vous m'aider
Pierre

[tee_grandbois]

bonsoir,

n'aurais-tu pas oublié de mettre les parenthèses à la fin du nom de la fonction ?

[sultan87]

non comme le montre l'extrait joint dans ma demande d'aide

[tee_grandbois]

bonjour,
En effet, j'aurais dû préciser: dans le paramètre "Nom de la fonction" de l'action ExécuterCode:

[sultan87]

Bonjour
la nuit avait porté conseil et ce matin j'ai fait cet essai
mème problème
je ne comprends pas
Pierre

[sultan87]

voila ma macro

et le message d'erreur

Pierre

[sultan87]

voici la fonction

Pierre

[sultan87]

une grossière erreur de ma part j'avais la Function Toto() a 2 endroits dans mon projet
j'en ai supprimé un et tout fonctionne
merci
Pierre

[tee_grandbois]

il faut compiler le code (menu VBA, onglet Débogage), je pense qu'un module, une fonction ou une procédure Sub doit porter le même nom

[sultan87]

merci
tout fonctionne correctement
Pierre