Function PrenesiPodatke(IzTabele As String, UTabelu As String, BrojKolona As String, Optional Putanja As String) As Boolean
'-------------------------------------------------------------
'IzTabele -Ime tabele iz koje se prebacuju podaci
'UTabelu-Ime Tabele u koju prebacujemo podatke
'BrojKolona -Broj kolona iz kojih zelimo prebaciti podatke
'Polja u obje tabele moraju biti srodna
'Putanja-Putanja sa imenom baze iz koje se prebacuju podaci
' Ovo se upisuje samo ako prebacujemo podatke iz druge baze
'Autor zxz
'--------------------------------------------------------------

Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim I As Integer
Dim SQl As String
Dim Podatak

Set Db = CurrentDb()
If Putanja <> "" Then
SQl = "SELECT * FROM " & IzTabele & " IN''" & Putanja
Else
SQl = "SELECT * FROM " & IzTabele
End If

Set Rs1 = Db.OpenRecordset(SQl)
Set Rs2 = Db.OpenRecordset(UTabelu)
Do While Not Rs1.EOF
Rs2.AddNew
    For I = 0 To BrojKolona - 1
    Podatak = Rs1.Fields(I)
    If Format$(Podatak) <> "" Then
    Rs2.Fields(I) = Podatak
    End If
    Next I
Rs2.Update
Rs1.MoveNext
Loop
Rs1.Close
Rs2.Close
Set Db = Nothing
End Function