رسالةMessage Box بها خيارين YesوNo

[salem993]

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

يوجد لدي نموذج به زر امر وضعت به حدث عند الضغط عليه

() Click _امر42 Private Sub

Me.contrul_no = contrul

End Sub

اريد ان اضع رساله تاكيد قبل اجراء الحدث نعم او لا بحيث نعم تنفذ باقي الحدث

والاختيار الاخير لا يحدث اي اجراء

والف شكر للجميع.

تقبلوا تحياتي.

[biskra]

() Click _امر42 Private Sub 
Dim intResponseToMsgBox As Integer
    intResponseToMsgBox = MsgBox("أكتب هنا الرسالة التي تريد أن تظهر لك", vbOKCancel)
    If intResponseToMsgBox = vbOK Then
Me.contrul_no = contrul
End Sub

جرب هذا الكود ففي حالة الموافقة سوف ينفذ الاٍجراء و في حالة الرفض لا ينفذ

[biskra]

السطر الأول من الكود تغير و لا أعرف السبب

() Click _امر42 Private Sub

[مصلح الحريصي]

الله يعطيك العافية أخي biskra على الرد الجميل

من ميزة البرمجة وجود أكثر من طريقة ولكي نلم بأغلب الطرق نحاول دائماً المشاركة في الموضوع لنحصل في الأخير على أكثر الطرق.

طريقة أخرى أيضاً

في حدث عند ضغط زر الأمر

If MsgBox(" أكتب هنا الرسالة التي تريد أن تظهر للمستخم", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "أكتب هنا عنوان مربع الرسالة") = vbYes Then
أكتب هنا الأوامر التي تريد من البرنامج تنفيذها إذا أختار المستخدم زر موافق
Else
أكتب هنا الأوامر التي تريد من البرنامج تنفيذها إذا أختار المستخدم زر لا
End If

[salem993]

كلمة شكر قليله في حقكم جزاكم الله الف خير ونفع بكم الامه.

تقبلوا تحياتي.