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

موضوع منقول من المنتدي القديم

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

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

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

يعني لا بد ان يكون الرقم بنفس التاريخ لا يتكرر ... وقد يتكرر الرقم لكن بتاريخ مختلف ... وشكراً للجميع ...

رد أبو حمود :

جرب هذا :

If Not IsNull(DLookup("الرقم", "الرقم والتاريخ", "[الرقم]= " & Me![الرقم] & " And [التاريخ]=#" & Me![التاريخ] & "#")) Then
MsgBox "يوجد رقم بنفس التاريخ ."
End If

علما أنني سميت مربعي النص على النموذج الرقم والتاريخ وهو نفس اسمهما في الجدول .

بلإمكانك أن تعملها بواسطة استعلام يكون الشرط فيه يعني جملة اسناد للقيم الموجودة على النموذج ووتلغي الشرط من عبارة Dlookup .

ولك تحياتي

ثم التطبيق علي مثال

من أبو حمود أيضا

هذا رابط للقاعدة بعد عمل المطلوب بثلاث طرق :

http://www.msaccess4arab.com/temp/db1.zip

وقد جربت الطريقة التي ذكرتها في ردي السابق إلا أنها تعمل مرة وتتوقف مرة وقد كنت قد واجهت هذه المشكلة في الأكسس 2000 وظننت أنها قد انتهت مع الأكس بي ولكن نفس الشيء موجود .

المشكلة بعد عدة تجارب مريرة على الأكسس2000 أن الأكسس يقرأ التاريخ الموجود مرة بالميلادي ومرة بالهجري وقد استخدمت كل ما اعرفه لجعل التاريخ ثابت على أحدهما أثناء قرائته في الكود ولكن بلا فائدة .

ولك تحياتي