Function UpisLog()
'*******************************************
'Ime:      UpisLog   (Function)
'Sadržaj: Upisuje u tabelu A_Logovanje
        'logovanja
'Autor:     ZXZ
'Datum:      listopad 15, 2007, 08:19:59
'Adresa: Tuzla BiH
'Email:     izonic@inet.ba
'Ulazni parametri:
'Izlazni parametri:
'*******************************************
Dim db As Database 'novo
Dim rs As Recordset

'Set Rs = Util.Db.OpenRecordset("A_Logovanje")

Set rs = db.OpenRecordset("A_Logovanje", dbOpenDynaset)

rs.AddNew
rs!KorisnikID = M_Oper.OperID
rs!VrijemeLog = M_Oper.VrijemeLog
rs.Update
rs.Close
End Function