14-10-17, 08:45 AM
(آخر تعديل لهذه المشاركة : 21-10-17, 09:02 AM {2} بواسطة Ahmed_Mansoor.)
السلام عليكم
ارجو من الأخوة مساعدتي في هذا الكود وخصوصا الأخ امير الزبيدي حيث أنني استفدت كثيرا من برامجه
تظهر لي هذه الرسالة
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)) & "'"
ارجو من الأخوة مساعدتي في هذا الكود وخصوصا الأخ امير الزبيدي حيث أنني استفدت كثيرا من برامجه
تظهر لي هذه الرسالة
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)) & "'"