regroupement de valeurs sur un champs

**DMboup** · 15/01/2007, 18h00

Envoyé par Sami Xite

Ca nous donne un "Type de donnée incompatible dans l'expression du critère" que j'ai corrigé en ajoutant les guillemets de rigueur:

Code :

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

SELECT type FROM cpt_type WHERE id_commande="52677"

Je vois pas ce qui cloche dans le module ...

si id_commande est de type numérique c'est normal !

**Sami Xite** · 15/01/2007, 18h22

Envoyé par DMboup

Essai

Code :

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

1
2
3
 
SELECT DISTINCT id_commande, concat_type([id_commande]) AS Colisage
FROM cpt_type;

Toujours ce message d'erreur:

Erreur d'execution
Type de données incompatible dans l'expression du critère

id_commande est de la forme texte dans ma table mais ne contient que des chiffres
Je suis persuadé que c'est au niveau du module que qqchose cloche mais quoi ??!!

**micniv** · 15/01/2007, 19h17

Ben evidemment que c'est au niveau du module :
puisque tu as trouvé que id_commande est de type String :
il faut corriger en conséquence ta fonction concat_type()
Tu as 2 endroits à corriger

**Sami Xite** · 15/01/2007, 19h49

Ca y est j'ai qqchose !!

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
Public Function concat_type(id_commande As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les types de commande
SQL = "SELECT type FROM cpt_type WHERE id_commande=" & "id_commande"
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
concat_type = concat_type & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
concat_type = Left(concat_type, Len(concat_type) - 1)
'libere la mémoire
Set res = Nothing
End Function

La requête fonctionne mais par contre elle ne fait pas de regroupement sur id_commande
Je m'explique si j'ai dans cpt_type

id_commande type
1------------1x40
1------------1x20
1------------2x40
2------------3x40
2------------1x20

il me sort :

id_commande colisage
1------------1x40 1x20 2x40 3x40 1x20
2------------1x40 1x20 2x40 3x40 1x20

J'apprécie vraiment votre patience ...juste un dernier coup de main et je retourne dans mon terrier d'ignorance

**micniv** · 15/01/2007, 20h56

Encore :
une modif dans (je te laisse deviner à la place de Long)

Code :

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

Public Function concat_type(id_commande As Long) As String

et puis remplacer :

Code :

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

... WHERE id_commande=" & "id_commande"

par

Code :

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

WHERE id_commande='" & id_commande & "'"

ça devrait le faire

**Sami Xite** · 16/01/2007, 16h57

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
Public Function concat_type(id_commande As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les types de commande
SQL = "SELECT type FROM cpt_type WHERE id_commande='" & id_commande & "'"
Set res = CurrentDb.OpenRecordset(SQL, dbOpenDynaset, 0, dbReadOnly)
'Concatene les différents enregistrement
While Not res.EOF
concat_type = concat_type & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
concat_type = RTrim(concat_type)
'libere la mémoire
Set res = Nothing
End Function