Discussion :

[miliev83]

Bonjour à tous,
Je souhaite adapter ce code sous access 2010 :
Public Function RecupParticipant(Projet As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT NomParticipant FROM Tbl_Projet
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function

Issu de ce lien :http://access.developpez.com/sources/?page=Requete

Le problème c'est que mon champ "PROJET" ne comporte pas de chiffres mais du texte et lorsque j'exécute la requête suivante j'ai le message d'erreur : "type de données incompatibles dans l'expression du caractères" . Comment faire pour l'adapter ?

La requête :
SELECT DISTINCT Tbl_projet.Projet, Recupparticipant(Projet) AS LesParticipants
FROM Tbl_projet;

Merci d'avance

[jimbolion]

miliev83,

Donc déjà si c'est du texte il faut déclarer comme cela ton argument :

Code :

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

Public Function RecupParticipant(Projet As String) As String

ensuite Projet n'est nullement utilisé dans ta requête SQL donc ou est l'intérêt de la transmettre sauf si tu as coupé cette ligne dans lequel tu passes ta condition

Code :

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

SQL = "SELECT NomParticipant FROM Tbl_Projet

je suppose que tu dois avoir quelque chose du genre

Code :

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

SQL = "SELECT NomParticipant FROM Tbl_Projet where projet ='" & Projet & "'"

Cldt

Jimbolion

[miliev83]

Merci c'était exactement ça et ça a l'air de fonctionner !

[jimbolion]

miliev83

Super n'oublie pas de mettre si tout fonctionne

Cldt

jimbolion