Predmet:Re: Problem sa logiranjem

---

Function UcitajOper()
Dim Rs as recordset
Dim Db as database

Set db=Currentdb()
set Rs =db.Openrecordset("SELECT TOP 1 *
FROM A_Logovanje
ORDER BY VrijemeLog DESC"
M_Oper.ID=Rs!KorisnikID
rs.close
set Rs=db:Openrecordset("SELECT * FROM L_Operatori WHERE OperID=" & M_OperID)
M_Oper.ImeO=Rs!Ime
M_Oper.Prezime=Rs!Prezime
M_Oper.KorIMeO=Rs!KorIme
Rs:close
set deb=Nothing
End function

---