Discussion :

[amel123456789]

Salut a tous,
voila j'essaie de faire une concaténation de champ de plusieurs colonnes sur une même ligne, voici mon code :

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

Ma requete est :

Code :

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

1
2
SELECT DISTINCT TACHENEXT2.NomDuProspectHA, Tache(NomDuProspectHA) AS LesTaches
FROM TACHENEXT2;

erreur de compilation et il surligne '.recordset'.
Comprends po !!!
Merci d'avance

[Lou Pitchoun]

Salut
Quelle est le message d'erreur ?
As tu pensé à activer la référence DAO ?

[amel123456789]

Voui j'ai activé DAO.
Sinon le message c'est :

"Erreur de compilation.
Membre de méthode ou de données introuvable"

en fait je lance ce code quand je lance une requete basique ACCESS. J'ai pas besoin d'avoir de formulaire pour lancer un code du genre ? (désolé si c'est une question stupide)

[DMboup]

Il faut que tu declare ta base de donsées.

Code :

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

1
2
3
4
5
 
 
Dim editialis As Database
 
Set editialis=Currentdb()

Avant de l'utiliser comme ca

Code :

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

1
2
 
Set res = editialis.OpenRecordset(SQL)

[amel123456789]

je viens de faire ce que tu m'as dit et j'ai un message :

erreur d'execution '3061'
Trop peu de parametres. 2 attendu

???

[DMboup]

C'est dans ta requête SQL qu'il faut aller voir

SQL = "SELECT Tache FROM TACHENEXT2 WHERE NomDuProspectHA=" & NomDuProspectHA

NomDuProspectHA :
Est un texte?
Provient il d'un formulaire?

[amel123456789]

En fait j'ai pas du tout de formulaire, j'ai juste ma table 'TACHENEXT2' avec 2 champs:
NomDuPropspectHA et Note (tous les deux de type texte)

Cette table a été alimentée avec l'import d'un fichier ecxel.

Et dans cette table, j'ai des sociétés qui ont plusieurs notes, donc autant de ligne société que de ligne note. Et moi je veux regrouper toutes les notes d'une société dans un mème champ (donc une ligne).

Donc j'ai pas de formulaire, pas d'état ou je ne sais quoi ! :0S

[DMboup]

Eh bien dans ce cas il te faut deux recordset

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
23
24
25
26
27
28
29
30
31
32
 
 
Public Function Tache() As String
Dim editialis As Database, DSociete, res As DAO.Recordset
Dim SQL As String, TxtNom, Resultat As Variant
 
Set editialis=currentdb()
 
Selectionne uniquement le nom des sociétés
Set DSociete=editialis.OpenRecordset("Select Distinct NomDuProspectHA From TACHENEXT2")
 
Do Until DSociete.EOF
      TxtNom=DSociete("NomDuProspectHA")
      'Selectionne les participant du projet
      SQL = "SELECT Tache FROM TACHENEXT2 WHERE NomDuProspectHA='" & NomDuProspectHA & '""
     Set res = editialis.OpenRecordset(SQL)
'Concatene les différents enregistrement
Do While Not res.EOF
Resultat = Resultat & " "& res.Fields(0).Value & " "
res.MoveNext
Loop
'Enleve le dernier espace
Tache = Left(Resultat, Len(Resultat) - 1)
' Ici il faut envoyer le résultat de la société traité quelque part avant de passer à la suivant
 
DSociete.MoveNext
 
Loop
'libere la mémoire
Set res = Nothing
Set DSociete = Nothing
End Function

[amel123456789]

Alors j'ai essayé le code que tu m'as proposé.
mais maintenant quand je lance ma requete (dans la partie requete d'access):

Code :

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

1
2
SELECT DISTINCT TACHENEXT2.NomDuProspectHA, Tache(NomDuProspectHA) AS LesTaches
FROM TACHENEXT2;

j'ai le message :

'Fonction utilisée avec un nombre d'arguments incorrect dans l'expression Tache(NomDuProspectHA)'

comprends vraiment po !!

[DMboup]

Code :

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

1
2
SELECT DISTINCT TACHENEXT2.NomDuProspectHA, Tache(NomDuProspectHA) AS LesTaches
FROM TACHENEXT2;

j'ai le message :

'Fonction utilisée avec un nombre d'arguments incorrect dans l'expression Tache(NomDuProspectHA)'

Tu n'as pas besoin de Tache(NomDuProspectHA) ici.
c'est plutot comme ca

Code :

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

1
2
SELECT DISTINCT TACHENEXT2.NomDuProspectHA
FROM TACHENEXT2;

tout cour.

[amel123456789]

ben si je mets ca, ma fonction ne se lance plus ^^ !!

[DMboup]

Ca devrait fonctionner
Fais cette requête dans le QBE

Code :

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

1
2
3
 
SELECT DISTINCT TACHENEXT2.NomDuProspectHA
FROM TACHENEXT2;

pour d'abord voir le résultat.

Ensuit met un point d'arret ou un Debug.Print (SQL) juste après le SQL

[amel123456789]

Ensuit met un point d'arret ou un Debug.Print (SQL) juste après le SQL

La moi pas comprendre désolé :0S!!

Sinon ben la requète affiche les sociétés mais j'ai pas de concaténation vu que je n'appelle pas la fonction !

[DMboup]

Sinon ben la requète affiche les sociétés mais j'ai pas de concaténation vu que je n'appelle pas la fonction !

Eh bien donc c'est bien ce qu'il faut faire.

Je crois que ton problème si situe ici

'Enleve le dernier espace
Tache = Left(Resultat, Len(Resultat) - 1)
' Ici il faut envoyer le résultat de la société traité quelque part avant de passer à la suivant

DSociete.MoveNext

Après avoir concaténé pour une société donnée, il faut mettre le résultat quelque part (Une table temporaire par exemple) avant de continuer.

Tu peut mettre un point d'arrêt dans la fonction et la lancer pour voir le contenu de la variable Resultat?

[amel123456789]

je viens de créer une table temp avec un champ temp.
Donc en gros il faut que je fasse un update sur cette table ki recoit résultat après la ligne "Tache = Left(Resultat, Len(Resultat) - 1)"?

[amel123456789]

c'est sur cette ligne que j'ai un problème :

Code :

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

Tache = Left(Resultat, Len(Resultat) - 1)

comprends po !!!

[amel123456789]

erreur d'execution '5' :
Argument ou appel de procedure incorrect

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
23
24
25
26
27
28
29
30
31
32
33
Option Compare Database
 
Public Function Tache() As String
Dim editialis As Database, DSociete, res As DAO.Recordset
Dim SQL As String, TxtNom, Resultat As Variant
 
Set editialis = CurrentDb()
 
'Selectionne uniquement le nom des sociétés
Set DSociete = editialis.OpenRecordset("Select Distinct NomDuProspectHA From TACHENEXT2")
 
Do Until DSociete.EOF
      TxtNom = DSociete("NomDuProspectHA")
      'Selectionne les participant du projet
     SQL = "SELECT Note FROM TACHENEXT2 WHERE NomDuProspectHA='" & NomDuProspectHA & "'"
     Set res = editialis.OpenRecordset(SQL)
'Concatene les différents enregistrement
Do While Not res.EOF
Resultat = Resultat & " " & res.Fields(0).Value & " "
res.MoveNext
Loop
 
'Enleve le dernier espace
Resultat = Left(Resultat, Len(Resultat) - 1)
' Ici il faut envoyer le résultat de la société traité quelque part avant de passer à la suivant
 
DSociete.MoveNext
 
Loop
'libere la mémoire
Set res = Nothing
Set DSociete = Nothing
End Function

[Lou Pitchoun]

Code :

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

Set editialis = Application.CurrentDb

peut être.. non ?

De plus, tu n'a pas précisé de type pour DSociete et TxtNom

[amel123456789]

j'ai modifié mais j'ai toujours le message d'erreur '5' sur :

Code :

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

Resultat = Left(Resultat, Len(Resultat) - 1)

[Lou Pitchoun]

Et si tu déclares

Code :

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

Resultat As String