MS access baza na MS sql serveru - problem logovanja

Poštovani,
imam malu aplikaciju za više korisnika. MS Access je FE a baza je na MS SQL 2005 serveru. Sve radi ok osim logovanja. Log in sam "naterao" da radi ali mi problem predstavlja log out. Ne upisuje vreme. Evo kodova:



Log In

Private Sub Form_Close()
Dim Db As Database
Dim Rs As DAO.Recordset
Dim SQL As String

Set Db = CurrentDb()
SQL = "SELECT * FROM tblLogovanje WHERE False<>False"
Set Rs = Db.OpenRecordset("tblLogovanje", dbOpenDynaset, dbSeeChanges)
Rs.AddNew
Rs!KorisnikID = KorisnikID
Rs!VremeLog = Now()
LogID = dbOpenDynaset
Rs.Update
Rs.Close
End Sub



Log Out

Private Sub Form_Close()
Dim Db As Database
Dim Rs As DAO.Recordset
Dim SQL As String

Set Db = CurrentDb()
SQL = "SELECT * FROM tblLogovanje WHERE LogID=" & LogID
Set Rs = Db.OpenRecordset("tblLogovanje", dbOpenDynaset, dbSeeChanges)
Rs.Edit
Rs!VremeOdlog = Now()
Rs.Update
Rs.Close
End Sub

Gde grešim?

Potpis

INTRUDER

Kod prve procedure si mu jasno dao do znanja (Rs.AddNew) da želiš da se upiše u novi zapis. Kod druge procedure ,pre Rs.Edit trebalo da se specificira zapis koji će biti ažuriran. Ovako ti ništa ne upisuje jer samo otvara recordset. Recimo sa Rs.MoveLast. Ili da se pozicionira na izfiltriran zapis koji sadrži adekvatan Korisnik.ID i prazno polje VremeOdlog.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski