Prikazi cijelu temu 05.12.2015 17:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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)
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.