[awidan76]

السلام عليكم اخواني الاعزاء وجزاكم الله خير على مساعدتنا الدائمة 

كنت ابحث عن كود الوارد والمنصرف وبعد عناء طويل وجدت هذا الكود الرائع جزاه الله الاخ VB_Coder والذي كان بتقنية DAO وقمت بتحويلة الى ADO والذي كان 

PHP كود :

ActiveReport1.DAODataControl1.DatabaseName = App.Path & "\db1.mdb"
'ActiveReport1.DAODataControl1.RecordSource = " Select * From sam2"
ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & _
                          ",Date" & _
                          ",Account_Number" & _
                          ",Deposit" & _
                          ",Clouds" & _
                          ",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=Tbn.Account_Number AND Tbl.Operation<=Tbn.Operation) as Balance" & _
                          " From sam2 as Tbn" & _
                          " Order By Date,Operation ASC"
DoEvents

ActiveReport1.Refresh
ActiveReport1.Show 


قمت بعمل المثل المرفق بواسطته بهذا الكود : 

PHP كود :

Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
  RS.CursorLocation = adUseClient

 RS.Open "select OilID,CarID,OilDate,OilByan,carKMOld,carKMNew,CarKMCom,Oilward,Oilmosthlak,(Select SUM(Oilward)-SUM(Oilmosthlak) From TrafficTB as Tbl  where   Tbl.CarID LIKE '%" & UCase(Text1.Text) & "%' and Tb2.CarID LIKE '%" & UCase(Text1.Text) & "%' and  Tbl.OilID<=Tb2.OilID) as Balance  from  TrafficTB as Tb2  Order By OilID ASC ", Db, adOpenStatic, adLockOptimistic
    
    RS.MoveLast
  Set DataGrid1.DataSource = RS

DoEvents


End Sub 


 ولكن واجهتني بعض المشاكل في الكود 
وهي كالتالي : 
   

المطلوب : عند كتابة رقم السيارة في Text1.text يطلع في الداتا جيرد البيانات الخاصة لهذه السيارة فقط 

ارجوا المساعدة بحيث انني محتاج جداً لهذا 

وجزاكم الله خير كثير ويرزقكم من حيث لاتحتسبوا