[ تمت الإجابة ]التاريخ يتكرر مع نفس الموظف وأنا لا أريد ذلك

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

أخي، المطلوب هو مجرد التأكد من أن الموظف لم يسبق إدخاله بنفس اليوم، وهذا ممكن بكثير من الطرق، واحدة منها في الملف المرفق بعد التعديل...

أرجو إعادة تحميل الملف لأنني أشك في أن النسخة الأولى لم تكن معدلة كما ينبغي...

ghyab_1.rar

حلول جميلة وسريعة ...

ما شاء الله على نشاط أخينا أحمد مبارك الحيقى.

بارك الله لنا وإياكم فى أيام وليالى رمضان

محمد ندا

أخي أحمد بارك الله فيك

وشكراً على سرعة تجاوبك معي

حملت المرفق ولكن أظن أن هناك خللاً في الكود فلا تظهر لي رسالة أن الموظف سبق إدخال غياب له في نفس التاريخ

بل أنني استطعت أن أسجل غياب له بنفس التاريخ

أعرف حلولك العبقرية ولكن قد يكون هناك شيئ يخفى على مثلي

أرجو منك مساعدتي

الأخ الكريم الرميلي...

أولاً: ليس في الموضوع حلول عبقرية، ولكنها مشاركات متواضعة، قد ينفع الله بها، لكنها لا ترقى إلى مستوى المشاركات الرزينة من عدد لا بأس به من المشرفين والأعضاء هنا.

ثانياً: الكود فيه مشكلة بالفعل، بسبب التاريخ، أعتذر بسبب عدم إدراك الإشكال، فقد ظننت بسبب عمل الكود عندي في البداية أن المشكلة سببها شيء آخر، لكن اتضح بالفعل أن الكود لا يعمل غالباً، ربما بسبب التاريخ الهجري... على كل حال، حاولت إرفاق حل سريع بتحويل التاريخ إلى نص قبل المقارنة كما في الملف المرفق:

Private Sub Form_BeforeUpdate(Cancel As Integer)
	If Nz(DCount("[الموظف]", "[ghyab 1]", "[الموظف] = '" & txtname & "' And Cstr([التاريخ]) ='" & CStr(date) & "'"), 0) > 0 Then
		MsgBox "سبق إدخال غياب هذا اليوم للموظف " & txtname, vbExclamation, "إدخال مكرر"
		Cancel = True
	End If
End Sub

أرجو التجربة والرد تكرماً...

أخوك أحمد.

ghyab.rar

أخي الكريم أحمد الحيقي

ألم أقل لك إنها الحلول العبقرية !!

نعم لقد تحقق المراد

وقد وضعت الكود في حدث قبل التحديث للتاريخ وأضفت له الأمر me.undo واختبرته فكان عال العال

زادك الله علماً وتواضعاً