On Error Resume NextIf Me.Açılan_Kutu8.Value = " Hepsi" Then DoCmd.OpenReport "Liste10_rapor" Else DoCmd.OpenReport "Liste10_rapor2"End IfListe10.Requery