اضافة السماح بالتكرار

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

فى هذا النموذج يتم منع تكرار الاسم فى نفس الشهر مرتين 
اريد اضافة رسالة هل تريد التكرار نعم يضيف لا (لا يضيف )
وجزاكم الله خيراً

test5deletion.rar

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

[kanory]

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

ما ذا تعني هذه ..... هل وجدت الحل أم ماذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ على العموم تفضل جرب الشيفرة هذه ......

x = NumX
xx = Expr1
r = DCount("[numx]", "XtremQ", "[numx]='" & x & "'" & " and [expr1]=" & xx)
   If r > 0 Then
        If MsgBox("  هل تريد تكرار حفظ السجل ؟ ", vbYesNo, " تنبيه ") = vbNo Then
            Me.Undo
            Exit Sub
            Dim RS As Object
            Set RS = Me.Recordset.Clone
            RS.FindFirst "[numx]='" & x & "'" & " and [expr1]=" & xx
            If Not RS.EOF Then Me.Bookmark = RS.Bookmark
        End If
    End If

 

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

شكراً أستاذى @kanory أسف لعد درايتى بالاكواد جيداً 
 

x = NumX
xx = Expr1
r = DCount("[numx]", "XtremQ", "[numx]='" & x & "'" & " and [expr1]=" & xx)
   If r > 0 Then
        If MsgBox("  هل تريد تكرار حفظ السجل ؟ ", vbYesNo, " تنبيه ") = vbNo Then
            Me.Undo
            Dim RS As Object
            Set RS = Me.Recordset.Clone
            RS.FindFirst "[numx]='" & x & "'" & " and [expr1]=" & xx
            If Not RS.EOF Then Me.Bookmark = RS.Bookmark
            Exit Sub  
       End If
    End If