كيف أضع رمز V عندما تقل قيمة الحقل عن السابق ؟

[sarab99]

لدي ملف لصفقات الاسهم وارغب في عمل استفسار يظهر لي النتيجة التاليه

اذا كان سعر السهم الحالي اعلى من السابق يظهر رمز "A"

اذا كان سعر السهم الحالي اقل من السابق يظهر رمز "V"

اذا كان مساوي لما قبله يظهر الرمز "---"

في الحقيقه قمت بتجربة معادله وقد نجحت بشرط ان يكون فرز الصفقات تسلسلي من حقل ID

ولكن عندما يكون الفرز حسب وقت الصفقه وهو الاهم يعطي نتائج خاطئه

لان المعادله على مايبدو تعتمد على رقم ال ID

من يقول انا لها ويحدث المعادله بحيث تعمل بشكل صحيح مع فرز الوقت

ارجو من عباقرة الاكسيس بحث هذا الامر للآهميه وان يعتبروه اختبارا حقيقيا لقدراتهم مع دعواتي لله لهم بالتوفيق.

مرفق مثال لقاعدة البيانات

http://members.lycos.co.uk/sarab99/up1/up/db1.zip

وتفضلوا بقبول خالص تحياتي :(

[hello11965]

ضع هذا الكود في حدث بعد التحديث للحقل التاريخ

مع الاخذ بعين الاعتبار ان هذا لكود يعتمد على الحقل ID

وللاسف الرابط الذي وضعته لملفك لايعمل

ولم اجد طريقة لارفاق ملف قاعدة بيانات وضعت لك فيها فكرة الحل المطلوب

ومع ذلك حاول ان تستفيد من هذا الكود ففيه الحل

Dim a, b, c, d
a = Me.ID - 1
b = Nz(DLookup("[objectprice]", "Table1", "[ID] =" & a), 0)
c = Me.objectprice
'ÇáãÊÛíÑ d ÞÏ ÊÓÊÝíÏ ãäå ÇÐÇ ÇÑÏÊ ÇÊÚÏíá
d = Nz(DLast("[date]", "Table1", "[ID]=" & a), 0)
If c < b Then
Me.note = "A" & "ÇÞá ãä ÇáÓÇÈÞ"
ElseIf c > b Then
Me.note = "V" & "ÇßÈÑ ãä ÇáÓÇÈÞ"
ElseIf c = b Then
Me.note = "----" & "íÓÇæí ÇáÓÇÈÞ"
ElseIf b = 0 Then
Me.note = "no previous record"
' áÇÍÙ Çäå Ýí ÇáÓÌá ÇáÇæá ãÇÐÇ íÚØíß ÇáäÊíÌÉ
' æÈÇãßÇäß ÇáÊÚÏíá æÇááÈíÈ ãä ÇáÇÔÇÑÉ .....
End If

[sarab99]

اخي الكريم الكود غير واضح .. تظهر رموز غريبه.

بالنسبه لرابط الملف فهو يعمل استخدم حفظ الهدف باسم

وارجو ان تضع الكود على قاعدة البيانات وترفقها من خلال الموقع التالي

http://www.n0f.net/

بالنسبه للشرط الثالث من المعادله ارجو ان يكون كالاتي بدلا من اظهار رمز "---"

اذا كان السابق اقل ومساو لماقبله يستمر باظهار رمز "V" مثال

10

9 ----- V

9----- V بدلا من "---"

واذا كان الاكثر متساوي يظهر رمز "A" مثال

10

15 ----- A

15 ----- A بدلا من "----"

وجزاك الله خيرا

[hello11965]

اخي سراب للاسف الموقع الذي وضعته لي قال ( الملف الذي ارفقته غير مسموح به لذلك لاادري اذا تم تحميله ام لا )

اخي الكريم الكود غير واضح .. تظهر رموز غريبه.

بالنسبه لرابط الملف فهو يعمل استخدم حفظ الهدف باسم

وارجو ان تضع الكود على قاعدة البيانات وترفقها من خلال الموقع التالي

http://www.n0f.net/

بالنسبه للشرط الثالث من المعادله ارجو ان يكون كالاتي بدلا من اظهار رمز "---"

اذا كان السابق اقل ومساو  لماقبله يستمر باظهار رمز "V" مثال

10

9 ----- V

9----- V  بدلا من "---"

واذا كان الاكثر متساوي يظهر رمز "A"  مثال

10

15 -----  A

15 -----  A  بدلا من "----"

وجزاك الله خيرا

<{POST_SNAPBACK}>

[hello11965]

اخي سراب هناك موقع الفريق العربي للبرمجة

يمكنك التسجيل فيه

وفيه امكانية ارفاق ملفات

لقد رايت اسما يشبه اسمك لاادري ان كنت انت

لذلك اذا رغبت يمكن ان ارفق لك الملف في ذلك الموقع

في انتظار ردك

اخي الكريم الكود غير واضح .. تظهر رموز غريبه.

بالنسبه لرابط الملف فهو يعمل استخدم حفظ الهدف باسم

وارجو ان تضع الكود على قاعدة البيانات وترفقها من خلال الموقع التالي

http://www.n0f.net/

بالنسبه للشرط الثالث من المعادله ارجو ان يكون كالاتي بدلا من اظهار رمز "---"

اذا كان السابق اقل ومساو  لماقبله يستمر باظهار رمز "V" مثال

10

9 ----- V

9----- V  بدلا من "---"

واذا كان الاكثر متساوي يظهر رمز "A"  مثال

10

15 -----  A

15 -----  A  بدلا من "----"

وجزاك الله خيرا

<{POST_SNAPBACK}>

[sarab99]

نعم اخي الكريم كتبت موضوع مشابه في الموقع المذكور ارجو ان ترفع الملف في مشاركتي هناك

شاكرا تعاونك معي

[hello11965]

تفضل اخي سراب

l]

نعم اخي الكريم كتبت موضوع مشابه في الموقع المذكور ارجو ان ترفع الملف في مشاركتي هناك

شاكرا تعاونك معي

<{POST_SNAPBACK}>

db92a.rar

تم تعديل يناير 21, 2007 بواسطه التقني