محمد التميمي قام بنشر يناير 2, 2023 مشاركة قام بنشر يناير 2, 2023 السلام عليكم طيب الله اوقاتكم في المرفق لدي نموذج فيه خانة (رقم الهوية) كتبت كود بسيط في (قبل التحديث) لاعتراض الرقم المكرر. المطلوب بدل امر (CancelEvent) اوريد كتابة امر اذا كان رقم الهوية مكرر يقوم بارجاعي الى خانة الاسم مع خالص الشكر والتقدير 555.accdb رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 2, 2023 مشاركة قام بنشر يناير 2, 2023 وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub 1 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد التميمي قام بنشر يناير 3, 2023 الكاتب أفضل إجابة مشاركة قام بنشر يناير 3, 2023 8 ساعات مضت, Eng.Qassim said: وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub شكرا اخي العزيز قاسم وبارك الله بك.هذا المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان