Modules

5.73 Funzione JOIN per Access 97
  Memo Access

Quella che segue è un'alternativa alla funzione JOIN di Access 2000 e versioni successive e che può essere usata anche in Access 97.
Public Function fJoin(source() As String, _
                      Optional sDelim As String = " ") _
                      As String
   Dim sOut As String
   Dim iC As Integer
   For iC = LBound(source) To UBound(source) - 1
       sOut = sOut & source(iC) & sDelim
   Next iC
   sOut = sOut & source(iC)
   fJoin = sOut
End Function

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.