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.
A voir également:
- Access vba split
- Split cam - Télécharger - Messagerie
- Incompatibilité de type vba ✓ - Forum Programmation
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Excel compter cellule couleur sans vba - Guide
2 réponses
Peut-être avec :
Cordialement
Patrice
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
