<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "KORISNIK"
strSQL="
	SELECT * from Qzaperiod1
	WHERE datum 
		BETWEEN DATEVALUE('" & pocetni & "') AND DATEVALUE('" & krajnji & "')
	"

Set rs = CurrentDb.OpenRecordset(strSQL)

WITH rs

    IF NOT .BOF AND NOT .EOF Then 'provjerimo dali uopce ima podataka u bazi
	'dobro je pomaknuti se na kraj baze pa onda opet na pocetak
	'nije neophodno ali ponekad zna pomoci
	.MoveLast
        	.MoveFirst
        
	WHILE (Not .EOF)
'WHILE LOOP petlja u kojoj kada dodemo do kraja baze (EOF)izlazimo iz petlje
	Debug.Print rs.Fields("imeKolone1") & " " & rs.Fields("imeKolone2")
' mozes podatke umjesto u msgbox ispisivati u debug (immediate window)
            .Mov