Prikazi cijelu temu 05.12.2015 15:28
kenan Van mreze
Clan
Registrovan od:10.02.2011
Lokacija:sarajevo


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