واجهتني مشكلة عندما أردت تطبيق هذا المثال على قاعدة بيانات موجودة عندي ، وهي أن الرسالة تظهر ليس فقط عند التعديل في سجل موجود في القاعدة ، بل تظهر حتى عند إدخال بيانات سجل جديد ، مما يسبب إزعاجاً عند إدخال البيانات ، وأنا أريدها أن تظهر فقط عند تعديل بيانات سجل موجود .وليس عند إدخال بيانات سجل جديد .
مرفق المثال الأصلي
التعديل بأنه اذا كانت القيمة الاصلية لا تساوي صفر
ينفذ الكود
و سأضيف المثال الي موضوع الارشيف ايضا
الإخوة محمد وعابد
السلام عليكم
هناك خاصية في النموذج يمكن استخدامها في مثل هذه الحالة وهي خاصية NewRecord وبالتالي يمكن أن يكون الكود بالشكل التالي
If Me.NewRecord = False Then
If MsgBox(" هل تريد تغيير المرتب فعلاً ؟؟", vbYesNo, _
" رسالة تغيير المرتب ") = vbNo Then
Cancel = True
SendKeys "{ESC}"
Exit Sub
End If
End Ifتحياتي
أخوكما / أبو هاجر
إخواني الأعزاء :- أبو هاجر ، محمد طاهر
لقد جربت كتابة الكود المذكور في المثال الأصلي ضمن خصائص النموذج وليس ضمن خصائص مربع النص ، عند حدث " قبل التحديث " وكانت النتيجة ممتازة .
شكرررررررررراً
هذا الموضوع مغلق.