السلام عليكــم ورحمـة الله وبركاتــه ،،
كنت بعمل تقرير بواسطة الكريستال وعند عرضه ظهر لي الخطأ الموضح في الصورة
كود زر عرض التقرير
If RS_Reports.RecordCount = 0 Then
MsgBox "No Records For Print"
Exit Sub
End If
Crpt.WindowTitle = ":::: Show Report ::::"
Crpt.ReportFileName = App.Path & "\reports\r1.rpt"
Crpt.DataFiles(0) = App.Path & "\db\db1.mdb"
Crpt.Action = 1
