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?