منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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)mudz كتب : [ -> ]محديعرف  يفصلة اين اضع اسم التقرير وكذا !

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

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

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