Bosna i Hercegovina



kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 179


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,365


Subject: 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)
Pozdrav
↑  ↓

kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 179


Subject: Re: problem sa poljem
hvala velika

skonto sam i proradilo

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

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 29.06.2017-11:54.