Discussion :

[pguiheu]

Bonjour à tous,

J'essaie désespérément de faire une fonction personnalisée dans ACCESS.
Je mets dans un module indépendant la fonction suivante :

Public Function toto(x As Variant)

toto = x * x

End Function

J'ai une petite table avec quelques valeurs et ma requête vise à obtenir le carré des nombres. Peu importe la fonction d'ailleurs... Si j'arrive à faire marcher celle là déjà...
Donc, dans la requête en mode création j'ai mon champ [Nombres] de la table et le champ calculé. Ma fonction toto apparaît dans le générateur d'expressions. Et je fais Expr1: toto([Nombres]).
Quand j'exécute la requête j'ai #Erreur dans la colonne sur toutes les lignes.
je précise que la fonction marche, puisque toto(5) donne 25 dans la fenêtre Exécution... Le même code dans Excel ne pose aucun problème...

Bref, je sèche... Quelqu'un aurait-il une idée ?
Merci d'avance !

Patrick

[argyronet]

Bonjour,

Cela ne vient pas de la fonction...
As-tu essayé simplement ceci avant d'employer la fonction Toto() ?

Code :

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

Expr1: [Nombres]*[Nombres]

Qu'est-ce que ça donne ?

Argy

[pguiheu]

Merci de ton aide.
Oui, pas de problème, l'expression [Nombres]*[Nombres] donne bien le résultat attendu, à savoir le carré des nombres.
Mais mon souci, c'est d'arriver à faire fonctionner la fonction personnalisée, c'est à dire d'avoir un petit code VBA, ici tout simple en effet, et de l'utiliser comme fonction dans une requête.
Je ne comprends pas pourquoi ça ne fonctionne pas.

A plus,

Patrick

[random]

essaye ceci
select toto([monnombre]) from matable;

évidemment [monnombre] doit être numérique

si cela ne marche pas tu dois avoir un problème de référence

essaye de le règler en faisant

select monmodule.toto(......

[pguiheu]

Merci random.
Dans une nouvelle requête, en SQL Direct, j'ai tapé
SELECT toto([Nombres]) as Expr1 FROM Table1;

J'ai même essayé plus simple : SELECT Table1.Nombres FROM Table1;

A l'exécution j'ai une fenêtre "Sélectionner la source de données" avec 2 onglets "Source de données fichier, Regarder dans Data Sources" et l'autre onglet "Source de données machine"...

Là, c'est net, ça me dépasse...

Par contre, je n'ai pas bien compris ce que tu me conseilles de faire avec select monmodule.toto...

Si tu peux m'en dire un petit peu plus, ce serait sympa, je vais essayer...

Autre chose : mon petit code, et la fonction, ça marche chez toi ???
Si tu pouvais essayer, ce serait sympa aussi.

merci encore,
A plus

Patrick

[argyronet]

Re,

Ce que random te recommande c'est de spécifier le module, mais bon...

Code :

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

Module.Fonction([Paramètres])

D'où viennent tes données, elles ne sont pas locales ?

Par acquis de conscience, créé une table locale bidon avec un champ numérique, met 3 valeurs dedans et réessayes...

Argy

[pguiheu]

Merci Argy,

Ma table est déjà en local, tout est sur mon PC.
Au risque de te paraître particulièrement ignare, ça veut dire quoi "spécifier le module" ? et le code, je le mets où ? dans l'éditeur VB ? dans une requête en SQL ?

Et chez toi, si tu as Access et un peu de temps, ça donne quoi ma fonction ?
Parce que, si ça marche en l'état ailleurs, c'est déjà une indication...

Je rappelle le code :

Public Function toto(x As Variant)

toto = x * x

End Function


Merci si tu veux bien essayer et de me tenir au courant

A bientôt, et bon appétit,

Patrick

[argyronet]

1/ Nom de module = le nom que tu donnes à ton module (par défaut, Module1, Module2, etc...).
En fait, quand tu veux appeler une fonction, si l'on considère que deux fonctions distinctes dans ton projet portent le même nom, elles doivent être situées dans 2 modules différents sinon, ce n'est pas possible.
Donc, en admettant que tu aies quelque part une fonction Toto() qui se ballade ailleurs (donc dans un autre module) et qui exécute totalement autre chose (une extraction de texte par exemple avec 2 paramètres au lieu d'un) que le carré du nombre, elle se comporte avec des #Erreur car le calcul est impossible.
N'aurais-tu pas une seconde fonction Toto() par hasard ?
C'est pour ça que random t'as suggéré de préfixer le module, pour être certain que tu prends la bonne fonction Toto()...

En fait, le requêteur est incapable de dire qu'il y a une erreur, sauf si elle est de compilation.

2/ Ca marche parfaitement bien...
Je n'ai pas besoin d'essayer : pour infos, j'exploite cette fonctionnalité depuis plusieurs années et c'est très pratique.

Argy

[random]

ta fonction ne peut que marcher pas besoin de test

[pguiheu]

A tous, merci de votre aide.

En fait, ma fonction marche très bien sur le poste d'un de mes collègues.
C'est déjà ça ! ça veut dire que ma logique n'est pas en cause...

je suppose que c'est mon installation d'access et/ou de windows qui pose problème...

A une prochaine fois !

Patrick