Centar za edukaciju-BiH



#1 05.12.2015 15:28
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


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
↑  ↓

#2 05.12.2015 17:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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)
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 05.12.2015 18:33
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:Re: problem sa poljem
hvala velika

skonto sam i proradilo

Ako može još za predhodni post oko XML importa bio bih zahvalan
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 52 pm.