pmiroslav | 29.01.2015 13:48 |
---|---|
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):
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):
Mučim se sa ovi cijelo prije podne i nikako da uspijem. Molim pomoć. |
pmiroslav | 29.01.2015 19:27 |
---|---|
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):
I dalje punim prazne tablice sa : PreuzmiIzvorni kôd (vbnet):
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 |
zxz | 29.01.2015 17:46 |
---|---|
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. |
zxz | 29.01.2015 21:04 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu Dim Path As String Path =" PutanjaBaza & ImeNoveBaze SQL2 = "SELECT * FROM tblTransakcije IN Path WHERE Skladiste='" & Skl & "'" Trebalo bi ovako pod uslovom da je u mem. PutanjaBaza na kraju kosa crta\ ako nije onda i nju treba pridodati. Path = Chr(39) & PutanjaBaza & ImeNoveBaze & Chr(39) I nemoj praktikovati Variable na eng. ako nisi siguran dali ima ime takve procedure. U klasicnom Vb-u Path je Funkcija koja vraca putanju app. Bolje je svakako napisati naski Putanja. Jedino nije dobro Put jer i ta naredba postoji. |
pmiroslav | 29.01.2015 21:16 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu Napisao sam ovako i opet mi javlja istu greÅ¡ku Could not find file D:\PBaze PreuzmiIzvorni kôd (vbnet):
|
zxz | 29.01.2015 21:23 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu SQL2 = "SELECT * FROM tblTransakcije IN " & PBaze & " WHERE Skladiste='" & Skl & "'" PBaze je memorijska a ti je stavio u string. |
pmiroslav | 29.01.2015 21:29 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu Sada je u redu. Puno ti hvala za sada. Laku noć |
carobnjak | 13.04.2015 20:36 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu Uh trebao bi nesto ovako slicno ali ovo ne mogu skontati, imam jednu mdb bazu, po obicaju nesto sam radio na novo prosirio noovu bazu i sad trebam povuci tabele to jest upise iz istih u novu bazu, ako neko moze detaljnije da opise proceduru |
zxz | 13.04.2015 20:45 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu Jel ti se poklapaju polja sa podacima koje treba da prebacis i u jednoj i u drugoj. Najbolje da zakacis tabele. U ovoj sto imaju podaci mozes samo ostaviti nekoliko reda. |
carobnjak | 13.04.2015 20:50 |
---|---|
Predmet:Re: Kopiranje iz baze u bazu sve se poklapa tabele su identiccne to jest citava baza je ista osim u ovoj novoj sto ima trun cisto estetskih promijena ali evo sad cu pokusati da stavim komplet bazu |