+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170)
+--- الموضوع : [سؤال] كود تاكيد تغيير المدخلات بكومبس أكسس (/showthread.php?tid=26296)
كود تاكيد تغيير المدخلات بكومبس أكسس - سمير الجبالي - 30-08-18
السلام عليكم ورحمة الله وبركاته
بمشروع برنامج على أكسس يتم فيه إدخال معاملات وفق معطيات محددة .
يتم أحياناً بالخطأ تغيير المدخلات
وهذا الكود ليعطي رسالة تحذير أنه يتم التغيير
If MsgBox("أنت على وشك تغيير مدخل سابق " & vbCrLf & _
"لتأكيد الأمر اضغط على زر موافق , لإلغاء الأمر اضغط على زر إلغاء", _
vbInformation + vbOKCancel + vbMsgBoxRight, _
"تأكيد تنفيذ التغيير") = vbOK Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "رقم الوارد"
DoCmd.SetWarnings True
Else
End If
الرسالة تظهر عند وضع الماوس يالكومبس غيرت الحدث عند التغيير دون فائدة والمشكلة الأخرى الرسالة تظهر ولكن بالضغط على نعم أو إلغاء يتم التغيير ولا يستجيب أمر الإلغاء .
أرجو منكم أساتذتي العظام تصليح الكود كي لا يظهر إلا عند التغيير حقاً و عند الضغط على موافق يتم حفظ التغيير وعند إلغاء الأمر لا يتم الحفظ.
والزر المفعل هو موافق عند ضغط الانتر اعتقد انه يجب أن يكون الزر المفعل إلغاء . حيث عن ضغط انتر لا يتم التغيير و اضغط على تأكيد التغيير بالماوس .
.
.
.
لكم جزيل الشكر والامتنان
RE: كود تاكيد تغيير المدخلات بكومبس أكسس - elgokr - 04-09-18
وعليكم السلام ورحمة الله وبركاته
خى الفضل حتى تجعل من الجمع سهولة الرد
والمساعدة لما تريده
يفضل ان ترفق اعدة البيانات اذا كانت ما لديك
او نسخة تحكى ما تريده مع الكود المستخدم
حتى تمكن من يريد المساعدة من مراجعة الكود مع تكيد النتائج بعد التعديل عليه
حتى لا يتم وضع شرح فكري او نظرياً وهو لا يعلم ما الطريقة المستخدمة لديك
تحيات لك
وتمنياتى لك التويق