"nodata" olayı zaten veri yoksa geçerlidir
ayrıca raporu açmadan o alanı okumanız mümkün değil galiba dolayısıyla doğrudan aşağıdaki kodu dener misiniz
______________________________________________
Kod:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "veri yok kapatılacak."
Cancel = True
End Sub