Συγχώνευση πολλών εγγραφών σε μια εγγραφή

[Γιωργος μπομπ]

καλησπερα σε ολους!
θα ηθελα μια μικρη βοηθεια ! θα παραθεσω την απορια μου με παραδειγμα για να γινει πιο κατανοητη!
εχω εναν πινακα με texts (περιπου 200) χρησιμοποιω ενα sql-query ενα απλο (select.. from..where) και απο αυτα τα 200 καταληγω πχ σε 5 κειμενα που ειναι διαφορετικα records.
ειναι στην μορφη αυτη
πχ. texts_after_sql
δυναμη ...
θαρρος ...
οργανωτικοτητα ...
καλοσυνη...

εγω θελω με καποιο τροπο αυτα να βαλω σε ενα νεο record ολα μαζι να χωριζονται απο κομμα δηλαδη ετσι :

texts_after_sql
δυναμη...,θαρρος...,οργανωτικ οτητα...,καλοσυνη..., κτλ

οποιος εχει καποια ιδεα που μπορει να βοηθησει το εκτιμω πολυ!
ευχαριστω γιωργος!

[Tasos]

Γιώργο καλησπέρα!
'Εστω ότι έχεις ήδη δημιουργήσει ένα ερώτημα, ας πούμε "MyQuery" που περιέχει τις 5
εγγραφές που περίγραψες.

Για να τις συνενώσεις μπορείς να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Function AccConcatenate(AccTable, accField$) As String
Dim Fld As Obgect
    With CurrentDb.OpenRecordset(AccTable)
        If .RecordCount Then .MoveFirst Else .Close: Exit Function
        Set Fld = .Fields(accField)
            While Not .EOF
                If Not IsNull(Fld) Then AccConcatenate = AccConcatenate & Fld & ", "
                .MoveNext
            Wend
        AccConcatenate = Left(AccConcatenate, Len(AccConcatenate) - 2)
        .Close
    End With
End Function

Η τιμή που θα επιστρέψει η συνάρτηση αυτή θα περιέχει τις εγγραφές του ερωτήματος
χωρισμένες με κόμματα.

Μπορείς να καλέσεις τη συνάρτηση αυτή

από τη VBA:

Sub test()
    Debug.Print AccConcatenate("MyQuery", "texts_after_sql")
End Sub

• από πεδίο φόρμας: =AccConcatenate("MyQuery"; "texts_after_sql")
• ή από πεδίο ερωτήματος: =MyConcatenation: AccConcatenate("MyQuery";"texts_after_sql")

Φιλικά

Τάσος

[mdragon]

Αν κατάλαβα καλά ......
Πρόσθεσε αυτό σε ένα νέο πεδίο στο ερώτημα σου

=[Πεδίο1] & " , " & [Πεδίο2] & " , " & [Πεδίο3] & " , " & [Πεδίο4]


Μάρω

[Γιωργος μπομπ]

φιλε τασο σε ευχαριστω πολυ ! πιστευω οτι θα δουλεψει ! θα το εφαρμοσω το βραδακι με την ησυχια μου και θα σας πω τα αποτελεσματα
φιλη μαρω σε ευχαριστω και εσενα πολυ για το ενδιαφερον αλλα αυτο που θελω να κανω ειναι συγχωνευση πολλων εγγραφων σε μια εγγραφη απο το ιδιο πεδιο .. αυτο που εχεις παραθεσει ,αν δεν κανω λαθος, ειναι "συγχωνευση" πολλων πεδιων σε ενα πεδιο απο την ιδια εγγραφη (αν κανω λαθος διορθωστε με...) ;)

[synti]

Αρχική Δημοσίευση από mdragon

Αν κατάλαβα καλά ......
Πρόσθεσε αυτό σε ένα νέο πεδίο στο ερώτημα σου

=[Πεδίο1] & " , " & [Πεδίο2] & " , " & [Πεδίο3] & " , " & [Πεδίο4]


Μάρω

Για αριθμητικες πως τα συνδεουμε?

=[Πεδίο1] & " , " & [Πεδίο2] & " , " & [Πεδίο3] & " , " & [Πεδίο4]

= 21,00€ 36,00€ κ.λ.π