النجاشي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 السلام عليكم ورحمه الله وبركاته احبتي الكرام عندي الكود التالي عند اغلاق النموذج عامل الكود وتظهر لي رساله الاكسس كما في الصوره كيف التخلص منها On Error Resume Next Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend شاكرين احبتي رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 مرحباً DoCmd.SetWarnings false DoCmd.SetWarnings true ضع الأمر بين هاتين الجملتين البرمجيتين . رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 5 دقائق مضت, Khalf said: مرحباً DoCmd.SetWarnings false DoCmd.SetWarnings true ضع الأمر بين هاتين الجملتين البرمجيتين . جربتها في بدايه الكود ونهايته ولكن مازالت تظهر الرساله رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 هذه القاعده المشكله بعد ما يتم تعبئه النموذج واعمل رجوع من زر رجوع تظهر الرساله رساله الحذف.accdb رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 اتفضل عند الاغلاق اضفMe.Requery On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend DoCmd.SetWarnings True Me.Requery اضف هذا رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 أخي الكريم ضع الأمر الخاص بالحذف بين الجملتين DoCmd.SetWarnings false q.delete DoCmd.SetWarnings true رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 2 دقائق مضت, Khalf said: أخي الكريم ضع الأمر الخاص بالحذف بين الجملتين DoCmd.SetWarnings false q.delete DoCmd.SetWarnings true اخي Khalf لازم بعد الامر Me.Requery جرب وشوف بنفسك رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 7 دقائق مضت, Khalf said: أخي الكريم ضع الأمر الخاص بالحذف بين الجملتين DoCmd.SetWarnings false q.delete DoCmd.SetWarnings true ممكن تعمله علي الكود اجرب 10 دقائق مضت, ابو ياسين المشولي said: اتفضل عند الاغلاق اضفMe.Requery On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend DoCmd.SetWarnings True Me.Requery اضف هذا نعم ممتاز لم تظهر الرساله ولكن يظهر لي لمحه السجلات محذوف كيف نتخلص منها رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 البرنامج لم يعرض أية رسالة عند النقر على زر التراجع و ذلك قبل أن أقوم بأية عملية تعديل . على أي حال الحمد لله على الوصول إلى مبتغاك و الشكر لـ @ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 1 دقيقه مضت, Khalf said: البرنامج لم يعرض أية رسالة عند النقر على زر التراجع و ذلك قبل أن أقوم بأية عملية تعديل . على أي حال الحمد لله على الوصول إلى مبتغاك و الشكر لـ @ابو ياسين المشولي عندما تكون بيانات موجود واردت ان اعمل تراجع تظهر الرساله بامكانك تدخل الموقع اي شي وتعبي النموذج وستلاحظ الرساله واستاذنا ابو ياسين ماقصر ربنا يعطيه العافيه حل الجزء الكبير من المشكله رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 30 دقائق مضت, Khalf said: البرنامج لم يعرض أية رسالة عند النقر على زر التراجع و ذلك قبل أن أقوم بأية عملية تعديل . على أي حال الحمد لله على الوصول إلى مبتغاك و الشكر لـ @ابو ياسين المشولي بارك الله فيك اخي Khalf 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 (معدل) اتفضل هل هذا ينفع On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True تم تعديل سبتمبر 30, 2018 بواسطه ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 الان, ابو ياسين المشولي said: بارك الله فيك اخي Khalf بارك الله فيكم جمعا احبتي لتعم الفائده لقد وضعت الكود بزر الرجوع بدل ما كان بحدث عند الاغلاق ووضعت عند الاغلاق هكدا Call أمر11_Click فصار تمام شاكرين لمجهودكم احبتي فعلا يابو ياسين عملت الحل ولكن بقي يوجع راسي ظهور محذوف بعد العمليه العكسيه الحمدلله صار تمام رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 شوف اخر كود ارسلته لك شغال ميه في الميه رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 1 دقيقه مضت, ابو ياسين المشولي said: شوف اخر كود ارسلته لك شغال ميه في الميه نعم ممتاز بارك الله فيك لكن بقت مشكله السجلات تظهر محذوف رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 30, 2018 مشاركة قام بنشر سبتمبر 30, 2018 شوف اخر كود ارسلته لك شغال ميه في الميه الان, ابو زاهر said: نعم ممتاز بارك الله فيك لكن بقت مشكله السجلات تظهر محذوف انا كلمك على هذا لم تشتاف كلمه محذوف On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 30, 2018 الكاتب مشاركة قام بنشر سبتمبر 30, 2018 4 دقائق مضت, ابو ياسين المشولي said: شوف اخر كود ارسلته لك شغال ميه في الميه انا كلمك على هذا لم تشتاف كلمه محذوف On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True لقد جربته احتمال يكون عندي مشكله بالاعدادات للاكسس علي كل حال الله يبارك فيك غلبتكم معي لقد عملته بزر الرجوع صار لم يظهر شي رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 1, 2018 مشاركة قام بنشر أكتوبر 1, 2018 لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Me.Refresh Wend DoCmd.SetWarnings True Me.Refresh 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 1, 2018 الكاتب مشاركة قام بنشر أكتوبر 1, 2018 18 ساعات مضت, ابو ياسين المشولي said: ارسلي الرقم السري انا عندي ميه في الميه 24 دقائق مضت, ابو ياسين المشولي said: لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Me.Refresh Wend DoCmd.SetWarnings True Me.Refresh ما زالت تظهر يالحيبيب شكلي بغلبك ههههههههههههه منتظرين واحد من الحبايب يجربه رابط هذا التعليق شارك More sharing options...
فقير ومشتري الدنيه بضحكتي قام بنشر أكتوبر 26, 2018 مشاركة قام بنشر أكتوبر 26, 2018 جرب هذا الكود الذي يلغي كل العمليات الخاصي بالاكسيس docmd.setwarning false رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.