منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في عرض التقرير من عدة جداول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : مشكلة في عرض التقرير من عدة جداول (/showthread.php?tid=49042)



مشكلة في عرض التقرير من عدة جداول - مصمم هاوي - 08-06-24

هذا مثال صغير فيه حجم المشكلة والتي تتمثل في عرض التقريـر من عدة جداول بالكود عند اختيار الشهر من الكومبوكس
ولكن عند استدعاء البيانات من استعلام أكسس يتم عرض التقريـر.
المشكلة فقط في استدعاء البيانات بالكود من عدة جداول، وهذا الذي يحتاج إلى تعديـل بارك الله فيكم

[attachment=29604]


RE: مشكلة في عرض التقرير من عدة جداول - Taha Okla - 09-06-24

السلام عليكم ورحمة الله وبركاته

Where
بتكون قبل 
GROUP BY

التصحيح :
كود :
Report9.DataControl1.Source = "SELECT TBL_employees.ID, TBL_employees.NameTeacher, Sum(TBL_Daily.L_Req) AS SumonL_Req, Sum(TBL_Daily.Reson1) AS SumonReson1, Sum(TBL_Daily.RnsQ1) AS SumonRnsQ1, " _
   & " Sum(TBL_Daily.Reson2) AS SumonReson2, Sum(TBL_Daily.RnsQ2) AS SumonRnsQ2, Sum(TBL_Daily.L_Done) AS SumonL_Done, TBL_employees.Bank, TBL_employees.BBank, " _
   & " TBL_employees.Account, TBL_Daily.L_Date, TBL_employees.IDnumber, Month([L_Date]) AS XMonth " _
   & " FROM (TBL_Daily INNER JOIN TBL_employees ON TBL_Daily.ID=TBL_employees.ID) INNER JOIN TBL_Month ON TBL_employees.ID=TBL_Month.MONo " _
   & " Where Month([L_Date]) = '" & Trim(CombMonth.ListIndex) + 1 & "'  " _
   & " GROUP BY TBL_employees.ID, TBL_employees.NameTeacher, TBL_employees.Bank, TBL_employees.BBank, TBL_employees.Account, TBL_Daily.L_Date, TBL_employees.IDnumber, Month([L_Date]) " _
   & " ORDER BY TBL_employees.ID ;"



RE: مشكلة في عرض التقرير من عدة جداول - مصمم هاوي - 09-06-24

(09-06-24, 02:34 AM)Taha Okla كتب : السلام عليكم ورحمة الله وبركاته

Where
بتكون قبل 
GROUP BY

التصحيح :
كود :
Report9.DataControl1.Source = "SELECT TBL_employees.ID, TBL_employees.NameTeacher, Sum(TBL_Daily.L_Req) AS SumonL_Req, Sum(TBL_Daily.Reson1) AS SumonReson1, Sum(TBL_Daily.RnsQ1) AS SumonRnsQ1, " _
   & " Sum(TBL_Daily.Reson2) AS SumonReson2, Sum(TBL_Daily.RnsQ2) AS SumonRnsQ2, Sum(TBL_Daily.L_Done) AS SumonL_Done, TBL_employees.Bank, TBL_employees.BBank, " _
   & " TBL_employees.Account, TBL_Daily.L_Date, TBL_employees.IDnumber, Month([L_Date]) AS XMonth " _
   & " FROM (TBL_Daily INNER JOIN TBL_employees ON TBL_Daily.ID=TBL_employees.ID) INNER JOIN TBL_Month ON TBL_employees.ID=TBL_Month.MONo " _
   & " Where Month([L_Date]) = '" & Trim(CombMonth.ListIndex) + 1 & "'  " _
   & " GROUP BY TBL_employees.ID, TBL_employees.NameTeacher, TBL_employees.Bank, TBL_employees.BBank, TBL_employees.Account, TBL_Daily.L_Date, TBL_employees.IDnumber, Month([L_Date]) " _
   & " ORDER BY TBL_employees.ID ;"

الكود شغال 100%
بارك الله فيك وجزاك الله خير أستاذ طه