Prikazi cijelu temu 29.01.2015 19:27
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Function NovaGodina(Godina)
  2. Dim Db As Database, NovaDb As Database
  3. Dim SQL As String
  4. Dim RS As Recordset
  5. Dim PutanjaBaza As String, Putanja As String, ImeNoveBaze As String
  6. Dim SL_Pocetna As Recordset, SL_Zavrsna As Recordset, SL_Pomocna As Recordset
  7. Dim Tablica As String
  8. Dim Tablica_2 As String
  9.  
  10. Set Db = CurrentDb()
  11.  
  12. SQL = "SELECT TOP 1 Database " _
  13.    & "FROM MSysObjects " _
  14.    & "WHERE Database Is Not Null"
  15. Set RS = Db.OpenRecordset(SQL)
  16. Putanja = RS.Fields(0)
  17. RS.Close
  18. 'be.sys mora biti u direktoriju u kojem je i linkovana baza
  19. PutanjaBaza = Put_Baza(Putanja)
  20. ImeNoveBaze = "Prodaja_" & Godina & "_be.mdb"
  21. If Dir(PutanjaBaza & ImeNoveBaze) = "" Then
  22. FileCopy PutanjaBaza & "be.sys", PutanjaBaza & ImeNoveBaze
  23. Set NovaDb = OpenDatabase(PutanjaBaza & ImeNoveBaze)
  24. Else
  25. MsgBox "Baza ve postoji"
  26. Exit Function
  27. End If

I dalje punim prazne tablice sa :
PreuzmiIzvorni kôd (vbnet):
  1. Tablica = "tblOperatori"
  2. Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
  3. Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica, dbOpenDynaset)
  4.     If SL_Pocetna.RecordCount > 0 Then
  5.         SL_Pocetna.MoveFirst
  6.         While Not SL_Pocetna.EOF
  7.             With SL_Zavrsna
  8.             .AddNew
  9.                 ![KorisnikID] = SL_Pocetna![KorisnikID]
  10.                 ![FirstName] = SL_Pocetna![FirstName]
  11.                 ![LastName] = SL_Pocetna![LastName]
  12.                 ![Title] = SL_Pocetna![Title]
  13.                 ![OIB] = SL_Pocetna![OIB]
  14.                 ![WorkPhone] = SL_Pocetna![WorkPhone]
  15.                 ![OperID] = SL_Pocetna![OperID]
  16.                 ![Sifra] = SL_Pocetna![Sifra]
  17.                 ![PravaPristupa] = SL_Pocetna![PravaPristupa]
  18.                 ![RadMj] = SL_Pocetna![RadMj]
  19.             .Update
  20.         End With
  21.          SL_Pocetna.MoveNext
  22.         Wend
  23.    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