كيف امنع التكرار فى حقل فى النموذج

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته

انا مانع التكرار من خصائص الجدول و لكن فى النموذج عند التكرار الاسم بالخطأ تظهر هذه الرسالة
كيف امنع هذه الرسالة 
اريد ظهور رسالة هذا الاسم مسجل من قبل و يتم التراجع عنه 
جزاكم الله خيرا

test120.rar

تم تعديل مايو 19, 2017 بواسطه محمد احمد لطفى

[co2002co]

المنتدى يزخر بالامثله لكن عندي سؤال

ما الحكمه من تكرار الاسم عند الضغط على كلمه start

او ما الغرض من الزر start

[co2002co]

تفضل

test120.rar

[محمد احمد لطفى]

جزاك الله خير 
هل يمكن عملها فى نفس الخلية و لا تكون لها علاقة بالنموذج الفرعى
فى أمر بعد التحديث

تم تعديل مايو 19, 2017 بواسطه محمد احمد لطفى

[co2002co]

تفضل

3 ساعات مضت, محمد احمد لطفى said:

فى أمر بعد التحديث

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

test120.rar

[محمد احمد لطفى]

هل يجب عمل نموذج أخر أم لا

هذا النموذج مثل ما أعمل عليه 
أعتذر منك 
 

test150.rar

[محمد احمد لطفى]

هل من مساعدة

[Shivan Rekany]

5 دقائق مضت, محمد احمد لطفى said:

هل من مساعدة

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

Private Sub serial_BeforeUpdate(Cancel As Integer)
    If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then
            MsgBox "هذا الاسم مكرر"
            Cancel = -1
    End If
End Sub

 

[محمد احمد لطفى]

20 minutes ago, Shivan Rekany said:

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

Private Sub serial_BeforeUpdate(Cancel As Integer)
    If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then
            MsgBox "هذا الاسم مكرر"
            Cancel = -1
    End If
End Sub

 

أعتذر منك هل يمكن تطبيقها هنا

test150.rar

[Shivan Rekany]

بكل سرور

4 دقائق مضت, محمد احمد لطفى said:

أعتذر منك هل يمكن تطبيقها هنا

test150.rar

لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام

استخدمت هذا

Private Sub serial_BeforeUpdate(Cancel As Integer)
    If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then
            MsgBox "هذا الاسم مكرر"
            Cancel = -1
    End If
End Sub

واليك ملفك بعد تعديل

 

test150.rar

[محمد احمد لطفى]

جزاك الله خيرا