Bonjour,
Dans le module de la fonction il y a un «public». Voici le SQL:
Mais, le VBA, je ne le connais pas sauf le nom...
Le script que tu as, C'EST du VBA, pas du SQL.
Donc, un copier-coller dans un "module" (ATTENTION ! Pas dans un "module de classe" !!!!!!) est suffisant, et le code que tu montres est satisfaisant.
Le SQL c'est uniquement ce que CONSTRUIT la partie suivante :
"SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Projet
Est-ce que ton 'Projet' est numérique ou alphanumérique ?
Dans le premier cas, ton code est correct
Dans le second cas, il conviendrait de le modifier ainsi :
"SELECT NomParticipant FROM Tbl_Projet WHERE Projet=" & Chr(34) & Projet & Chr(34)
SELECT DISTINCT Tbl_projet.Projet, RecupParticipant(Tbl_projet.Projet) AS LesParticipantsFROM Tbl_projet;SELECT DISTINCT Tbl_projet.Projet, Bidon() AS LesParticipantsFROM Tbl_projet;
Si tu es dans le premier cas, OU SI tu es dans le deuxième cas, que tu as corrigé, comme indiqué ci-dessus, ET QUE ça ne fonctionne toujours pas...
Regarde ans la configuration de ton Access si les macros sont autorisées, ou si ta base est approuvée, etc.
Sinon, effectivement, ça risque fort de ne pas fonctionner.
Cordialement,
Partager