عبد اللطيف سلوم قام بنشر يوليو 30, 2022 مشاركة قام بنشر يوليو 30, 2022 السلام عليكم اخواني الاعزاء كود بسيط لمنع التكرار نحتاجة في معظم برامجنا مرفق قاعدة البيانات حدث قبل التحديث منع التكرار.accdb 2 3 رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر يوليو 30, 2022 مشاركة قام بنشر يوليو 30, 2022 3 ساعات مضت, عبد اللطيف سلوم said: كود بسيط لمنع التكرار نحتاجة في معظم برامجنا جميل جدا اخي ابو اشرف وممكن بطريقة اخرى ⬇️ Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[nn] = " & Me.nn If Not rs.NoMatch Then Cancel = True MsgBox "هذة القيمة مكررة" Else End If rs.Close تحياتي 3 1 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 1, 2022 مشاركة قام بنشر أغسطس 1, 2022 المطلوب كود يعطي رساله ان القيمة مكرره وفي نفس الوقت يسمح بالتكرار. الرساله :تكون بهذا الشكل .هذه القيمة مكرره هل توافق على التكرار. ويوجدزرارين .نعم. لا. اذا اخترت نعم سمح بالتكرار واذا اخترت لا يمنع التكرار رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أغسطس 2, 2022 مشاركة قام بنشر أغسطس 2, 2022 11 ساعات مضت, طاهر الوليدي said: المطلوب كود يعطي رساله ان القيمة مكرره وفي نفس الوقت يسمح بالتكرار. الرساله :تكون بهذا الشكل .هذه القيمة مكرره هل توافق على التكرار. ويوجدزرارين .نعم. لا. اذا اخترت نعم سمح بالتكرار واذا اخترت لا يمنع التكرار تعديل على كود أستاذنا @مبرمج سابق ليوافق سؤالك 🙂 : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[LockupFeildInTheTable] = " & Me.FeildInTheFormTxt If Not rs.NoMatch Then If MsgBox("هذه القيمة مكرره هل توافق على التكرار.", vbYesNo, "تنبيه") = vbNo Then Cancel = True End If Else End If rs.Close Set rs = Nothing End Sub 3 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 3, 2022 مشاركة قام بنشر أغسطس 3, 2022 شكرا استاذي القدير تم تطبيق الكود المرسل ولكن واجهة مشكلة علما انني استخدم افيس 2021 ولكم من الشكر وجزاكم الله خير. مرفق المثال تنبيه بالتكرار.accdb رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر أغسطس 3, 2022 مشاركة قام بنشر أغسطس 3, 2022 36 دقائق مضت, طاهر الوليدي said: تم تطبيق الكود المرسل ولكن واجهة مشكلة علما انني استخدم افيس 2021 غير اسماء الحقول وفقا لما لديك الملف مرفق تنبيه بالتكرار.accdb رابط هذا التعليق شارك 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.