Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Concatenare più record in uno unico.

973 views
Skip to first unread message

roma

unread,
Jan 8, 2016, 10:22:28 AM1/8/16
to
Buon giorno
Ho il seguente problema:
Utilizzo ACCESS 2003
Concatenare una colonna di record in un unico record spaziandolo tra di loro con un simbolo/segno, mi spiego meglio.

NOME VERSIONE CILINDRATA TARGA
500 L 1200 ABCD
500 L 1200 ABCA
500 L 1200 ABCE
500 L 1300 ABCD
500 L 1300 ABCA
500 L 1300 ABBB


il risultato che vorrei è

NOME VERSIONE CILINDRATA QUANTITA TARGHE
500 L 1200 3 ABCD,ABCA,ABCE
500 L 1300 3 ABCD,ABCA,ABBB

Come posso fare, significando che non sono molto ferrato con il VBA e vorrei riportare il tutto su un report. grazie

ROMANO

sal...@accessgroup.it

unread,
Jan 10, 2016, 2:47:53 AM1/10/16
to
Sembra che tu vuoi un raggruppamento per Cilindrata.
In un modulo inserisci questa funzione:
Public Function strTarghe(Cilindrata) As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
strTarghe = ""
Set db = CurrentDb
Set rs = db.OpenRecordset("miaTabella", dbOpenDynaset, dbFailOnError + dbSeeChanges)
Do Until rs.EOF
If rs!Cilindrata = Cilindrata Then
strTarghe = strTarghe & rs!targa & ", "
End If
rs.MoveNext
Loop
If Len(strTarghe) > 0 Then
strTarghe = Left(strTarghe, Len(strTarghe) - 2)
End If
Set rs = Nothing
End Function

E poi la richiami in una query:

SELECT First(miaTabella.Nome) AS PrimoDiNome, First(miaTabella.Versione) AS PrimoDiVersione, miaTabella.Cilindrata, Count(miaTabella.Cilindrata) AS Quantita, strTarghe([Cilindrata]) AS Targhe
FROM miaTabella
GROUP BY miaTabella.Cilindrata;

--
sv

@Alex

unread,
Jan 10, 2016, 12:16:43 PM1/10/16
to
...
> --
> sv

Buongiorno ;-)

@Alex

sal...@accessgroup.it

unread,
Jan 10, 2016, 1:55:34 PM1/10/16
to
"Vo'scenza benerica"

...

Ci teniamo in allenamento
;-)

--
sv

CIDI

unread,
Jan 11, 2016, 3:48:43 AM1/11/16
to
lieto di risentirti... :-)

Daniele




--- news://freenews.netfront.net/ - complaints: ne...@netfront.net ---

sal...@accessgroup.it

unread,
Jan 11, 2016, 7:46:31 AM1/11/16
to
Ciao Daniele... Auguri anche se con un po' di ritardo.
:-)

--
sv

roma

unread,
Jan 20, 2016, 5:15:21 AM1/20/16
to
Grazie per la risposta, FUNZIONA PERFETTAMENTE, un'altra domanda, se possibile, mi potresti indicare come raggruppare su più campi e cioè, raggruppare, con conteggio, per campo NOME, VERSIONE, CILINDRATA?
Grazie infinite.
ROMANO

sal...@accessgroup.it

unread,
Jan 20, 2016, 6:11:59 AM1/20/16
to
Di volta in volta utilizza la clausola GROUP BY. Quindi sarà GROUP BY miaTabella.Nome ... e poi GROUP BY miaTabella.Versione.. etc..

--
sv
0 new messages