[mudz]

ممكن كود طباعة تقرير من الاكسيس

[الكاتب]

كود :

Imports Access = Microsoft.Office.Interop.Access

Public Class FrmReports

   Dim oAccess As Access.application

   Private Sub btnSumByPlan_Click(sender As Object, e As EventArgs) Handles btnSumByPlan.Click

       oAccess = CreateObject("Access.Application")
       oAccess.visible = True
       oAccess.opencurrentdatabase ("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=|DataDirectory|\CLI_CRVM.accdb")

       oAccess.docmd.openreport(ReportName:="SumByPlan", View:=Access.AcView.acViewPreview)

   End Sub
End Class

[mudz]

كود :

Imports Access = Microsoft.Office.Interop.Access

Public Class FrmReports

   Dim oAccess As Access.application

   Private Sub btnSumByPlan_Click(sender As Object, e As EventArgs) Handles btnSumByPlan.Click

       oAccess = CreateObject("Access.Application")
       oAccess.visible = True
       oAccess.opencurrentdatabase ("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=|DataDirectory|\CLI_CRVM.accdb")

       oAccess.docmd.openreport(ReportName:="SumByPlan", View:=Access.AcView.acViewPreview)

   End Sub
End Class

ممكن شرح للكود اسف تعبتك

[mudz]

محديعرف يفصلة اين اضع اسم التقرير وكذا !

[الكاتب]

محديعرف  يفصلة اين اضع اسم التقرير وكذا !

اهلا اخي ما نسيتك حصل لدي مشاكل بالكود لا يستعرض التقرير لم اعرف المشكلة بعد

جرب المثال المرفق

[mudz]

انا بقولك شيء يمكن تساعدني

انا كنت اشتغل ع الكريستال ريبوت لكن وجدت ان الكريستال لا يعمل على جميع الاجهزة لهذا رحت الى اكسيس
اذا عندك حل قولي

[الكاتب]

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