هذا الرقم موجود مسبقاً لايمكن اضافتة

أخي الكريم

ضع هذا الكود في حدث : قبل التحديث لمربع النص الأول (الرقم)

Private Sub Ctl1_BeforeUpdate(Cancel As Integer)
    If Not IsNull(DLookup("[1]", "asd", "[1]= '" & [Ctl1] & "'")) Then
        Cancel = True
        MsgBox "الرقم الذي يتم اضافتة موجود
مسبقاً ولا يمكن اضافتة"
    End If
End Sub

وبعد إذنك أستاذ مهند

هذا حل آخر

DB1.ZIP

اشكركم اخواني الكرام على المساعدة

لقد قمة بتعديل الملف بعد اذنكم اخواني

حاول ان تترك احدي الخانات خالية ثم قم بحفظ الملف

مرة ثانية اشكركم على المساعدة

db1.zip

السبب أنك تضيف الرقم في مربع نص غير منظم رغم أنه المفتاح الأساسي وأنت تعلم أن المفتاح الأساسي لا يكون فارغاً .

قمت بتعديل النموذج والكود .. جرب وأخبرني .

تحياتي ..

db1.zip

مشكوووور اخي فهد الدوسري

تعديلات حلوة وهذا هو المطلوب

واشكرك واشكر اخواني اللي ساعدون في هذه المشكلة

اخوكم almhagr

واتمني من الله ان يوفقكم الي كل مايحبه ويرضاه

لا شكر على واجب أخوي almhagr .

حياك الله اخ almhagr بصراحة طريقتك حلوة في عدم ترك أي حقل فارغاً

في المثال الذي أرفقته

الأخ فهد الدوسري

بالنسبة للمثال المرفق فان المفتاح الرئيسي عبارة عن نص

كيف لي أن أطبق الكود إذا كان المفتاح الرئيسي عبارة عن رقم .. يعني ماذا أغير في الكود .. أرجو افادتي لو سمجت

إذا كان رقما يصبح الكود هكذا

If Me.NewRecord = True Then
        Dim strWhere As String, strMessage As String

        strWhere = "[aaa] = " & Me![aaa] & ""
        Me.RecordsetClone.MoveFirst
        Me.RecordsetClone.FindFirst strWhere
        If Me.RecordsetClone.NoMatch = False Then
       
        strMessage = "هذا الرقم تم إدخاله مسبقاً"
        lResponse = MsgBox(strMessage, vbOKOnly + vbDefaultButton2 + vbMsgBoxRight + vbQuestion, strTitle)
        Cancel = True
        DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo
        Me.Undo
        Me.Bookmark = Me.RecordsetClone.Bookmark
     
End If
End If

بإزالة علامة التنصيص هذه ' '

تحياتي ..