كود تحديد قيمة بشرط تاريخ محدد

[Mostafa Metwally]

السلام عليكم ورحمة الله وبركاتة

الفكرة

عندى جدول اسمة products  وبه ثلاث اعمدة ( tday نوعة تاريخ + product اسم المنتج نوعة نص + price السعر نوعة قيمة )

عندى فى النموذج اسمة form1 وبه زر كوماند بدون كود

المطلوب

عاوز كود وظيفتة يستعلم عن السعر فى تاريخ محدد مثال للتوضيح

عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية

عند كتابة اليوم وليكن كمثال 20-10-2010 يظهر المبلغ المحصور  بين اكبر يوم مقارب له واقل يوم مقاربة له والمبلغ هنا 450 جنية ( اكبر يوم مقارب له هو يوم 12-11-2010 واقل يوم مقارب له هو 10-10-2010 ) المطلوب السعر الخاص باقل يوم مقارب له هو يوم 10-10-2010 لان يوم 20-10-2010 منحصر بينهم .

تحديد السعر.rar

[Mostafa Metwally]

استخدمت dlookup ولم تنجح فى استخراج المطلوب

 

[Shivan Rekany]

احد من اسباب الردود على سؤالك هو عدم توضيح المثال

وانا ما فهمت هذا حين تقول

21 ساعات مضت, Mostafa Metwally said:

عند كتابة اليوم وليكن كمثال 20-10-2010 يظهر المبلغ المحصور  بين اكبر يوم مقارب له واقل يوم مقاربة له

وبين القوسين قلت

21 ساعات مضت, Mostafa Metwally said:

( اكبر يوم مقارب له هو يوم 12-11-2010 واقل يوم مقارب له هو 10-10-2010 )

وفي حال هذا التاريخ موجود

21 ساعات مضت, Mostafa Metwally said:

وفى يوم 26-12-2010 سعرة 550 جنية

وضح اكثر اذا ممكن

[Mostafa Metwally]

شكرا استاذى الفاضل

Shivan Rekany

عندي المنتج اسمة هارد الايام مثلا 1-10-2010 سعرة كان 400 جنية وفى يوم 10-10-2010 سعرة 450 جنية وفى يوم 12-11-2010 سعرة 350 جنية وفى يوم 26-12-2010 سعرة 550 جنية

للتوضبح اكثر

يوم 20-10-2010 منحصر بين اليومين 10-10-2010 واليوم 12-11-2010

فمجرد كتابة يوم 20-10-2010 بعد التحديت after update  يظهر سعر اليوم 10-10-2010 فقط

مثال اخر للتوضيح

فرضا عندى يوم 1-3-2010 سعره 300 ويوم 4-4-2010 سعرة 320 ويوم 18-4-2010 سعرة 341 ويوم 2-5-2010 سعرة 301

فى حالة لو كتبت فى التكست بوكس يوم 1-5-2010 يظهر سعر يوم 18-4-2010 هو 341

وفى حالة لو كتبت يوم 2-5-2010 يظهر مبلغ 301 جنية لانه موجود فى التسجيلات عندي

لو يوم غير موجود فى التسجيلات ياخذ سعر  اول يوم اقل منه

لو اليوم موجود فى التسجيلات ياخذ السعر كما هو فى نقس اليوم

وشكرا جزيلا

 

 

[أمير2008]

طيب شوف الكود المرفق

يؤدي نفس النتيجة لكن طويل شوية

تحديد السعر2.rar

[Mostafa Metwally]

تمام استاذ امير

الكود يعمل بكفاءة وهو المطلوب

ممكن توضيح للكود

 

 

 

[أمير2008]

فكرة بسيطة :

استعلام عن كافة تواريخ هذا المنتج مصحوبة السعر

وترتيب التاريخ تنازلياً

مع وضع شرط أن التاريخ يكون أصغر من أو يساوي القيمة المكتوبة في النموذج

فتكون النتيجة أن يأتيك الاستعلام بالمنتج في تواريخ تنازلياً

وكل ما علينا أن نأخذ أول سعر في أول سجل

 

المرفق به تعديل يستخدم عند اختلاف المنتج

 

بس عندي سؤال لك :

وين تسجيل اعجابك بهذا الرد ؟

 

تحديد السعر3.rar

[Mostafa Metwally]

Dim x As Date
Dim m As String
x = CDate(p_date)
m = CStr(p_product)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("select price as ppp from products where" & " tday<=" & "#" & x & "#" & " and product=" & "'" & m & "'" & " ORDER BY products.tday DESC", 2)
Set rs1 = db.OpenRecordset("select min(tday) as mday from products")
If x < rs1!mday Then
MsgBox "لا يوجد اليوم فى القائمة"
p_price = ""
Else
p_price = rs!ppp
End If

تم عمل كود باستخدام مكتبة DAO