[مصمم هاوي]

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


  School 210.rar (الحجم : 64.17 ك ب / التحميلات : 23)

[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 ;"

[مصمم هاوي]

(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%
بارك الله فيك وجزاك الله خير أستاذ طه