Function tkoRadiIme()
If M_Oper.OperID = 0 Then
UcitajOper
End If
tkoRadiIme = M_Oper.ImeO
End Function

Function tkoRadiPrezime()
If M_Oper.OperID = 0 Then
UcitajOper
End If
tkoRadiPrezime = M_Oper.PrezO
End Function

Function SifraID()
If M_OperID.OperID = 0 Then
UcitajOper
endiif
SifraID = M_Oper.OperID
End Function

Function St_Kupac() As String
St_Kupac = "1;Dobavljac;2;Kupac-individualni;3;kupac-veliki"
End Function

Function UcitajOper()
M_Oper.OperID = Forms![frmLogOn]![Korisnik].Column(0)
M_Oper.KorImeO = Forms![frmLogOn]![Korisnik].Column(1)
M_Oper.ImeO = Forms![frmLogOn]![Korisnik].Column(2)
M_Oper.PrezO = Forms![frmLogOn]![Korisnik].Column(3)
M_Oper.SifraO = Forms![frmLogOn]![Korisnik].Column(4)
M_Oper.VrijemeLog = Now()
End Function