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

[blue sea]

السلام عليكم

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

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

abcd.rarFetching info...

[SAROOK]

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

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

 

abcd.rarFetching info...

[blue sea]

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

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

  في 10‏/2‏/2024 at 05:42, blue sea said:

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

Expand  

مشاركة مع الاستاذ @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.rarFetching info...

[blue sea]

شكرا جزيلا 

[أبو حوده]

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

اولا انا عارف ان الموضوع تمت الاجابة عنه سابقا ولكن الفكرة عجبتنى جدا فسؤالى لاخى فى الله الاستاذ @سامي الحدادلكن لو قمنا بعمل جدول تانى وليكن باسم input1 وعملناه مصدر لنموذج تانى وليكن باسم m1 والجدول ده هو اللى هيبحث فيه عن تكرار لو السجل اللى انا ادخلته فى الجدول الاول اللى هو input موجود فيه تظهر الرساله ان مكرر ويظهر السجل على النموزج m1 حاولت اعملها لكن فشلت ممكن مساعدة هنا ولا افتح موضوع جديد ونضع السؤال فيه ارجو الافاده 

abcd.accdbFetching info...

[blue sea]

اخي الكريم قمت بتطبيق الحل على النموذج المرفق وظهرت مشكلة عندما أقوم بإدخال رقم الكتاب وهو موجود سابقا وتظهر الرسالة التحذيرية واختار نعم يقوم بعرض بيانات الرقم المدخل لكن لايظهر رقم الكتاب في النموذج وعندما اغلق النموذج يقوم بمسح قيمة الكتاب .. ارجو التعديل على البرنامج المرفق مع جزيل الشكر

3 june.rarFetching info...