عبد اللطيف سلوم قام بنشر April 11 مشاركة قام بنشر April 11 بناءا على طلب احد الاخوة المتابعين مثال بسيط على منع التكرار اتمنى من الاخوة الخبراء اثراء الموضوع ووضع طرق اخرى للفائدة منع تكرار الاسم.accdb 1 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر April 11 مشاركة قام بنشر April 11 (معدل) If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb تم تعديل April 11 بواسطه ازهر عبد العزيز 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر April 11 مشاركة قام بنشر April 11 هناك طريقتان أخريان اعرفها If DCount("*", "الطالب", "اسم_الطالب='" & Me.xxx & "'") > 1 Then MsgBox "اسم الطالب هذا قد تم تسجيله من قبل." DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM الطالب WHERE اسم_الطالب='" & Me.xxx & "'") If Not rs.EOF Then MsgBox "اسم الطالب هذا قد تم تسجيله من قبل." DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If rs.Close Set rs = Nothing 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 11 أفضل إجابة مشاركة قام بنشر April 11 ومشاركة مع الأخوة والأساتذة:- Private Sub StudentName_BeforeUpdate(Cancel As Integer) If DCount("*", "Student_Tbl", "StudentName = '" & Me.StudentName & "'") > 0 Then MsgBox "اسم الطالب موجود بالفعل في الجدول.", vbExclamation, "تكرار الاسم" Cancel = True End If End Sub 3 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر April 11 الكاتب مشاركة قام بنشر April 11 2 ساعات مضت, ازهر عبد العزيز said: If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb 656 kB · 2 downloads اخي @ازهر عبد العزيز لما تعمل نسخ اتأكد انه الكيبورد لغة عربية رح تطلع النتيجة صحيحة عند اللصق اما اذا كان الكيبورد انجليزي رح تطلع حروف كما في المثال اعلاه اتمنى منك اعادة الكود 2 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر April 11 مشاركة قام بنشر April 11 2 ساعات مضت, عبد اللطيف سلوم said: اخي @ازهر عبد العزيز لما تعمل نسخ اتأكد انه الكيبورد لغة عربية رح تطلع النتيجة صحيحة عند اللصق شكرا جزبلا اخي ملاحظة كان لدي سؤال نقريبا قبل ثلاثة سنوات لنفس سؤالك الطريف بالامر انة انت من قام بالاجابة عن السؤال بنفس الكود لاجابتي حاولت اجده لم افلح لكثرة مشاركاتي 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر April 11 مشاركة قام بنشر April 11 وعليكم السلام 🙂 مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂 وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 جعفر 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 11 مشاركة قام بنشر April 11 7 دقائق مضت, jjafferr said: وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر April 11 مشاركة قام بنشر April 11 21 دقائق مضت, jjafferr said: وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر April 11 الكاتب مشاركة قام بنشر April 11 26 دقائق مضت, jjafferr said: وعليكم السلام 🙂 مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂 وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 جعفر حاولت اضع لايك على منشوركم الكريم ولم اتمكن وظهرت لي هذه الرسالة اتمنى تفتحوا التقييد خوفا انه البعض يقول لم يضع لي لايك لماذا ؟؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر April 11 مشاركة قام بنشر April 11 3 ساعات مضت, عبد اللطيف سلوم said: حاولت اضع لايك على منشوركم الكريم ولم اتمكن كبير يا عبداللطيف كبير ، وعلى راسي 🙂 3 ساعات مضت, Foksh said: إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول 3 ساعات مضت, ازهر عبد العزيز said: جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂 . Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3022 Then Response = acDataErrContinue MsgBox "هذا الاسم موجود سابقا" End If End Sub 1602.Data_Exists.accdb 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 11 مشاركة قام بنشر April 11 6 دقائق مضت, jjafferr said: سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂 كلامك سليم 10000% ، لأني استخدمتها في مشروعي حضور وانصراف الموظفين في كومبوبوكس عند حدث ليس في القائمة Response = acDataErrContinue رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر April 12 مشاركة قام بنشر April 12 12 ساعات مضت, jjafferr said: سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂 زادك الله علما وعافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان