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.