30-08-18, 06:20 PM
السلام عليكم ورحمة الله وبركاته
بمشروع برنامج على أكسس يتم فيه إدخال معاملات وفق معطيات محددة .
يتم أحياناً بالخطأ تغيير المدخلات
وهذا الكود ليعطي رسالة تحذير أنه يتم التغيير
If MsgBox("أنت على وشك تغيير مدخل سابق " & vbCrLf & _
"لتأكيد الأمر اضغط على زر موافق , لإلغاء الأمر اضغط على زر إلغاء", _
vbInformation + vbOKCancel + vbMsgBoxRight, _
"تأكيد تنفيذ التغيير") = vbOK Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "رقم الوارد"
DoCmd.SetWarnings True
Else
End If
الرسالة تظهر عند وضع الماوس يالكومبس غيرت الحدث عند التغيير دون فائدة والمشكلة الأخرى الرسالة تظهر ولكن بالضغط على نعم أو إلغاء يتم التغيير ولا يستجيب أمر الإلغاء .
أرجو منكم أساتذتي العظام تصليح الكود كي لا يظهر إلا عند التغيير حقاً و عند الضغط على موافق يتم حفظ التغيير وعند إلغاء الأمر لا يتم الحفظ.
والزر المفعل هو موافق عند ضغط الانتر اعتقد انه يجب أن يكون الزر المفعل إلغاء . حيث عن ضغط انتر لا يتم التغيير و اضغط على تأكيد التغيير بالماوس .
.
.
.
لكم جزيل الشكر والامتنان
بمشروع برنامج على أكسس يتم فيه إدخال معاملات وفق معطيات محددة .
يتم أحياناً بالخطأ تغيير المدخلات
وهذا الكود ليعطي رسالة تحذير أنه يتم التغيير
If MsgBox("أنت على وشك تغيير مدخل سابق " & vbCrLf & _
"لتأكيد الأمر اضغط على زر موافق , لإلغاء الأمر اضغط على زر إلغاء", _
vbInformation + vbOKCancel + vbMsgBoxRight, _
"تأكيد تنفيذ التغيير") = vbOK Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "رقم الوارد"
DoCmd.SetWarnings True
Else
End If
الرسالة تظهر عند وضع الماوس يالكومبس غيرت الحدث عند التغيير دون فائدة والمشكلة الأخرى الرسالة تظهر ولكن بالضغط على نعم أو إلغاء يتم التغيير ولا يستجيب أمر الإلغاء .
أرجو منكم أساتذتي العظام تصليح الكود كي لا يظهر إلا عند التغيير حقاً و عند الضغط على موافق يتم حفظ التغيير وعند إلغاء الأمر لا يتم الحفظ.
والزر المفعل هو موافق عند ضغط الانتر اعتقد انه يجب أن يكون الزر المفعل إلغاء . حيث عن ضغط انتر لا يتم التغيير و اضغط على تأكيد التغيير بالماوس .
.
.
.
لكم جزيل الشكر والامتنان