محمد احمد لطفى قام بنشر مايو 21, 2022 مشاركة قام بنشر مايو 21, 2022 فى هذا النموذج يتم منع تكرار الاسم فى نفس الشهر مرتين اريد اضافة رسالة هل تريد التكرار نعم يضيف لا (لا يضيف ) وجزاكم الله خيراً test5deletion.rar رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 21, 2022 الكاتب مشاركة قام بنشر مايو 21, 2022 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر مايو 21, 2022 أفضل إجابة مشاركة قام بنشر مايو 21, 2022 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 1 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 21, 2022 الكاتب مشاركة قام بنشر مايو 21, 2022 شكراً أستاذى @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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.