[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته

إستبدل كود حدث الـ Form_Load للفورم2 بهذا الكود :

PHP كود :

On Error Resume Next
Call Form_Resize
Dim ReportFile As String
ReportFile = App.Path & "\DATA1\2016\ASNAF1.rpt"
Set m_Report = m_Application.OpenReport(ReportFile)
m_Report.Database.Tables(1).SetLogOnInfo "p2sodbc.dll", "ASNAF.mdb", "Admin", "123"
m_Report.Database.Tables(1).Location = App.Path & "\data1\2016\ASNAF.mdb"
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.Zoom 1 


[/php]

ماتم إضافته هو هذا السطر :

PHP كود :

m_Report.Database.Tables(1).SetLogOnInfo "p2sodbc.dll", "ASNAF.mdb", "Admin", "123"