Predmet:Re: Kopiranje iz baze u bazu

---

Dim Vrijednost

Vrijednost=DLookup(ImePoljaIzKojegHocesVrijednost,
ImeTbele,Uslov)
Ti imas samo 2 parametra.
Jos jedna stvar je sto si ti umjesto imena tabele napisao SQL a DLookup procedura zahtijeva ime tabele a nikakav sql jer ima where uslov za to.
Znaci sve u svemu to nemoze raditi.

imas dva rjesenja:
With SL_Zavrsna
.AddNew
Skl = SL_Pocetna!Skladiste
Prvo ide izmjena poslije ovog tvog koda
SQL2 = "SELECT * FROM tblTransakcije IN 'D:\Sve_Godine\Baze\Prodaja_2016_be.mdb' WHERE Skladiste='" & skl & "'"
dim RS as recordset
Dim Id
set rs=Db.openrecordset(SQL2)
id= Rs!IdTransakcije' ili kako se zove poljevec
![IdTransakcije]=id
rs.close
' ostalo ode isto

Drugi nacin je da pozivas iz prve funkcije ovu drugu sa ulaznim parametrom skladista koje si peocitao u petlji prve procedure na mjestu:
With SL_Zavrsna
.AddNew
![Skladiste] = SL_Pocetna![IDSkladista]
Ako sam dobro razumio ovo je tvoja vrojednost skl iz druge procedure
dim skl
skl= SL_Pocetna![IDSkladista]

Function Imedrugeprocedure(Skl)
sada ti u drugoj proceduri netreba sql2 niti moj kod koji sam dodao.

---