08-05-17, 02:46 PM
(آخر تعديل لهذه المشاركة : 08-05-17, 02:47 PM {2} بواسطة sendbad100.)
ضع الكود التالي في زر عرض التقرير
والله الموفق
PHP كود :
Private Sub Command1_Click()
ActiveReport1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bank.mdb;Persist Security Info=False"
ActiveReport1.DataControl1.Source = "SELECT * FROM [invoice] WHERE (invoice.cus_no =" & Val(Text1.Text) & ")"
ActiveReport1.Show
End Sub
والله الموفق
