اذهب الي المحتوي
أوفيسنا

مشكلة مع الامر 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 في الرسالة لا يقوم بالتراجع بل يتم حفظ البيانات

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

اخي العزيز

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

مع تحياتي,,,

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

اخي العزيز

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

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

مع تحياتي,,,

رابط هذا التعليق
شارك

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

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



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

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

Important Information