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

(تمت الاجابة) إضافة اختيار (الغاء الأمر) في كود رسالة الحفظ


الردود الموصى بها

ا الأخوة الأعضاء المحترمين

السلام عليكم ورحمة الله وبركاته

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

بارك الله فيكم

SavePro.rar

تم تعديل بواسطه أيمن عبادي
رابط هذا التعليق
شارك

ألف شكر أخي محمد أيمن

نعم ـ هذا ما أريده .. ولكن

أريد عندما أضغط على زر Cancel لا يمسح البيانات الموجودة ...

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

السلام عليكم

في الحل الأخير عند النقر على زر نعم يتم حذف البيانات

والسبب انك وضعت خيارين فقط في الشرط 1- cancel = الخروج ، 2- نعم + لا = الحذف ( التراجع )

لحل المسألة اجعل نص الرسالة كمتغير ثم طبق الشرط على الازرار الثلاثة متفرقة

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

بالفعل أخي محمد أيمن ... عندما أضغط على الزر نعم فإنه ييحذف البيانات ...بانتظار التعديل... بوركتم

تم تعديل بواسطه أيمن عبادي
رابط هذا التعليق
شارك

إقتراح ...


Private Sub Command5_Click()

On Error Resume Next

Beep

Select Case MsgBox("هل ترغب بحفظ التعديلات ؟" & vbCrLf & _

"إضغط موافق للحفظ أوإضغط لا لعدم الحفظ أو إضغط الغاء الأمر.", _

vbInformation + vbMsgBoxRight + vbYesNoCancel, _

"تنبيـــه :  تعديل السجل")

Case vbYes

MsgBox "كود حفظ السجل"

Case vbNo

MsgBox "كود الغاء السجل"

Case Else

MsgBox "كود تجاهل الأمر "

End Select

End Sub

:welcomeani:

..........

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

أخي أبو آدم جزاك الله خيرا

ولكن أخي عند الضغط على أي زر من الأزرار الثلاثة .. فإنه يقوم بحفظ السجل !!!!!!؟؟؟؟

أرجو التعديل

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

الكود المقترح كان بدون كودات للخيارات

اليك تطبيقاً لما لديك

جربت وأظنه كافياً ... إن كنت قد أحسنت الفهم عنكم

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

..........

NA_SavePro3.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information