Discussion :

[exter666]

Bonjour
je n'arrive pas utiliser une fonction VBA ecrite dans un module dans une requete (il me dit qu'elle n'est pas définie). Comment puis-je résoudre cela?
merci d'avance

[cafeine]

Hello,

Est-elle dans un module accessible : donc pas dans un module de classe ?
Passe-t-elle à la compilation ?
Peux tu y accéder par le générateur d'expression ?

[exter666]

oui pour les trois mais dans l'ecriture sql ca ne marche pas...

[cafeine]

donne nous ton code en désespoir de cause ... on verra si une faute apparaît ...

[exter666]

voici ma fonction mis dans un module appelé RecupFamille

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
17
18
19
 
Option Compare Database
 
Public Function RecupFamille(Nom As Long) As String
    Dim res As DAO.Recordset
    Dim SQL As String
    'Selectionne les participant du projet
    SQL = "SELECT Prénom FROM T_Enfant WHERE Nom=" & Nom
    Set res = CurrentDb.OpenRecordset(SQL)
    'Concatene les différents enregistrement
        While Not res.EOF
        RecupFamille = RecupFamille & res.Fields(0).Value & " "
        res.MoveNext
        Wend
    'Enleve le dernier espace
    RecupFamille = Left(RecupFamille, Len(RecupFamille) - 1)
    'libere la mémoire
    Set res = Nothing
End Function

et voici ma requete

Code :

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

1
2
3
 
SELECT DISTINCT T_Enfant.Nom, RecupFamille(Nom) AS Prénom
FROM T_Enfant;

[=JBO=]

Bonjour,

je n'arrive pas utiliser une fonction VBA ecrite dans un module dans une requete (il me dit qu'elle n'est pas définie). Comment puis-je résoudre cela?

Cette requête est-elle exécutée à partir d'une application Access ou bien utilises-tu la bibliothèque DAO à partir d'un autre environnement ?

Dans le premier cas (application Access) ça devrait fonctionner.
Dans le deuxième cas (application non Access utilisant DAO), ça ne peut pas marcher (et c'est bien dommage ).

Il y a des moyens de contouner le pb, par exemple en remplissant une table de travail composée d'un champ [Nom] et d'un deuxième champ contenant la concaténation des prénoms, et en modifiant la requête pour effectuer une jointure avec cette table de travail, sur le champ [Nom].

Bon courage.
=JBO=

[Arkham46]

Salut,

Ne donne pas le même nom au module et à la fonction, ça provoque des conflits.

[exter666]

merci Arkham46 c'etait un probleme de nom (en renommant module1 ca marche) mais now j'ai un autre probleme:
il me dit que le type du paramètre n'est pas le meme pourtant le champ nom entré comme paramètre dans la methode est bien un string (texte de 255caractères max)???
voici mon code un peu modifié

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
17
 
Public Function RecupPrenom2(Nom As String) As String
    Dim res As DAO.Recordset
    Dim SQL As String
    'Selectionne les  projet du partcipant
     SQL = "SELECT Prénom FROM T_Enfant WHERE Nom=" & Chr(34) & Nom & Chr(34)
    Set res = CurrentDb.OpenRecordset(SQL)
    'Concatene les différents enregistrement
        While Not res.EOF
        RecupProjet = RecupProjet & res.Fields(0).Value & ";"
        res.MoveNext
        Wend
    'Enleve le dernier ;
    RecupProjet = Left(RecupProjet, Len(RecupProjet) - 1)
    'libere la mémoire
    Set res = Nothing
End Function

et ma requete est

Code :

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

1
2
3
 
SELECT DISTINCT T_Enfant.Nom, RecupPrenom2(Nom) AS LesPrenoms
FROM T_Enfant;

[exter666]

en faisant des recherches j'ai trouvé que le probleme ne venait pas de mon code mais bien de ma requete... tout fonctionne si je retire le distinct (mais alors j'ai plusieurs fois le nom ce que je ne veux pas). visiblement le distinct et ma methode ou fonction ne s'apprécie pas... quelqu'un a une idée?

[Trini]

Bonjour,

Un truc bizarre...
Si on regarde tes dernières lignes de code, tu utilises ta fonction RecupPrenom2 et dans les lignes de code tu mets les prénoms dans RecupProjet.
Résultat : ta fonction retourne une chaine vide dans ce cas.

Tu dois déjà remplacer RecupProjet par RecupPrenom2 dans tes lignes.

Salut,

[exter666]

oui merci petite erreur de ma part