Private Sub Form_Unload(Cancel As Integer) Dim Db As Database Dim Rs As Recordset Dim Rs2 As Recordset Dim r Dim SQLDatum As String Dim SQL As String Dim SQL2 As String r = MsgBox("Izlazis iz aplikacije", vbYesNo) If r = vbNo Then DoCmd.CancelEvent End If If r = vbYes Then Set Db = CurrentDb SQLDatum = Format(Me.Tag) SQL = "SELECT * FROM A_Logiranje WHERE VrijemeLog=" & SQLDatum SQL2 = "SELECT * FROM A_LogiranjeLoc WHERE VrijemeLog=" & SQLDatum Set Rs = Db.OpenRecordset(SQL) Set Rs2 = Db.OpenRecordset(SQL2) If Rs.RecordCount = 0 Then GoTo Kraj Rs.Edit Rs!VrijemeOdlg = Now() Rs.Update If Rs2.RecordCount = 0 Then GoTo Kraj Rs2.Edit Rs2!VrijemeOdlg = Now() Rs2.Update End If Kraj: End Sub