Pozdrav!
Imam jedan problem koji ne mogu sam da rijesim.
Ako ima neko raspolozen da mi pomogne...
Naime, sljedeci kod koristim na dugmicu za prijavu u bazu
Code:
Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Set db1 = CurrentDb()
Set rst1 = db1.OpenRecordset("tbllogovanja", dbOpenDynaset)
rst1.AddNew
rst1!tblKorisnikaID = Me.Text13.Value
rst1!DatumPristupa = Date
rst1!VrijemePristupa = Time()
rst1!Racunar = ImeKompa()
rst1.Update
rst1.Close
Ovo ide bez greske i odradi bas ono sto mi treba. Dakle, upise mi u tabelu ko i kada je usao u program i sa kojeg racunara.
Sljedeci kod koristim prilikom zatvaranja programa
Code:
Private Sub Form_Close()
Dim strSQL As String
Dim db2 As DAO.Database
Dim rst2 As DAO.Recordset
Set db2 = CurrentDb()
strSQL = "SELECT tbllogovanja.ID, tbllogovanja.DatumOdjave, tbllogovanja.VrijemeOdjave FROM tbllogovanja WHERE ((tbllogovanja.ID)=(Select (ID)from tbllogovanja));"
Set rst2 = db2.OpenRecordset(strSQL, dbOpenDynaset)
rst2.Edit
rst2!DatumOdjave = Date
rst2!VrijemeOdjave = Time()
rst2.Update
rst2.Close
Obzirom da baza radi u visekorisnickom okruzenju desava se da istovremeno imam po nekoliko ulogovanih korisnika
Primjer:
Korisnik Datumprijave Vrijeme prijave Datum odjave Vrijeme odjave Racunar
Aco Ackovic, 19.09.2013, 21:38, .................., ................., Acko
Mujo Mujic, 19.09.2013, 21:37, .................., ................., Munja
Problem:
Kada korisnik Mujo izadje iz programa datum i vrijeme odjave
upisuje se u Acina polja iako je Aco jos uvijek u programu.
Kada se Aco odjavi, samo se upisu novi podaci ponovo u Acina polja a Mujina polja datum i vrijeme odjave ostaju prazna.
Ovi podaci su mi jako bitni pa ako neko ima rjesenje, zahvaljujem unaprijed.