مساعدة في رسالة مسج بوكس

اخي الفاضل

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

هذا ملفك بعد التعديل

MessageBox.rar

ولكن يوجد به خطأ في الصيغة المطلوب تنفيذها لذا دعني اشرح لك الاجراء الصحيح مع مثال مرفق .

يجب ان يكون اجراء الرسالة بهذه الطريقة

1. يجب ان يكون الشرط او السؤال متوافق مع الاجابة

لان اجابة السؤال " هل تريد بالتأكيد رفض الاجراء والغاء العمل "

فتكون الاجابه موافق

2. او يكون السؤال بهذه الصيغة " هل تريد قبول الاجراء وتنفيذ العمل "

فتكون الاجابه الغاء الامر

مثال مرفق بعد تعديل الصيغة والاجراء

MessageBox_UP.rar

راجع هذا الرابط

/index.php?showtopic=85663

اختكم

زهره

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

الف الف الف

شكر لكِ استاذتنا القديرة

انا وضعت الرسالة في تنفيذ امر بحيث اذا حصل خطأ تلغي العمل

لكن الرسالة لم تقوم بألغاء العمل

ما السبب هل انا وضعتها غلط ام يلزمها تعديل حتى تتناسب مع المطلوب

ارسلت لكِ المرفق ارجو التعديل عليه

_____.rar

,,,,,,,

اشكرك اخي المبرمج 2003

لكن ماهو سسب عدم تحقيق الشرط في الرسالة في المسج بوكس

اخي الفاضل

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

دائما وابدا الاحظ عليك وضع هذا الكود في الرسائل مع انك لا تحتاج البه ابدا فدالة MsgBox تكفيك وتغنيك عن التصريح بإي عناصر اخرى يتم وضعها في الكود .

فإذا كان مجرد توثيق للكود الخاص بك وانك انت من قام بعمله فلا يوضع هنا بارك الله فيك بل يكون موقعه في مكان اخر تستطيع ان توثق قاعدة بيانتك كامله بما فيها الاكواد .

Dim dollar$
Dim reply
 dollar$ = "هل تريد بالتأكيد حذف هذه الحوالة"
 reply = MsgBox(dollar$, vbOKCancel, "حذف")

هذا هو الكود الصحيح بعد التعديل

Private Sub أمر28_Click()
If MsgBox("هل تريد بالتأكيد حذف الحوالة", vbInformation + vbOKCancel, "حذف ") = vbOK Then
If IsNull(DLookup("a", "السداد", "a=" & a)) Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "الحالي", acNormal, acEdit
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox ("انتهت العملية بنجاح")
DoCmd.SetWarnings True
Else
Me.Undo
End If
End If
End Sub

وهذا هو ملفك بعد التعديل

MessageBox2006.rar

اختكم

زهره

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

مشكوووووووووووورة

والله يعطيكي الف الف عافية

ويشهد الله اني ادعو لكي بظهر الغيب حتى ارد لكي قليل من الجميل

واشكركي على تحمل اخطائي لاني مبتدأ وكنت لا اعرف شيء في الاكسس سوى الاسم

تعلمت من خلال هذا المنتدى الرائع

اشكر الجميع القائمون على هذا المنتدى

البسيسي كتب:

اشكرك اخي المبرمج 2003

لكن ماهو سسب عدم تحقيق الشرط في الرسالة في المسج بوكس

انا دخلت الموضوع بالغلط بارك الله فيك

ورديت على موضوع ثاني في هذا الموضوع ولما رجعت اشوف الرد لقيته هنا قمت ومسحت الرد :D :D

لكن ما دام الاخت زهرة دخلت في الموضوع فلا تبتئس B) B)

ما شاء الله عليها ستعطيك الحل وانت تغني (h) (h)