[ xl_kid @ 10.10.2012. 12:56 ] @
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? |