Hvordan lukker jeg en rapport som er åbnet

I min menulinje kan jeg åbne en rapport, hvor jeg har følgende kode:

Private Sub Report_Open(Cancel As Integer)
    DoCmd.RunMacro ("prn1")
    If DCount("*", "Qry_fakt_adm") > 0 Then
        Me.Caption = gReportTitle
    Else
        MsgBox "Der var ingen data i rapporten!"
        DoCmd.Close acReport, Me.Name, acSaveNo
    End If   
End Sub


Men jeg får fejl meddelelsen : "Denne handling kan ikke afspills så længe en formular eller rapporthændelse bearbejdes" Runtime error 2585.

Jeg vil gerne se om rapporten indeholder data før den åbnes. Det ville være nemt nok hvis rapporten blev åbnet fra en knap på en form, så jeg bare bruge Dcount til at se om rapporten indeholdte ngen data og så bare lade være med at åbne rapporten. Nogen bud på hvordan det bedst kan løses så rapporten ikke åbnes når der ikke er noget data?