ماهي طريقة استدعاء subreport بالكرستال من vba

[mobawafi]

السلام عليكم ورحمة الله وبركاته
لقد قمت بتصميم ربيوت وربيوت فرعي له suprepot
وعندما قمت بااستدعاءه كالعادة في اي ريبوت معمول بالكريستال ظهر لي خطأ فهل هناك طريقة أخرى لاستدعاء ال supreport
وجزاكم الله خيرا

[صلاح السيد]

اخى الكريم
شكرا لمشاركتك معنا
ولكنى اريد تفصيل اكثر عن المشكله
مثلا اذا استطعت ان ترسل
print screen
لما يظهر على الشاشه هذا سوف يساعد على معرفة المشكله بوضوح
ولكنى لدى كود vb يمكن ان يساعدك فى استدعاء التقرير من داخل ال vb سواء كان تقرير واحد او له تقارير مساعده

 
Call Form_Resize
Dim ReportFile As String
 
ReportFile = App.Path & "\main report name.rpt"
 
Set m_Report = m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).ConnectionProperties("password") "sa"
CrViewer.ReportSource = m_Report
CrViewer.Zoom 1
CrViewer.ViewReport
Screen.MousePointer = vbDefault

ويكون التقريرين الاصلى والمساعد معا فى
حافظه واحدهfolder
ونسأل الله ان يفيدك
وشكرا

[صلاح السيد]

Option Explicit
Dim m_Application As New CRAXDRT.Application
Dim m_Report As New CRAXDRT.Report
 
 
Private Sub Form_Load()
 
Call Form_Resize
Dim ReportFile As String
 
ReportFile = App.Path & "\Customer List With Control Accounts.rpt"
 
Set m_Report = m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).ConnectionProperties("password") = "sa"
CrViewer.ReportSource = m_Report
CrViewer.Zoom 1
CrViewer.ViewReport
Screen.MousePointer = vbDefault
End Sub

هذا هو الكود كاملا

[Monzer Osama]

شكرا مشرفنا المبدع صلاح...

[mobawafi]

جزاك الله خيرا يااخي صلاح
والله كان ودي ارسلك المشكلة كصورة ولكن بعد ان طرحت الموضوع وتأخر الرد عليه فكرت بطريقة ثانية في التقرير غير التقرير الفرعي
ولكن ايضا لم تنفع فكان الحل الأخير انني اتصل بشركة لجعلهم هم يصصمموا التقرير بعد ان عجزت عن التقرير المطلوب مني

[hishamglal65]

نشكركم على اهتمامكم بالردود

[walidzak]

جزاك الله خيرا

[hishamglal65]

شكرا لك على مساعدتك لنا