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

r = MsgBox("Izlazis iz aplikacije", vbYesNo)

 

If r = vbNo Then

    DoCmd.CancelEvent