+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في حل رسالة خطأ تظهر لي Error 5000 (/showthread.php?tid=22106)
مساعدة في حل رسالة خطأ تظهر لي Error 5000 - loayrefai - 14-10-17
السلام عليكم
ارجو من الأخوة مساعدتي في هذا الكود وخصوصا الأخ امير الزبيدي حيث أنني استفدت كثيرا من برامجه
تظهر لي هذه الرسالة
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)) & "'"
RE: مساعدة ضروري - loayrefai - 14-10-17
[attachment=15712][attachment=15712][attachment=15712][attachment=15712]السلام عليكم اخي امير
المشروع في المرفقات