kenan | 05.12.2015 16:28 |
---|---|
Predmet:problem sa poljem imali iko ideju kako da rjesim ovaj problem problem mi se dešava na "i" kada pokušavam da složim naziv polj iz recordseta PBUPIS. kada ga upišem i= PBUPIS![1] radi ali konstanto uzima isto polje ustvari ja bih htio da kroz petlju dobivam sljedeči broj iz for petlje ali mi neide takođe nazivi polja u tabeli su brojevi od 1 do 50 ovdje negdje griješim al nemogu da skontam gdje jer tu iskaće k1 = "![" & k & "]" p = "PBUPIS" i = p & k1 Function PuniPB() Dim i, p Dim PBUPIS, k Set akt = CurrentDb().OpenRecordset("Aktiv") Set PBUPIS = CurrentDb().OpenRecordset("SELECT [prijava 3-4st].[1], [prijava 3-4st].[2] FROM [prijava 3-4st] WHERE ((([prijava 3-4st].firma_ID)=" & akt!firma & ") AND (([prijava 3-4st].godina)=" & akt!godina & ") AND (([prijava 3-4st].ObracinskiPeriod)='" & akt!ObracinskiPeriod & "'));") Set rs = CurrentDb().OpenRecordset("Poreskibilans") ', dbOpenDynaset, dbSeeChanges) With rs For k = 1 To 4 Step 1 k1 = "![" & k & "]" p = "PBUPIS" i = p & k1 ' i = PBUPIS![1] Set AOPNAZIV = CurrentDb().OpenRecordset("SELECT AOP_NAZIV.[Naziv polja], AOP_NAZIV.RB, AOP_NAZIV.AOP FROM AOP_NAZIV WHERE (((AOP_NAZIV.VR)='PB') AND ((AOP_NAZIV.AOP)=" & k & ")) GROUP BY AOP_NAZIV.[Naziv polja], AOP_NAZIV.RB, AOP_NAZIV.AOP;") 'AOP_NAZIV .AddNew !firma_ID = akt!firma !godina = akt!godina !ObracinskiPeriod = akt!ObracinskiPeriod !aop = AOPNAZIV!aop !RBpRIKAZ = AOPNAZIV!rb !rb = AOPNAZIV!rb !Opis = AOPNAZIV![Naziv polja] !IZNOS = i .Update Next k End With End Function |
zxz | 05.12.2015 18:25 |
---|---|
Predmet:Re: problem sa poljem For k = 1 To 4 k1 = PBUPI(K) i = K1 next k ali nemoras ti imati brojcana imena polja da bi ovo napravio. I nije bas najbolje da sus samo projcana polja. Hajd da pretpostavimo ovako: Ime tabeele: Prijava_3_4st Polja: ID autonumber PrvoPolje integer DrugoPolje integer I tako 50 naziva polja. Recimo neka se Recordet zove isto kao kod tebe: dim PBUPIS as Recordset Dim I as integer Dim PodatakIzPolja(50) as integer ' ako su cijeli brojevi u poljima For i 1 to 50 ' do 50 polja PodatakIzPolja(i)=PBUPIS.Fields(i) next i i sada : Dim Podatakizprovgpolja PodatakIzPrvogpolja=PodatakIzPolja(1) |
kenan | 05.12.2015 19:33 |
---|---|
Predmet:Re: problem sa poljem hvala velika skonto sam i proradilo Ako može još za predhodni post oko XML importa bio bih zahvalan |