hello11965

تفضل اخي سراب l] db92a.rar

اخي سراب هناك موقع الفريق العربي للبرمجة يمكنك التسجيل فيه وفيه امكانية ارفاق ملفات لقد رايت اسما يشبه اسمك لاادري ان كنت انت لذلك اذا رغبت يمكن ان ارفق لك الملف في ذلك الموقع في انتظار ردك

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

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

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