Discussion :

[Farabon]

Donc je suis allé dans le volet requêtes,
Créer nouvelle.

Je passe en mode SQL et je saisis la requête ci-dessus.
Exécuter.

Toujours "Fonction non définie"...

Est-ce que je devrais tester de mettre le code de ma fonction à la suite du code d'une fonction qui avait été codée avant que je ne prenne le projet en main? et donc qui a priori fonctionne?

[Farabon]

Je viens de tester, ça ne marche pas non plus...

[Jean-Philippe André]

on va etre fixe,

creer une pseudo fonction

Code :

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

1
2
3
Public Function Fake() As Double
Fake = 1
End Function

et fais appel a cette fonction dans une requete, on va voir deja si de base ca passe ou pas.

A envisager, creer une nouvelle base, et importer tous les elements de la base en cours.

[Farabon]

Re,

J'ai créé la fonction "Fake" et je l'appelle dans une requête SQL:

Code :

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

SELECT DISTINCT Ti_com_MA.IdentifiantMA, Fake() AS Communes FROM Ti_com_MA

Et ça marche!
J'ai mon tableau comme j'aimerais, sauf que je préfèrerais la fonction "ListeCommunes"...

Donc d'où peut venir le problème?
De la fonction en elle-même?

[Farabon]

Un pas en avant:

J'ai renommé ma fonction en en LstCom, et maintenant elle est reconnue et tourne... Incompréhensible...

Seulement, j'obtiens un message d'erreur lorsque j'exécute une requête SQL la faisant intervenir:

Voici le code de ma fonction:

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
20
21
22
Public Function LstCom(MA As Integer) As String
 
    Dim res As DAO.Recordset
    Dim SQL As String
 
    'Selectionne les participant du projet
    SQL = "SELECT Co_nom FROM TL_Commune INNER JOIN Ti_Com_MA ON TL_Commune.[Co_Id] = Ti_Com_MA.[INSEE] WHERE IdentifiantMA=" & MA
    Set res = CurrentDb.OpenRecordset(SQL)
 
    'Concatene les différents enregistrement
    While Not res.EOF
    LstCom = LstCom & res.Fields(0).Value & ", "
    res.MoveNext
    Wend
 
    'Enleve le dernier virgule - espace
    LstCom = Left(LstCom, Len(LstCom) - 2)
 
    'libere la mémoire
    Set res = Nothing
 
End Function

Puis le code qui l'appelle:

Code :

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

1
2
3
4
5
6
7
8
9
Sub bidon()
    Dim res2 As DAO.Recordset
    Dim SQL3 As String
 
SQL3 = "SELECT DISTINCT Ti_com_MA.IdentifiantMA, LstCom(Ti_com_MA.IdentifiantMA) AS Communes FROM Ti_com_MA"
 
Set res2 = CurrentDb.OpenRecordset(SQL3)
 
End Sub

En mode pas à pas, je vois que la requete tourne en utilisant le calcul de LstCom (quand on est à dernière ligne du code) et ce pour tous les MA.
Cependant, une fois tout cela terminé, j'obtiens une erreur:
"Erreur d'exécution 3463: Type de données incompatibles dans l'expression du critère" en VB
"Erreur Jet inconnue" en SQL

Une idée?

[Farabon]

C'est bon, ça roule!

J'ai également viré le SELECT DISTINCT de la requête, un simple SELECT suffit.
Et j'ai enlevé les noms de tables avant mes noms de champs, et ça marche...

Inexplicable informatique...

Merci en tout cas pour les précieux conseils!

[Jean-Philippe André]

Un element que je n'avais effectivement pas pense a incorporer dans l'analyse.

Si tu estimes que ton prboleme est resolu, pense a cliquer sur

[TheSkwi]

Bonjour, premier post sur ce forum.
Désolé si ça provoque une gène de faire remonter ce topic mais je voulais simplement remercier les membres de ce forum pour leur réponses dont je me sers souvent.

Ici en l’occurrence j'avais le même problème : fonction qui marchait sous excel, le passage dans un modèle access rendait la fonction inutilisable.

Le problème venait surement du fait que le nom du module et le nom de ma fonction étaient les mêmes. J'ai renommé le nom du module comme ça a été dit et ça fonctionne désormais (en utilisant le nom de la fonction dans ma requête SQL).