26-12-14, 12:45 AM
26-12-14, 12:58 AM
كود :
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
26-12-14, 01:09 AM
(26-12-14, 12:58 AM)alktab كتب : [ -> ]كود :
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
ممكن شرح للكود اسف تعبتك
26-12-14, 12:49 PM
محديعرف يفصلة اين اضع اسم التقرير وكذا !
27-12-14, 04:58 AM
(26-12-14, 12:49 PM)mudz كتب : [ -> ]محديعرف يفصلة اين اضع اسم التقرير وكذا !
اهلا اخي ما نسيتك حصل لدي مشاكل بالكود لا يستعرض التقرير لم اعرف المشكلة بعد
جرب المثال المرفق
27-12-14, 11:48 AM
انا بقولك شيء يمكن تساعدني
انا كنت اشتغل ع الكريستال ريبوت لكن وجدت ان الكريستال لا يعمل على جميع الاجهزة لهذا رحت الى اكسيس
اذا عندك حل قولي
انا كنت اشتغل ع الكريستال ريبوت لكن وجدت ان الكريستال لا يعمل على جميع الاجهزة لهذا رحت الى اكسيس
اذا عندك حل قولي
28-12-14, 02:41 AM
أخي العزيز الكريستال يعمل لاكن بشرط أن تثبت نفس النسخة على جهاز العميل وبعض الملفات المساعدة