hello11965

تفضل اخي سراب

l]

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

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

<{POST_SNAPBACK}>

db92a.rar

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

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

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

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

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

في انتظار ردك

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

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

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

http://www.n0f.net/

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

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

10

9 ----- V

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

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

10

15 -----  A

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

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

<{POST_SNAPBACK}>

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

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

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

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

http://www.n0f.net/

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

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

10

9 ----- V

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

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

10

15 -----  A

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

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

<{POST_SNAPBACK}>

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

مع الاخذ بعين الاعتبار ان هذا لكود يعتمد على الحقل 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

شكرا يا زهرة على جهودك ومتابعتك لكل ماهو مفيد