:rolleyes: كيفية تمرير استعلام لكرستال ريبورت باستخدام dao vb6 للاصدار 8.5 للحصول على بيانات مشروطة في التقرير حسب الاستعلام المحدد فعند كتابة الكود التالي وهو المحدد في help :
Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset
Set db1 = DBEngine.Workspaces(0).OpenDatabase("c:\Report.mdb ")
strSQL = "SELECT * FROM Report"
Set CRXReport = CRXApplication.OpenReport("c:\Report.rpt", 1)
Set CRXDatabase = CRXReport.Database
Set rs1 = db1.OpenRecordset(strSQL, dbOpenSnapshot)
CRXDatabase.SetDataSource rs1, 3, 1
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = CRXReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
لا احصل على التقرير حسب الاستعلام الممر ولكن احصل على البيانات حين انشاء التقرير فارجو مساعدتي لحل هذه المشكلة