منع تكرار السجلات في النموذج الفرعي

[خليل خليل داماس]

السلام عليكم
لدي داتابيز: فيع ثلاث جداول:
واحد لأسماء الموظفين : Staff
و الثاني لليومي : Daily
الثالث : للحضور : Attendance
و علاقة  :
one to many
الجدولين : Daily , Staff هما الرأس,  و الجدول Attendance هو الأطراف .
و عملت استعلام بين الجداول الثلاث . و اسمه : Q_Attendance
و عملت من ذلك الإستعلام فورم . و اسمه Attendance
و أنشأت فورم من الجدول Daily و سحب و إفلات للفورم Attendance إل الفورم الجديد.
بمعنى الفورم Attendance هو النموذج الفرعي للرئيسي Daily
الآن :
ننقر على :
have we work today  في أعلى النموذج الرئيسي
لكي يتم إختيار اليوم الذي فيه العمل .
عند إدخال قيمة رقم الموظف ,في النموذج الفرعي تظهر باقي بيانات الموظف .

السؤال :
كيف يمكن منع التكرار في النموذج الفرعي
و لكم جزيل الشكر


 

ww.rar

تم تعديل أغسطس 12, 2016 بواسطه خليل خليل داماس

[AlwaZeeR]

If DCount("*", "[Attendance]", "[ID_Staff]=" & Me.[ID_Staff]) > 0 Then
MsgBox "duplicat"
DoCmd.CancelEvent
Me.Undo
Else
End If

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

تفضل:

ضع هذا الكود في حدث بعد التحديث للحقل: ID_staff في النموذج الفرعي

 

::

تحياتي

 

waz-ww.rar

[خليل خليل داماس]

ألف شكر لإهتمامك و ردك السريع
الله يوفقك , و يجعلها في ميزان حسناتك
أنا جربت البرنامج و كله تمام التمام.
ربنا يوفقك

تم تعديل أغسطس 12, 2016 بواسطه خليل خليل داماس

[خليل خليل داماس]

اخي الكريم. حاول إدخال البيانات في اليوم التالي, ستجد أنه تم الرفض بسبب التكرار.
كان سؤالي :
أن لا يقبل التكرار في اليوم الواحد فقط.
و لكن يمكن إدخال رقم العامل في اليوم التالي.
انا حالوت مع ال
If (Eval(dlookup("ID_Staff", "[Attendance]", "[ID_Staff]=form![ID_Staff]") is not null))  Then
MsgBox "duplicat"
DoCmd.CancelEvent
Me.Undo
Else
End If
و لكن دون فائدة

 

تم تعديل أغسطس 13, 2016 بواسطه خليل خليل داماس

[AlwaZeeR]

في 8/12/2016 at 15:31, خليل خليل داماس said:

السؤال :
كيف يمكن منع التكرار في النموذج الفرعي
و لكم جزيل الشكر

اين سؤالك الذي يقول ان لا يقبل التكرار في اليوم الواحد فقط؟

الجواب يأتي على حسب السؤال الذي يتم طرحه ،،،

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

::

تحياتي

 

[خليل خليل داماس]

بعتذر عن سؤالي بطريقة خاطئة
و ألف شكر لإهتمامك
الله يكرمك

 

هنا رابط السؤال بطريقة صحيحة

 

تم تعديل أغسطس 14, 2016 بواسطه ابوخليل
لوضع رابط الموضوع الآخر