'Coloca el siguiente código en todos los reportes
'que deseas que se cierren si al llamarles no tienen datos

Private Sub Report_NoData(Cancel As Integer)
 MsgBox "Aviso desde el Reporte:" & Me.Name & Chr(13) & Chr(13) _
    & "No hay datos para mostrar en este Listado.", vbCritical + vbOKOnly, "AVISO"
 Cancel = -1
End Sub