[VBA] Fonction non définie dans l'expression

**DREADY** · 08/03/2007, 15h41

Bonjour à tous,
pour répondre à mon problème j'ai tenté de suivre les instructions trouvées dans la FAQ ICI mais rien n'y fait...

J'ai copié-collé le code d'une fonction dans un module d'une nouvelle base de données.
Lorsque je veux l'utiliser dans une requête, j'obtiens le message "Fonction non définie dans l'expression".

Or la fonction ne pose aucun problème dans la BD d'origine.

Par ailleurs, dans la nouvelle BD, dans Outils/Références, aucune bibliothèque n'est marquée comme manquante...

Auriez-vous une idée ?

Merci d'avance.

----edit-----------
il s'agit d'ACCESS 2003

Invité · 08/03/2007, 15h44

Bonjour

Sans le code de la fonction cela sera dur, il faudrait le mettre

Starec

**Lou Pitchoun** · 08/03/2007, 15h46

Salut,

Euh.... nan pas d'idées sans avoir plus de précision sur cette fonction (code, emplacement, déclaration etc...), et comment tu t'en sers dans la requête.

**DREADY** · 08/03/2007, 15h47

oupss, pardon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function classvar(x, Y) As Double
' transformation de la variable en classes centrées
' arguments :
'                  x = Variable
'                  y = amplitude de la classe ( ex 200 pour classes centrées de 200 )
If IsNull(x) Then classvar = Null: Exit Function
If Val(x) = Y / 2 + (2 * Y * Int(Val(x) / (2 * Y))) Then x = Val(x) + 1  ' pour retrouver les mêmes classes que dans les anciennes fonctions de
                                                    ' de regroupement lorsque variable vaut 2 fois Y  ou Y/2
'classVAR = classVAR((CInt(x / Y)) * Y, 4)
classvar = (CInt(x / Y)) * Y
 
End Function

la fonction est dans un module,
dans la requête j'écris :

Code :

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

nomduchamps : classvar([Matable].[monchamps] ; 100)

Invité · 08/03/2007, 15h50

Re

Déclare ta fonction Public (à mettre devant le mot Function), et montre nous le bout de code où tu fais appel à elle.

Starec

**Lou Pitchoun** · 08/03/2007, 15h50

Envoyé par Starec

Re

Déclare ta fonction Public (à mettre devant le mot Function), et montre nous le bout de code où tu fais appel à elle.

Starec

Il fait appel à la fonction dans la requête.

Rien que de déclarer Public devrait suffir.

**DREADY** · 08/03/2007, 15h53

J'ai ajouté Public mais hélas ça ne fonctionne toujours pas.

Envoyé par Kikof

Il fait appel à la fonction dans la requête.

Oui, c'est en effet dans ma requête que j'utilise la fonction.

**Lou Pitchoun** · 08/03/2007, 15h57

Il y a quoi comme erreur maintenant ?
nomduchamp est de quel type ?

**DREADY** · 08/03/2007, 16h00

Il y a toujours le même message d'erreur "Fonction non définie dans l'expression".

monchamps est de type numérique réel double.

Je précise qu'il appartient à une table liée provenant d'une autre BD (je ne sais pas si c'est important).

**Lou Pitchoun** · 08/03/2007, 16h08

J'ai utilisé la technique déjà (et je viens de me rendre compte au passage que ma fonction n'est pas déclarée en Public) et je ne vois pas ce qui cloche...

**Lou Pitchoun** · 08/03/2007, 16h09

Ca y est je pense savoir ce qui cloche.
Compare ton entête de fonction avec la mienne

Code :

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

Function Tranche(ByVal Valeur As Currency) As String

Et avec celle des sources.

Edit : ça me parait quand même bizarre que ça fonctionnait avant dans ton autre base

**DREADY** · 08/03/2007, 16h13

j'ai un très vague souvenir (mais sans être sûr que se soit vraiment ça) que la personne m'ayant donné cette fonction, m'avait dit (y a un bail...) d'aller dans Outil/Référence et de faire je ne sais plus trop quelle manip....
Mais là j'ai décoché puis recoché toutes les bibliothèques présentes dans la BD originale (dans laquelle la fonction fonctionne) mais sans succès...

----edit----
viens de voir ton second post, je teste.

Invité · 08/03/2007, 16h17

Re

Ta fonction est bizarre, car ici

Code :

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

1
2
 
classvar = (CInt(x / Y)) * Y

tu fais une conversion en entier, alors que tu récupére des données sans type, en plus en double, tu devrais avoir une erreur de type incompatible, ce qui a priori n'est pas le cas.

est-ce que les données de la base d'origine (où était la fonction) sont les mêmes que la base actuelle ?

Starec

**Lou Pitchoun** · 08/03/2007, 16h18

Personnellement, au niveau des références je n'ai rien de spécial de coché.

**DREADY** · 08/03/2007, 16h30

Envoyé par Starec

est-ce que les données de la base d'origine (où était la fonction) sont les mêmes que la base actuelle ?

Oui, j'ai importé une table pour faire le test, ça fonctionne dans une BD et pas dans l'autre, avec exactement les mêmes données.

Envoyé par Starec

tu fais une conversion en entier, alors que tu récupére des données sans type, en plus en double, tu devrais avoir une erreur de type incompatible, ce qui a priori n'est pas le cas.

En fait au final on récupère bien un entier ; par exemple si la valeur X vaut 203, et qu'on a indiqué une classe d'intervalle Y de 100, on récupère l'entier 200.

Ceci me fait dire que cette fonction est un peu différente de celle que m'a indiqué Kikof, qui renvoie du texte.
Du coup j'ai pas trop su quoi faire avec...

Mais bon, comme vous vous en rendez compte je suis une bille en prog, donc je dis peut-être des bêtises...