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