<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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!VrijemeOd