عاجل لمحترفى اكسس

OSSAMA_E_H كتب:

السلام عليكم

يوجد table اسمة sal

بة حقول الوقت و كود الشركة و السعر و الكمية و التغيير و نسبة التغيير

المطلوب عمل استعلام

تكون السطور مرتبة بالوقت اول سطر يكون كمية فى الكمية المشتراة و تقارن كل سطر بالذى قبلة بحقل نسبة التغيير

اذا كان اكبر من الذى قبلة يبقى كميتة مشتراة

اقل يبقى كمية مباعة

لو يساوية يبقى على حسب السطر الذى قبلة

و هذا على مستوى كل شركة اول سطر كميتة مشتراة

مثلا

الوقت 10 الشركة 1 السعر 5 الكمية 8 التغيير 2 النسبة 1

الوقت 11 الشركة 1 السعر 15 الكمية 7 التغيير 2 النسبة 1

الوقت 12 الشركة 1 السعر 5 الكمية 5 التغيير 2 النسبة -11

الوقت 15 الشركة 1 السعر 5 الكمية 4 التغيير 2 النسبة3

1اول سطر الكمية يبقى مشتراة 8 الثانى نفس النسبة يبقى مشتراة الثالث الكمية مباعة لان النسبة اقل السطر الرابع مشتراة لان النسبة اكبر

يبقى المشتراة 19 و المباع 5 فى تقرير

اتمنى ارفاق ملف لكي يتم التعديل عليه

alsalam 3alaykom

7asab ma fhemet inak bedak kal ate

in the Module put this code

Dim Value
Public Function GetLastValue(ByVal nValue)
	GetLastValue = Val(Value)
	Value = nValue
End Function

Public Function ResetValue()
	 Value = 0
	 ResetValue = Null
End Function

sql statment is

Select time() as الوقت,0 as الرمز ,0 as السعر ,0 as الكمية ,0 as التغيير ,0 as [نسبة التغيير],0  as States from sal where resetvalue()=1
UNION SELECT sal.الوقت, sal.الرمز, sal.السعر, sal.الكمية, sal.التغيير, sal.[نسبة التغيير], 
IIf(GetLastValue(sal.[نسبة التغيير])<=sal.[نسبة التغيير],"مشتراة","مباعة") AS States
FROM sal;

is that what u want?

db1.rar

بارك الله فيك يا اخي

مرفلق وفكرة وموديول واستعلام اكثر من رائع

يعني الواحد مش عارف يقول ايه

10÷10

و

100%