طلب تنفيد كود على السجل المدني على ان يقبل التكرار مع رسالة تحدير وخيار الاستمرار او التراجع

[ksaed123]

السلام عليكم 
تحياتي للجميع في هذا التجمع ( افيستا ) 
عندي طلب حول السجل المدني حيث اريده قبول التكرار مع رسالة تحذر وخيار بالتراجع او الاستمرار 
وجد في هذا المنتدى كود يعمل بشكل المطلوب ولكن لم استطع تنفيده على المثال 
 

Dim db As Database
Dim CountNum, I As Long
Dim MsgNumbr, NewName As String

Set db = CurrentDb
NewName = [Forms]![Form1]![Txt1]
Set rst = db.OpenRecordset("main", dbOpenSnapshot)

CountNum = DCount("*", "main", "[Name]=[Forms]![Form1]![Txt1]")
If CountNum = 0 Then Exit Sub

With rst
    Do Until .EOF
    If rst!Name = NewName Then
    MsgNumbr = MsgNumbr & rst!Num & "  "
    End If
    .MoveNext
    Loop
End With

If MsgBox("سبق إدخال هذا الاسم برقم " & MsgNumbr & vbCrLf & vbCrLf _
    & "هل تريد بالتأكيد تسجيله " & vbCrLf, _
    vbInformation + vbYesNo + vbDefaultButton2, _
    "تنبيه") = vbNo Then
      Cancel = -1
End If

Dim rst As Recordsetdb.Close
...................................................
في مشاركة احد المشرفين السابقين تم ارفاع القاعدة التي تحتوي على المثال المطلوب 
وفي الملف الاول المثال المراد تطبيق المثال عليه 
ولكم مني جزيل الشكر 

يقبل المعاملة ويخبرك انه يوجد معاملة برقم.rar تجربة قبول التكرار مع رسالة تحدير.rar

[Abu Farid]

تفضل أخي اليك التطبيق المثال

تجربة قبول التكرار مع رسالة تحدير.rar

[ksaed123]

😱

😱اضفت  الكود عدة مرات ولم ينج بوركت يداك يا بطل ( ABU FARID ) في ميزان اعمالك 

 تمت تجربت الكود ويعمل بالشكل المطلوب شكرا جزيلا 🧐

 

تم تعديل يناير 20, 2020 بواسطه ksaed123