طلب كود لمنع تكرار سجل لنفس الموظف بشرط

[أبو نادر]

السلام عليكم

واجهتني مشكلة واكيد الحل عندكم ان شاء الله

عند عمل تمام يومي للموظفين ..مثلاً واحد اجازه والثاني انتداب والثالث مرضية

اختار اليوم والتاريخ ( نفس اليوم ) والسبب ( مرضية او اجازه او مكلف .... ) حسب القائمة الموجوده في حقل السبب

 

عند اضافة سجل جديد لموظف لنفس اليوم يقبل التكرار ولنفس التاريخ والسبب ؟ 

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

وفي اليوم التالي .. يوم جديد وتاريخ جديد ويقبل اضافة نفس الموظف بنفس الشروط السابقة..

وهل هناك طريقة لجعل اليوم والتاريخ متزامنه مع النظام

....

 

[ابوخليل]

يمكن الاستفادة من بعض خصائص الجدول

مثلا لو جعلت  الحقول :  1-المعرف  2-والتاريخ  3-والسبب  جعلتها مفاتيح للجدول  

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

والطريقة هو ان تضغط زر كنترول وتستمر ضاغط  وبالفأرة تختار الحقول ثم  بزر الفأرة الايمن تحدد المفتاح

ستجد ان الحقول الثلاث اصبحت مفاتيح

[أبو نادر]

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

يقبل اضافة سجل جديد ويصطدم بالمفاتيح ولا يحفظ ... هل من طريقة لكتابة كود عند الضغط على سجل جديد تخرج رسالة ( لا يمكن اضافة تمام مرتين في هذا اليوم  لنفس )

مثلا اقول :

if me.id = now date() then

msgbox ""

else

يضيف سجل

 

المشكلة ما عرف اقول اذا فيه سجل لهذا الرقم يساوي تاريخ اليوم فلا تضيف سجل   ...  record كيف ازبطها ؟

[أبو نادر]

الحمد لله .. بعد الخنبقه في ذي الأكواد انحلت المشكلة

اعدت المفتاح الاساسي لحقل الترقيم التلقائي

واضفت هذا الكود عند اضافة سجل جديد

 

If DLookup("[Num5]", "التمام_رئيسي_استعلام", "[date]='" & Me![date] & "'") Then
MsgBox "عذراً...الرقم مسجل مسبقاً في هذا اليوم", vbCritical, "تنبيه"

Me.Undo

Else
.........
end if