Private Sub Form_Close()
If IsLoaded("rptOtpremnica") Then
DoCmd.Close acReport, "rptOtpremnica"
End If
End Sub