كود بسيط لمنع التكرار قبل التحديث

[عبد اللطيف سلوم]

السلام عليكم

اخواني الاعزاء

كود بسيط لمنع التكرار نحتاجة في معظم برامجنا 

مرفق قاعدة البيانات 

حدث قبل التحديث

 

منع التكرار.accdb

[متقاعد]

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

تحياتي

[طاهر الوليدي]

المطلوب كود يعطي رساله ان القيمة مكرره وفي نفس الوقت يسمح بالتكرار. الرساله :تكون بهذا الشكل .هذه القيمة مكرره هل توافق على التكرار.

ويوجدزرارين

 .نعم. لا. 

اذا اخترت نعم سمح بالتكرار واذا اخترت لا يمنع التكرار

 

[Moosak]

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

 

[طاهر الوليدي]

شكرا استاذي القدير 

تم تطبيق الكود المرسل ولكن واجهة مشكلة علما انني استخدم افيس 2021 

ولكم من الشكر وجزاكم الله خير.

مرفق المثال

 

تنبيه بالتكرار.accdb

[متقاعد]

36 دقائق مضت, طاهر الوليدي said:

تم تطبيق الكود المرسل ولكن واجهة مشكلة علما انني استخدم افيس 2021 

غير اسماء الحقول وفقا لما لديك

الملف مرفق

 

تنبيه بالتكرار.accdb