Access vba: split
Melycea
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je suis en train de concecvoir une base de données sur Access 97.
Dans un module, je suis bloquée sur une procédure où je voudrai utiliser la fonction "split" mais elle n'existe pas dans cette version de Access.
Est-ce que quelqu'un connait un équivalent? Quitte à remplacer cette simple fonction par un petit bloc de code...
Merci beaucoup pour vos réponses.
Je suis en train de concecvoir une base de données sur Access 97.
Dans un module, je suis bloquée sur une procédure où je voudrai utiliser la fonction "split" mais elle n'existe pas dans cette version de Access.
Est-ce que quelqu'un connait un équivalent? Quitte à remplacer cette simple fonction par un petit bloc de code...
Merci beaucoup pour vos réponses.
2 réponses
-
Peut-être avec :
Function F_Split(ByVal expression As String, _ Optional delimiter As String = " ", _ Optional limit As Long = -1, _ Optional compare As VbCompareMethod = vbBinaryCompare) As Variant Dim n As Long Dim l As Long Dim t() As String Do If expression = "" Then Exit Do l = InStr(1, expression & delimiter, delimiter, compare) - 1 If l < 1 Then Exit Do ReDim Preserve t(0 To n) t(n) = Left(expression, l) If n = limit - 1 Then t(n) = expression Exit Do End If n = n + 1 expression = Mid(expression, l + 2) Loop F_Split = t End Function
Cordialement
Patrice -
