Sub Report_Open(Cancel As Integer)
docmd.maximize
DoCmd.OpenForm "DSİRAPOR", , , , , acDialog, "Dönem"
If Not IsLoaded("DSİRAPOR") Then
Cancel = True
End If
End Sub

kodunu dene diyeceğim ama If Not IsLoaded("DSİRAPOR") Then, Cancel = True , olayını çözemedim.
Örnek ekler isen daha kolay yardımcı oluruz.
ayrıca raporlarda açılan ve kalıcı özelliklerinin evet olarak belirtilmesi gerekli.