Access vba: split

Question

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.


Configuration: Windows XP / Internet Explorer 8.0

Patrice33740 · Answer

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

ccm81 · Answer

merci

cordialement

Access vba: split

2 réponses

Discussions similaires

Newsletters