السلام عليكم
تحياتي للجميع في هذا التجمع ( افيستا )
عندي طلب حول السجل المدني حيث اريده قبول التكرار مع رسالة تحذر وخيار بالتراجع او الاستمرار
وجد في هذا المنتدى كود يعمل بشكل المطلوب ولكن لم استطع تنفيده على المثال
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