@@@ مشكل كود في حدث قبل التحديث @@@

[nabilalibibo]

حدث لي مشكل عندما  قمت بوضع هذا الكود في حدث قبل التحديث لتعديل البيانات او عدم التعديل .

 

If MsgBox("? هل تريد حفظ البيانات بعد التعديل ", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then

Cancel = True

 

SendKeys "{ESC}"

 

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

وهذا المرفق بعد التعديل 

 

nabilemployer_kan2.rar

[Eng.Qassim]

بعد تعديل البيانات اليس المفروض ان تضغط زر (حفظ)؟

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

[nabilalibibo]

37 دقائق مضت, Eng.Qassim said:

بعد تعديل البيانات اليس المفروض ان تضغط زر (حفظ)؟

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

بارك الله فيك اخي على الرد 

لم اتمكن من التعديل على زر الحفظ اذا ممكن التعديل على الملف المرفق جزاك الله خير 

[Eng.Qassim]

لم اقم باي تعديل .. مجرد وضعت الكود في زر الحفظ..تحتاج ان تجعل بقية الازرار ظاهرة عند التراجع عن الحفظ

nabilemployer_kan2.rar

[nabilalibibo]

بارك الله فيك Eng.Qassim و جزاك الله كل خير 

ساقوم بالتعديل 

[nabilalibibo]

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

[nabilalibibo]

للرفع

[Eng.Qassim]

بالتاكيد .. في الحقول المنظمة يتم حفظها مباشرة في الجداول

استخدم الكود التالي عند الخروج وجرب ادخال سجلات جديدة

Private Sub cmdcols_Click()
If MsgBox("هل تريد حفظ البيانات", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then
    Cancel = True
    DoCmd.Close
Else
    DoCmd.Save
    DoCmd.Close
End If
End Sub

 

[nabilalibibo]

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

 

 

 

[Eng.Qassim]

اخي العزيز .. اذا كنت تريد عدم الحفظ التلقائي فيجب  اللجوء الى الحقول الغير منظمة .. لان الحقل المنظم يحفظ في السجل تلقائيا بمجرد الخروج من الحقل

[nabilalibibo]

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

If MsgBox("? هل تريد حفظ البيانات بعد التعديل ", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then

Cancel = True

SendKeys "{ESC}"

 

[kanory]

41 دقائق مضت, nabilalibibo said:

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

If MsgBox("? هل تريد حفظ البيانات بعد التعديل ", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then

Cancel = True

SendKeys "{ESC}"

 

جرب المرفق واعلمنا بالنتيجة ......

 

nabilemployer_kan2.rar

[nabilalibibo]

 استاذي الفاضل kanory نعم هذا هو المطلوب بالظبط جعله الله في ميزان حسناتك 

[kanory]

الحمد لله رب العالمين ....حياك الله اخي @nabilalibibo 

بالتوفيق ...