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?
INTRUDER