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

[jimrenoir]

Καλησπέρα αντιμετωπίζω ένα πρόβλημα.Προσπαθώ να φτιάξω ένα ερώτημα όπου από το 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 ψηφία ο κάθε αριθμός

[kapetang]

Καλησπέρα

Δημήτρη, δες το ερώτημα 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

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

[jimrenoir]

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