DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tblInventura WHERE Int(RedBr)='" & Int(Me.RedniBroj) & "'"
DoCmd.SetWarnings True