عرض مشاركة واحدة
قديم 04-Jul-2011, 04:24 PM   #3
صلاح السيد
عضو نشيط
 
تاريخ التسجيل: Jun 2007
المشاركات: 34
من مواضيعي  
 
0 Vendors Trx
0 Error in Posting Receipts
0 Error in Posting Receipts

افتراضي

كود:
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
هذا هو الكود كاملا
صلاح السيد غير متواجد حالياً   رد مع اقتباس