Prikazi cijelu temu 29.01.2015 12:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Kopiranje iz baze u bazu
Iz jedne baze VBA Codom punim tablice u drugoj bazi.
Prvo sam popunio tblTransakcije koja ima Autonumber polje IDtransakcije.
PreuzmiIzvorni kôd (vbnet):
  1. Tablica = "Skladista"
  2. Tablica_2 = "tblTransakcije"
  3.  
  4. Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
  5. Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)
  6.  
  7. If SL_Pocetna.RecordCount > 0 Then
  8.         SL_Pocetna.MoveFirst
  9.         While Not SL_Pocetna.EOF
  10.             With SL_Zavrsna
  11.             .AddNew
  12.                 ![Skladiste] = SL_Pocetna![IDSkladista]
  13.                
  14.        '(ovdje ima joÅ¡ kolona ali nisu bitne)  
  15.  
  16.             .Update
  17.         End With
  18.          SL_Pocetna.MoveNext
  19.         Wend
  20.    End If


Sada bi trebao popuniti drugu tablicu koja se zove tblUlazIzlaz sa podacima iz QryStanje stime da mi kod popunjavanja tblUlazIzlaz, IDTransakcije bude jednak IDTransakcije iz gore popunjene tablice koja je u drugoj bazi, a da je uvjet

"Skladiste = '" & Skl & "'"

Pokušao sam ovako ali imamgrešku Sintax error

PreuzmiIzvorni kôd (vbnet):
  1. Dim SQL2 As String
  2. Dim Skl As String
  3.  
  4. SQL2 = "SELECT * FROM tblTransakcije IN 'D:\Sve_Godine\Baze\Prodaja_2016_be.mdb'"
  5.  
  6. Tablica = "QryStanje"
  7. Tablica_2 = "tblUlazIzlaz"
  8.  
  9. Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
  10. Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)
  11.  
  12. If SL_Pocetna.RecordCount > 0 Then
  13.         SL_Pocetna.MoveFirst
  14.         While Not SL_Pocetna.EOF
  15.             With SL_Zavrsna
  16.             .AddNew
  17.      
  18.             Skl = SL_Pocetna!Skladiste
  19.                
  20.                 ![IDTransakcije] = DLookup(SQL2, "Skladiste = '" & Skl & "'")
  21.                 !Sifra = SL_Pocetna!Sifra
  22.                 !Ulaz = SL_Pocetna!Stanje
  23.                 !Izlaz = 0
  24.  
  25.             .Update
  26.         End With
  27.          SL_Pocetna.MoveNext
  28.         Wend
  29.    End If

Mučim se sa ovi cijelo prije podne i nikako da uspijem. Molim pomoć.
Pozdrav