عمل استعلام لاخر حركتين

تفضل اخى

فقط قم باضافة حقل ترقيم تلقائى الى جدول الحركات باسم id

و استخدم هذا الاستعلام

SELECT Items.NoItem, Items.Item, DLast("Date","moves","id<" & DLast("id","moves","noitem=" & items.noItem) & " and noitem=" & items.noItem & "") AS d, DLast("qty","moves","id<" & DLast("id","moves","noitem=" & items.noItem) & " and noitem=" & items.noItem & "") AS q, DLast("price","moves","id<" & DLast("id","moves","noitem=" & items.noItem) & " and noitem=" & items.noItem & "") AS p
FROM Items INNER JOIN Moves ON Items.NoItem = Moves.NoItem
GROUP BY Items.NoItem, Items.Item
UNION ALL SELECT Items.NoItem, Items.Item, Last(Moves.Date) AS d, Last(Moves.QTY) AS q, Last(Moves.Price) AS p
FROM Items INNER JOIN Moves ON Items.NoItem = Moves.NoItem
GROUP BY Items.NoItem, Items.Item
ORDER BY NoItem, d;

و هذا الاستعلام سيكون اسرع

و بدون اضافة حقل جديد

SELECT Items.NoItem, Items.Item, Last(Moves.Date) AS LastOfDate, Last(Moves.QTY) AS LastOfQTY, Last(Moves.Price) AS LastOfPrice
FROM Items INNER JOIN (Moves LEFT JOIN [SELECT Items.NoItem, Items.Item, Last(Moves.Date) AS d, Last(Moves.QTY) AS q, Last(Moves.Price) AS p
FROM Items INNER JOIN Moves ON Items.NoItem = Moves.NoItem
GROUP BY Items.NoItem, Items.Item
ORDER BY Items.NoItem, Last(Moves.Date);]. AS [last] ON Moves.Date = last.d) ON Items.NoItem = Moves.NoItem
GROUP BY Items.NoItem, Items.Item, last.d
HAVING (((last.d) Is Null));
UNION ALL SELECT Items.NoItem, Items.Item, Last(Moves.Date) AS d, Last(Moves.QTY) AS q, Last(Moves.Price) AS p
FROM Items INNER JOIN Moves ON Items.NoItem = Moves.NoItem
GROUP BY Items.NoItem, Items.Item
ORDER BY NoItem, LastOfDate;

أخي الغالي

مليون تحية طيب لك وألف شكر على الاستعلام الجميل