[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

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