Predmet:Re: Uređivanje Dodjela nagrada

---

Evo procesura za godine.
Stavi je u Modul.
Function Godine(Od As Integer)
Dim I As Integer

For I = Od To Year(Date)
Godine = Godine & I & ";"
Next I
Godine = Left(Godine, Len(Godine) - 1)
End Function
Na on enter combo boxa stavi
Me.ImetvogComba.Rowsource=Godine(BrojGodineOdkojezelisdapise)

---