[AC-2003] Module VBA dans requête : Erreur "Fonction non définie dans l'expression" [Résolu]

[laurentw]

Bonjour,

J'essaie pour la première fois d'utiliser un module VBA. Vu le message d'erreur obtenu, j'ai créé un module des plus simple (nommé Module1) pour tester et j'ai toujours le même message d'erreur :

Fonction Module1 non définie dans l'expression

Voici mon code :

Code :

1
2
3
4
5
6
 
Option Compare Database
 
Public Function test() As String
test = "tt"
End Function

et ma requête :

Code :

1
2
 
SELECT Table1.id, Module1() AS test FROM Table1

J'utilise Access 2003, et j'ai bien essayé de voir s'il y a des dépendances manquantes, mais je ne trouve rien. Dans outils/références, il y a quelques références disponibles cochées, mais je ne vois pas de rubriques "manquantes".

Merci pour votre aide !

[marot_r]

Tu ne peux pas appeler un module dans une requête mais tu peux appeler une fonction publique dans une requête.

Code sql :

SELECT Table1.id, Test() AS test FROM Table1

En passant dans tes options dans l'éditeur de code active la déclaration des variables obligatoire c'est une bonne habitude de programmation et cela peut te sauver des heures de recherche de bug.

Quand tu l'as activé Access ajoute automatiquement Option explicit au début de ton code dans tous nouveau module.

A+

[laurentw]

Merci beaucoup pour ta réponse.

J'ai suivi tes conseils, mais j'ai maintenant ce message d'erreur :

"Fonction 'Test' non définie dans l'expression"

J'ai pensé que c'était la majuscule et j'ai maintenant ce code mais toujours ce message d'erreur.

Code :

1
2
3
4
5
6
 
Option Compare Database
 
Public Function Test() As String
Test = "tt"
End Function

Merci pour ton aide.

[marot_r]

Essaye :

Code sql :

SELECT Table1.id, Test() AS AfficheTest FROM Table1

A+

[laurentw]

Malheureusement toujours la même erreur :

Fonction 'Test' non définie dans l'expression

[micniv]

La réponse de Marot est la bonne.

Dans quel type de module as-tu déclaré Test . Il faut un module "standard" !

[francishop]

Bonjour,

Ta base n'aime peut-être pas => Test
Essayes en ajoutant un "f" genre :

Code :

1
2
3
Function fTest() As String
    fTest = "tt"
End Function

Cordialement.

[laurentw]

Bien vu ! C'était effectivement le mot "Test" qui posait problème,en le remplaçant par "fTest", ça marche. Probablement conflit avec une fonction de ce nom ailleurs.

Ce qui est étrange, c'est que j'avais testé ce module sur un autre ordi avec une autre version de Access et ça marchait...

Merci beaucoup à tous.