مساعدة في منع المستخدم من تكرار نفس المادة في القائمة

[ازهر عبد العزيز]

السلام عليكم كيف امنع المستخدم ان يدخل نفس االمادة في النموذج الفرعي fld سواء ادخل المادة عن طرق الحقل name1  او الحقل name2   في النموذج 

TEST1.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub N1_BeforeUpdate(Cancel As Integer)
On Error Resume Next
    If Me.NewRecord = True Then
    Dim strWhere As String, strMessage As String
    
    strWhere = "[B] = '" & Me![N1] & "'"
    Me.RecordsetClone.MoveFirst
    Me.RecordsetClone.FindFirst strWhere
    If Me.RecordsetClone.NoMatch = False Then
        strMessage = " الصنف مكرر"
        lResponse = MsgBox(strMessage, vbOKOnly + vbCritical)
            If lResponse = vbOK Then
                Cancel = True
                Me.Undo
                Me.Bookmark = Me.RecordsetClone.Bookmark
            End If
    End If
End If

End Sub

TEST11.rar

تحياتي

[ازهر عبد العزيز]

الاستاذ @محمد ابوعبد الله شكرا جزيلا 

[محمد أبوعبدالله]

موفق دائماً اخي الكريم

تحياتي

[ازهر عبد العزيز]

9 دقائق مضت, محمد ابوعبد الله said:

موفق دائماً اخي الكريم

تحياتي

ربي يحفظك ويزيدك خير وبركة