CISA FotoGallery

Statistiche

Tot. visite contenuti : 928196
Home Articoli tecnici Moduli Funzione JOIN per A97

Funzione JOIN per A97

'Alternativa alla Funzione JOIN di Access2000

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)
Join = sOut

End Function