Function nova()
'----------------------------------------------------------------------------
'Kreiranje nove baze i prebacivanje tabele u tu bazu
'----------------------------------------------------------------------------
Dim dbs As Database, tdf As TableDef, Fld As Field
Dim strDB, strSQl As String
Dim appAccess As Access.Application
Dim qdf As QueryDef
Dim dataSource As String
' postavljanje putanje
strDB = "D:\Baza\Temp.mdb"
Set appAccess = _
CreateObject("Access.Application.10")
appAccess.NewCurrentDatabase strDB
Set appAccess = Nothing
strSQl = "SELECT DISTINCT * INTO TTZbir IN " & "'" & strDB & "'" _
& Chr(13) & "FROM (((T2 LEFT JOIN T1 ON T2.ICRCID = " _
& Chr(13) & "T1.ICRCID) LEFT JOIN T3 ON T2.ICRCID = " _
& Chr(13) & "T3.ICRCID) LEFT JOIN T4 ON T2.ICRCID = " _
& Chr(13) & "T4.ICRCID) LEFT JOIN T5 ON T2.ICRCID = T5.ICRCID;"
DoCmd.RunSQL strSQl
End Function
zxz