اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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 ) في ميزان اعمالك 

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

 

تم تعديل بواسطه ksaed123
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information