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