accesstoolbox/source/modules/AT_Collections.bas

Option Compare Database
Option Explicit

' ** Access Toolbox Module **
' on 2017-02-28,
' @author: Olivier Massot
' V 1.0

' Operations on iterables

Public Function concat(ByRef iterable As Variant, Optional separator As String = ";")
    Dim var As Variant
    
    concat = ""
    For Each var In iterable
        If Len(concat) > 0 Then concat = concat & separator
        concat = concat & CStr(var)
    Next var

End Function

Function contains(ByRef iterable As Variant, value As Variant) As Boolean
    Dim var As Variant
    contains = False
    For Each var In iterable
        If var = value Then
            contains = True
            Exit Function
        End If
    Next var
End Function