السلام عليكم
احيانا نخطئ ونقوم بادخال الاسم اكثر من مرة
وهنا يحدث ارباك حيث في حالة سندات القبض والدفع سيحدث غلط بالتأكيد لأنك تقبض من شخص مكرر مرتين
المهم نحتاج طريقة لمنع التكرار بواسطة الاكواد وهذا مربط الفرس
اتمنى لكم الفائدة
مرفق قاعدة بيانات صغيرة عليها مثال لمنع التكرار لكي تعم الفائدة وخاصة للاخوة المبتدئين
شرح الطريقة : نعمل نموذج يوجد به الاسم فقط ونجعله ورقة بيانات ونضع في تذييله =count(*)
ثم ندرج هذا النموذج داخل النموذج الرئيسي كنموذج
وعليكم السلام اخي عبداللطيف 🙂
شكرا لك على هذه البرامج التشجيعية 🙂
عندي مداخله لوسمحت لي 🙂
وبإستعمال طريقة Dcount ، ولكن بشكل يختلف:
لسنا بحاجة الى نموذج فرعي ، ولا الى الحقل الذي يأخذ قيمة النموذج الفرعي ، كل الذي نحتاجه هو:
Private Sub الاسم_BeforeUpdate(Cancel As Integer)
If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then
MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
Me.Undo
Cancel =