كود تنبيه بان تاريح الحجز هذ موجود

[hussein arby]

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

عندي برنامج حجز قاعة افراح اريد عند حجز مستخدم تاريخ معين لعميل وكان التاريخ محجوز لشخص اخر يعطي مسج بوكس عن طريق كود بان التاريخ محجوز بالفعل

وجزاكم الله خيرا

[ابوخليل]

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

طبق طريقة البحث عن التكرار

يعني في حدث بعد تحديث حقل تاريخ الموعد نضع كود منع التكرار

 

ابحث المنتدى مليء بالامثلة

[hussein arby]

أخي أبو خليل شكرا علي ردك ولاكن بحثة في المنتدي ولم اجد المطلوب ارجو المساعده لو تكرمت

[ابوخليل]

اخوي حسين ارفق مثالك واجعله على الصيغة mdb

[hussein arby]

أخي الفاضل الملف عندي كبير والنت ضعيف جدا وكل ما أحاول رفعه النت ينقطع أنا هديك التفاصيل

اسم الجدول data2 واسم الحقل المراد عدم تكرار التاريخ فيه ID واسم الفورم الذي به مربع النص FORM1 واسم المربع تاريخ الحجز طبعا انا عاوز الفكره عن طريق كود وجزاك الله خيرا وارجو ان اكون وضحت لك المطلوب

[ابوخليل]

تفضل 

اجعل الكود في حدث قبل تحديث حقل تاريخ الحجز

Dim i As Integer
i = DCount("ID", "data2", "ID =#" & [تاريخ الحجز ] & "#")
If i > 0 Then
MsgBox "التاريخ محجوز"
Undo
Exit Sub

[hussein arby]

 

تفضل 

اجعل الكود في حدث قبل تحديث حقل تاريخ الحجز

Dim i As Integer
i = DCount("ID", "data2", "ID =#" & [تاريخ الحجز ] & "#")
If i > 0 Then
MsgBox "التاريخ محجوز"
Undo
Exit Sub

 

اخي الفاضل ابو خليل شكرا لك علي اهتمامك  ولاكن الكود لايعمل معي 

[سعيد صواب]

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

 

صباح الخير وتقبل الله منا ومنكم الطاعات واعتق رقابنا من النار أجمعين.

 

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

أسميت حقل تاريخ الحجز resdate

Private Sub resdate_AfterUpdate()
Dim i As Integer
i = DCount("ID", "data2", "ID = forms!form1!resdate")
If i > 0 Then
MsgBox "ÇáÊÇÑíÎ ãÍÌæÒ"
Undo
Exit Sub
End If
End Sub

 

 

 

 

وبالتوفيق للجميع 

hussain.rar

hussain.rar

[hussein arby]

الف شكر لك اخي الفاضل اخر الارض الكود ظبط

واشكر اخي الفاضل ابو خليل وجزاكم الله خير وزادكم الله من علمه