VBA - Brže spajanje stringova u Access-u

Često će vam se javljati potreba za spajanjem više stringova iz više polja, recimo neke Access baze podataka. U datim slučajevima najbolje rešenje je njihovo spajanje kroz neki tip petlje (Loop). Ali, u istim situacijama mnogo brže izvršavanje spajanja, a samim tim i aplikacije, ćete postići iščitavanjem stringova i njihovim smeštanjem u privremeni niz (Array) stringova. Tek kada oformite ceo niz, onda se vrši njihovo spajanje u jedan string. Pa tako, umesto da koristite sledeći kod:

 Do While Not rs.EOF
    string1 = string1 & rs.Fields(1).Value _
    	& " " & rs.Fields(2).Value _
        & " " & rs.Fields(3).Value & vbCrLf
    rs.MoveNext
 Loop

koristite ovaj brži metod, iako zahteva samo malo više programskog koda:

 Dim sNiz() As String
 Dim a As Long, ukupno As Long

 a = 0
 ubr = rs.RecordCount - 1
 reDim sNiz(ubr)

 Do While Not rs.EOF
    sNiz(a) = rs.Fields(1).Value _
           & " " & rs.Fields(2).Value _
           & " " & rs.Fields(3).Value & vbCrLf
    a = a + 1
    rs.MoveNext
 Loop

 For a=0 To ubr
    string1 = string1 & sNiz(a)
 Next

Što budete imali više spajanja u petlji, imaćete više koristi kasnijim spajanjem stringova (uz pomoć niza).