Predmet:Re: Kopiranje iz baze u bazu
Ovo sada radi, puno hvala, ali ima još malo problema.
Ovo je procedura kojom pravim novu praznu bazu na početku godine. Baza se radi kopiranjem predloÅ¡ka
be.sys kako si me ti naučio. Na početku funkcije ide slijedeći kod:
PreuzmiIzvorni kôd (vbnet):Function NovaGodina(Godina)
Dim Db As Database, NovaDb As Database
Dim SQL As String
Dim RS As Recordset
Dim PutanjaBaza As String, Putanja As String, ImeNoveBaze As String
Dim SL_Pocetna As Recordset, SL_Zavrsna As Recordset, SL_Pomocna As Recordset
Dim Tablica As String
Dim Tablica_2 As String
Set Db = CurrentDb()
SQL = "SELECT TOP 1 Database " _
& "FROM MSysObjects " _
& "WHERE Database Is Not Null"
Set RS = Db.OpenRecordset(SQL)
Putanja = RS.Fields(0)
RS.Close
'be.sys mora biti u direktoriju u kojem je i linkovana baza
PutanjaBaza = Put_Baza(Putanja)
ImeNoveBaze = "Prodaja_" & Godina & "_be.mdb"
If Dir(PutanjaBaza & ImeNoveBaze) = "" Then
FileCopy PutanjaBaza & "be.sys", PutanjaBaza & ImeNoveBaze
Set NovaDb = OpenDatabase(PutanjaBaza & ImeNoveBaze)
Else
MsgBox "Baza ve postoji"
Exit Function
End If
I dalje punim prazne tablice sa :
PreuzmiIzvorni kôd (vbnet):Tablica = "tblOperatori"
Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica, dbOpenDynaset)
If SL_Pocetna.RecordCount > 0 Then
SL_Pocetna.MoveFirst
While Not SL_Pocetna.EOF
With SL_Zavrsna
.AddNew
![KorisnikID] = SL_Pocetna![KorisnikID]
![FirstName] = SL_Pocetna![FirstName]
![LastName] = SL_Pocetna![LastName]
![Title] = SL_Pocetna![Title]
![OIB] = SL_Pocetna![OIB]
![WorkPhone] = SL_Pocetna![WorkPhone]
![OperID] = SL_Pocetna![OperID]
![Sifra] = SL_Pocetna![Sifra]
![PravaPristupa] = SL_Pocetna![PravaPristupa]
![RadMj] = SL_Pocetna![RadMj]
.Update
End With
SL_Pocetna.MoveNext
Wend
End If
i tako redom
Samo sam sada htio odrediti putanju do baze pa sam umjesto
SQL2 = "SELECT * FROM tblTransakcije IN 'D:\Sve_Godine\Baze\Prodaja_2016_be.mdb' WHERE Skladiste='" & skl & "'"
stavio
Dim Path As String
Path = PutanjaBaza & ImeNoveBaze
SQL2 = "SELECT * FROM tblTransakcije IN Path WHERE Skladiste='" & Skl & "'"
I sada mi javlja grešku
Could not find file D:\Path
Pozdrav