Hocam sizi de çok yordum kusura bakmayın. 
Şu anda rapor sayfası açılıyor. Açıldığında ve veri yokken aşağıdaki kodları ekledim sorun hal oldu.
Yardımlarınız için çok, çok teşekkürler.

Hocam konuyu taşıyabilirsiniz. Saygılarımla iyi çalışmalar.

Private Sub Report_NoData(Cancel As Integer)

MsgBox "RAPOR GELİR, GİDER GİRİŞİ OLMADIĞI İÇİN İPTAL EDİLDİ..."

    Cancel = -1

End Sub



Private Sub Report_Open(Cancel As Integer)

DoCmd.Maximize

End Sub