hussein arby قام بنشر يوليو 6, 2015 مشاركة قام بنشر يوليو 6, 2015 السلام عليكم ورحمة الله وبركاته عندي برنامج حجز قاعة افراح اريد عند حجز مستخدم تاريخ معين لعميل وكان التاريخ محجوز لشخص اخر يعطي مسج بوكس عن طريق كود بان التاريخ محجوز بالفعل وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 6, 2015 مشاركة قام بنشر يوليو 6, 2015 وعليكم السلام ورحمة الله وبركاته طبق طريقة البحث عن التكرار يعني في حدث بعد تحديث حقل تاريخ الموعد نضع كود منع التكرار ابحث المنتدى مليء بالامثلة رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر يوليو 6, 2015 الكاتب مشاركة قام بنشر يوليو 6, 2015 أخي أبو خليل شكرا علي ردك ولاكن بحثة في المنتدي ولم اجد المطلوب ارجو المساعده لو تكرمت رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 6, 2015 مشاركة قام بنشر يوليو 6, 2015 اخوي حسين ارفق مثالك واجعله على الصيغة mdb رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر يوليو 6, 2015 الكاتب مشاركة قام بنشر يوليو 6, 2015 أخي الفاضل الملف عندي كبير والنت ضعيف جدا وكل ما أحاول رفعه النت ينقطع أنا هديك التفاصيل اسم الجدول data2 واسم الحقل المراد عدم تكرار التاريخ فيه ID واسم الفورم الذي به مربع النص FORM1 واسم المربع تاريخ الحجز طبعا انا عاوز الفكره عن طريق كود وجزاك الله خيرا وارجو ان اكون وضحت لك المطلوب رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 7, 2015 مشاركة قام بنشر يوليو 7, 2015 تفضل اجعل الكود في حدث قبل تحديث حقل تاريخ الحجز Dim i As Integer i = DCount("ID", "data2", "ID =#" & [تاريخ الحجز ] & "#") If i > 0 Then MsgBox "التاريخ محجوز" Undo Exit Sub رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر يوليو 8, 2015 الكاتب مشاركة قام بنشر يوليو 8, 2015 تفضل اجعل الكود في حدث قبل تحديث حقل تاريخ الحجز Dim i As Integer i = DCount("ID", "data2", "ID =#" & [تاريخ الحجز ] & "#") If i > 0 Then MsgBox "التاريخ محجوز" Undo Exit Sub اخي الفاضل ابو خليل شكرا لك علي اهتمامك ولاكن الكود لايعمل معي رابط هذا التعليق شارك More sharing options...
سعيد صواب قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 السلام عليكم ورحمة الله وبركاته ,,, صباح الخير وتقبل الله منا ومنكم الطاعات واعتق رقابنا من النار أجمعين. بعد أذن الأستاذ أبو خليل ,,, هو نفس الحل تقريبا اخ حسين ولكن مرفق مثال وانصحك بتجنب استخدام التسميات العربية .. أسميت حقل تاريخ الحجز 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 رابط هذا التعليق شارك More sharing options...
hussein arby قام بنشر يوليو 10, 2015 الكاتب مشاركة قام بنشر يوليو 10, 2015 الف شكر لك اخي الفاضل اخر الارض الكود ظبط واشكر اخي الفاضل ابو خليل وجزاكم الله خير وزادكم الله من علمه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.