Bu arada probleme yol açan Sql ifadesi şu :
Kod:
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT tblEmployees.NameSurname, Sum(tblTeacherHours.HowManyHours) AS SumOfHowManyHours, tblEmployees.Quantity, tblEmployees.PriceState, tblEmployees.OverTime, tblEmployees.OverTimeQuota, tblEmployees.OverTimeQuotaPrice, tblEmployees.Extra FROM tblEmployees INNER JOIN tblTeacherHours ON tblEmployees.EmployeeID = tblTeacherHours.Teacher WHERE (((tblTeacherHours.Dt) Between [Forms]![frmTeacherSalary]![Date1] And [Forms]![frmTeacherSalary]![Date2])) GROUP BY tblEmployees.NameSurname, tblEmployees.Quantity, tblEmployees.PriceState, tblEmployees.OverTime, tblEmployees.OverTimeQuota, tblEmployees.OverTimeQuotaPrice, tblEmployees.Extra;")