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

[blue sea]

السلام عليكم

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

مع الشكر الجزيل

abcd.rar

[SAROOK]

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

اليك التعديل اخي وهو يفيد رسالة انه هناك تكرار 

 

abcd.rar

[blue sea]

مشكور اخي الكريم .. لو ممكن عرض بيانات السجل المكرر المذكور في نموذج الادخال بعد ظهور الرسالة  ... مع التحية 

[سامي الحداد]

7 ساعات مضت, blue sea said:

مشكور اخي الكريم .. لو ممكن عرض بيانات السجل المكرر المذكور في نموذج الادخال بعد ظهور الرسالة

مشاركة مع الاستاذ @SAROOK جزاه الله خيرا

Private Sub document_name_AfterUpdate()

    Dim Msg, Style, Title, Response
    Dim XX As Variant
    XX = [document name]
    If (Eval("dlookup(""[document name]"",""[input]"",""[nomber] =form![document name]"") Is Not Null")) Then
              
        Msg = "الكتاب رقم" & " " & XX & " " & vbCrLf & _
               "قد تم ادخاله سابقا " & vbCrLf & vbCrLf & _
               "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _
               "No  : فقط الغي هذا السجل"
        Style = vbYesNo + vbCritical + vbDefaultButton2 + vbMsgBoxRight
        Title = "تحذير الرقم مكرر !! "
                
        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then
'        DoCmd.GoToControl "document name"
        DoCmd.FindRecord XX, , , , , acAll, True
        End If
    Me.Undo
End If
End Sub

وهذا الملف بعد التعديل

بالتوقيق

abcd.rar

[blue sea]

شكرا جزيلا