مشكلة ظهور رسالة خطأ في حدث (قبل التحديث) في الفورم

[رولي]

السلام عليكم 

عندي مشكلة وهي أنني قمت بإضافة كود فيجوال بيسك إلى حدث (قبل التحديث) الخاص بالفورم، وظيفته هو التخيير بين حفظ البيانات أو إلغائها، المشكلة عندما أقوم برفض التعديلات تظهر رسالة خطأ لم تكن تظهر من قبل، أريد الحل مشكورا

كود الفيجوال بيسك الذي تم إضافته:

If MsgBox("هل تريد حفظ البيانات؟", vbInformation + vbYesNo, "رسالة تأكيد") = vbNo Then
Me.Undo
DoCmd.CancelEvent
Else
End If

مرفق صورة رسالة الخطأ

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

تم تعديل سبتمبر 19, 2020 بواسطه mohammed hafs
تنسيق

[ازهر عبد العزيز]

يجب تكملة الكود بعد else h  او اضف التالي 

DoCmd.GoToRecord , , acNewRec

 

تم تعديل سبتمبر 19, 2020 بواسطه ازهر عبد العزيز

[رولي]

شكرا أخي 

ممكن حد يشير التكملة ديه ؟ لأني لا اعرفها♥️

[ازهر عبد العزيز]

1 دقيقه مضت, mohammed hafs said:

ممكن حد يشير التكملة ديه ؟ لأني لا اعرفها

If MsgBox("هل تريد حفظ البيانات؟", vbInformation + vbYesNo, "رسالة تأكيد") = vbNo Then
Me.Undo
DoCmd.CancelEvent
Else
DoCmd.GoToRecord , , acNewRec
End If

 

[رولي]

شكرا جزيلا سأجربه

للأسف؛ تظهر نفس الرسالة 

[ازهر عبد العزيز]

1 دقيقه مضت, mohammed hafs said:

شكرا جزيلا سأجربه

للأسف؛ تظهر نفس الرسالة 

If MsgBox("هل تريد حفظ البيانات؟", vbInformation + vbYesNo, "رسالة تأكيد") = vbNo Then
Me.Undo
Else
DoCmd.GoToRecord , , acNewRec
End If

جرب الان 

[رولي]

شكرا جزيلا أخي لقد عمل بنجاح 

ولكن سؤال: رسالة الخطإ لم تكن تظهر من قبل رغم وجود الكود السابق؛ فلماذا ظهرت بعد ذلك؟ 

تم تعديل سبتمبر 19, 2020 بواسطه mohammed hafs
خطأ إملائي

[ازهر عبد العزيز]

3 دقائق مضت, mohammed hafs said:

شكرا جزيلا أخي لقد عمل بنجاح 

ولكن سؤال: رسالة الخطإ لم تكن تظهر من قبل رغم وجود الكود السابق؛ فماذا ظهرت بعد ذلك؟

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

تم تعديل سبتمبر 19, 2020 بواسطه ازهر عبد العزيز

[رولي]

اقتباس

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

لا، الموضوع دا لسة النهاردة، نفس نسخة الأوفيس

 

معذرة ممكن طلب آخر؟

[ازهر عبد العزيز]

1 دقيقه مضت, mohammed hafs said:

معذرة ممكن طلب آخر؟

صديقي محمد معذرة قوانيين المنتدى لاتسمح بذلك افتح موضوع جديد واضف طلبك وان شاء الله لا يقصر الاساتذة هنا 

[رولي]

اقتباس

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

تمام أخي شكرا جزيلا لك، وربنا يجعله في ميزان حسناتك❤️❤️❤️

[ازهر عبد العزيز]

الان, mohammed hafs said:

تمام أخي شكرا جزيلا لك، وربنا يجعله في ميزان حسناتك❤️❤️❤️

الشكر لله ,,,,

بالتوفيق اخي