Forum - Ερωτήματα Διαχωρισμός Πεδίου σε πεδία

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Ερωτήματα ] Διαχωρισμός Πεδίου σε πεδία (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3477-diaxorismos-pedioy-se-pedia.html)

Διαχωρισμός Πεδίου σε πεδία

Καλησπέρα αντιμετωπίζω ένα πρόβλημα.Προσπαθώ να φτιάξω ένα ερώτημα όπου από το Data
να πάρω τις τιμές όπως αυτές διαχωρίζονται με το κόμμα.
δηλαδή.
0,1,348,2,21,11,6,4,44,24,20,'52.4','28.6','19.0', 2.10,1.14,39,0,'',0,1,1,1,0,0,''],
πεδίο1=0
πεδίο2=1
πεδίο3=348
κλπ
μέχρι και το τελευταίο 0.
σημείωση δεν είναι πάντα σταθερή η διάσπαση όσο αναφορά το μέγεθος του κάθε αριθμού.
μπορέι να έχει έως και 6 ψηφία ο κάθε αριθμός

Καλησπέρα

Δημήτρη, δες το ερώτημα qrySplit στη συνημμένη ΒΔ.

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

Κώδικας:

Public Function SplitText(txt As Variant, j As Integer) As Variant

    Dim X As Variant

    

    If Nz(txt, "") <> "" Then

        X = Split(txt, ",")

        If j <= UBound(X) Then

            SplitText = X(j)

        End If

    End If

End Function

Φιλικά/Γιώργος

Ευχαριστώ πολύ.Τέλεια η λύση σας