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

السلام عليكم
ارجو من الأخوة مساعدتي في هذا الكود وخصوصا الأخ امير الزبيدي حيث أنني استفدت كثيرا من برامجه 
تظهر لي هذه الرسالة
Error 5000 : Error in processing report.

 [ Extended Info:Command text was not set for the command object.]
عندما استخدم الكود التالي فأين الخطأ
Unload ActiveReport18

ActiveReport18.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\DR.mdb;Persist Security Info=False"

ActiveReport18.DataControl1.Source = "SELECT Accounts.AccID, Accounts.ArAccDes, TransActions.TransDate, MoneyMoves.Debit, MoneyMoves.Credit, MoneyMoves.NoRec AS Expr1, MoneyMoves.Note, IIf([s]=1,[debit]-[credit],[credit]-[debit]) AS Bal, Accounts.S, Accounts.X, MoneyMoves.NoProj, MoneyMoves.Check" & _
" FROM [TransActions] INNER JOIN (Accounts INNER JOIN MoneyMoves ON Accounts.AccID = MoneyMoves.AccID) ON TransActions.TransID = MoneyMoves.TransID" & _
  " WHERE MoneyMoves.NoProj >= " & Trim$(From.Text) & "" And MoneyMoves.NoProj <= " & Trim$(Too.Text) & "" and Accounts.AccID >= '" & Trim$(Combo2.Text) & "' AND str(TransActions.TransDate) >='" & Str$(TempArr(1)) & "' AND str(TransActions.TransDate)<= '" & Str$(TempArr(2)) & "'"

[attachment=15712][attachment=15712][attachment=15712][attachment=15712]السلام عليكم اخي امير
المشروع في المرفقات