مشكلة مع الامر Undo

[sayed fox]

السلام عليكم و رحمة الله و بركاته

لدي نموذج رئيسي و نموذج فرعي له و يوجد زر حفظ

و هو ياخد الكود الاتي

DoCmd.SetWarnings False

Dim strMsg As String, strTitle As String

Dim strMsgNo As String, strTitleNo As String

strMsg = "هــل تريـــد فعـــلاً اتمـــام عمــلية الحفـــظ"

strTitle = "حفـــظ"

If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton1, strTitle) = vbNo Then

Me.Undo

Else

DoCmd.GoToRecord , "", acNewRec

End If

المشكلة عند الضغط على زر no في الرسالة لا يقوم بالتراجع بل يتم حفظ البيانات

اي انه في كلتا الحالتين يتم الحفظ

ارجو حل هذه المشكلة

[جهراوي الكويت]

اخي الفاضل .. الكود صحيح .. وليس فيه أخطاء

وقد جربته بنفسي .. لذا اانصحك

اعمل نموذج جديد..

والصق فيه الكود المرفق وحذف السطر الاول ( الرسالة )

وجرب ... وانظر ماذا تري ..

اخوك .. جهراوي الكويت

[منتصر الانسي]

اخي العزيز

اعتقد ان هذا الكود يعتمد على وقت تنفيذه اي انه يجب ان تضغط الزر وانت مازلت في نفس السجل المعدل ولم تنتقل الى السجل التالي او اي سجل اخر جرب على هذا الاساس وتأكد.

مع تحياتي,,,

[sayed fox]

شكرا اخواني على تعاونكم

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

اما بالنسبة للنماذج المستمرة او الفرعية فان الكود لا يعمل من اساسه

هل من حل لهذه المشكلة

[منتصر الانسي]

اخي العزيز

بردك هذا اثبت ماكنت اشك به فكما وضحت لك في ردي السابق يجب ان تضغط زر الحفظ قبل ان تخرج من السجل الذي قمت بتعديله حيث انك بمجرد انتقالك الى سجل اخر يقوم اكسس بعملية الحفظ التلقائي ولهذا فانه نجح معك في النماذج الفردية كونك تبقى في نفس السجل "جرب تعدل بيانات النموذج الفردي ثم انتقل الى سجل اخر بعجلة الماوس والعودة الى نفس السجل ستلاحظ بانه قد تم الحفظ التلقائي واصبح الكود لا يعمل"

ارجو ان اكون قد وضحت لك الفكرة .

مع تحياتي,,,