Abi, ben açmak istediğim RAPORDA veri yoksa açılmasın istiyorum. Senin eklediğin kod Form için sanıyorum. Yine de aynı kodları rapor için denedim, altta ki satır hata verdi.

If rs.RecorDCount <= 0 Then

BU şekilde düzelttim ve raporun açıldığında olayına yazdım çalıştı...Ancak veri olmayan raporu boş olarak açtı.

Raporda veri yokken yordamında ise;

Set rs = CurrentDb.OpenRecordset("Tbl_IZIN", dbOpenDynaset)
If rs.RecordCount <= 0 Then
If MsgBox("Raporda Veri Bulunamadı, Açılsın mı??", _
vbYesNo) = vbNo Then
Cancel = True
End If
End If
' MsgBox "Raporda Gösterilecek Veri Bulunmadığından Rapor Açılmamaktadır."
' Cancel = True