[mrnooo2000]

الاستعلام الموجود بملف الأكسس يعمل على السيكوال 
و لكن يوجد اختلاف فى مسميات بعض الحقول و لذلك قد لم تظهر البيانات بالداتا جريد لديك 

هذا هو الاستعلام بعد ضبط اسماء الحقول لتعمل لديك على نفس ملف الاخ عبد الله 

كود :

       Dim sql As String = "SELECT DISTINCT T1.invsun, T1.purqu AS Purchase, T1.invqu AS Sale, " &
                           "(SELECT Sum([purqu]-[invqu]) FROM (SELECT * FROM adraseed)  AS T2 WHERE  T2.[itcod]= T1.[itcod] AND T2.[atefinv]<= T1.[atefinv]) AS Balance " &
                           "FROM (SELECT * FROM adraseed)  As T1 INNER JOIN (Select * FROM adraseed)  As T2 On T1.itcod = T2.itcod WHERE T1.[itcod] = " & Me.ItemCode