formdaki rapor açtırma butonuna aşağıdaki kodu ekle
On Error Resume Next
Dim accesstr As AccessObject
For Each accesstr In CurrentProject.AllReports
DoCmd.OpenReport accesstr.Name, acViewPreview, , , acHidden
Next accesstr
If Err = 2501 Then Err.Clear
raporların veri yokken olayına aşağıdaki kodu ekle
On Error Resume Next
Cancel = True
If Err = 2501 Then Err.Clear