Private Sub Form_Unload(Cancel As Integer) Dim Rs As Recordset Set Rs = Me.RecordsetClone If Rs.RecordCount > 0 Then Set Rs = [frmOtpremnicaSub].Form.RecordsetClone If Rs.RecordCount > 0 Then Cancel = 0 Else If MsgBox("Niste upisali stavke racuna." _ & vbCrLf & "Za brisanje pritisnite 'OK'" _ & vbCrLf & "Za nastavak rada pritisnite 'Cancel'", vbOKCancel, "GRESKA!") = vbOK Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 GoTo Kraj Else DoCmd.CancelEvent End If Cancel = 1 End If End If Kraj: End Sub