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):Tablica = "Skladista"
Tablica_2 = "tblTransakcije"
Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)
If SL_Pocetna.RecordCount > 0 Then
SL_Pocetna.MoveFirst
While Not SL_Pocetna.EOF
With SL_Zavrsna
.AddNew
![Skladiste] = SL_Pocetna![IDSkladista]
'(ovdje ima još kolona ali nisu bitne)
.Update
End With
SL_Pocetna.MoveNext
Wend
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):Dim SQL2 As String
Dim Skl As String
SQL2 = "SELECT * FROM tblTransakcije IN 'D:\Sve_Godine\Baze\Prodaja_2016_be.mdb'"
Tablica = "QryStanje"
Tablica_2 = "tblUlazIzlaz"
Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)
If SL_Pocetna.RecordCount > 0 Then
SL_Pocetna.MoveFirst
While Not SL_Pocetna.EOF
With SL_Zavrsna
.AddNew
Skl = SL_Pocetna!Skladiste
![IDTransakcije] = DLookup(SQL2, "Skladiste = '" & Skl & "'")
!Sifra = SL_Pocetna!Sifra
!Ulaz = SL_Pocetna!Stanje
!Izlaz = 0
.Update
End With
SL_Pocetna.MoveNext
Wend
End If
Mučim se sa ovi cijelo prije podne i nikako da uspijem. Molim pomoć.
Pozdrav