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 |