للمساعدة ( عايز رسالة تحذير تظهر عند تكرار أي بيانات في نموذج الإدخال)

[أبو عبد الرحمن2011]

عند إدخال البيانات في النموذج ..... اريد سالة تحذير تظهر عند تكرار البيانات ..... برجاء المساعدة ... وشكراً للمساعدة 

[AlwaZeeR]

ضع الكود التالي في حدث بعد التحديث للحقل الخاص بك

 

Dim Msgz As String
    
    DoCmd.SetWarnings False
    If DCount("*", "TblName", "[FldName]='" & Me.TxtName & "'") > 0 Then
      Msgz = MsgBox("... القيم مكررة ... ", vbOKOnly)
        Me.Undo
        DoCmd.SetWarnings True
        
    Else
        
    End If

::

تحياتي

[أبو عبد الرحمن2011]

شكراً على الإهتمام والرد السريع ولكن المشكلة لدي هو عدم تكرار الوقت ( من و إلي ) حيث أن من في حقل وإلي في حقل 

[AlwaZeeR]

ضع نفس الكود في حدث بعد التحديث لاي حقل تريد وسوف يقوم باظهار رسالة اذا ادخلت قيم مكررة

أو:

هل جربت في خصائص الحقل في الجدول؟

افتح الجدول في وضع التصميم ثم اختر الحقل الذي تريد منع التكرار فيه ثم اختر من الاسفل بجانب (مفهرس) نعم (التكرار غير مقبول)

او

ارفق مثالاً بسيطا بما تريد للتسهيل على من يريد المساعدة

::

تحياتي

duplicate-waz.rar

تم تعديل يوليو 2, 2016 بواسطه alwazeer
ارفاق مثال بسيط للمطلوب