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

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

قام بنشر (معدل)

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

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

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

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

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