تم النشر منذ 13 Jan 2018 السلام عليكم ورحمة الله طلبي هو كود لكل حالة ممايلي : 1- استبدال رسالة حذف السجل في النموذج برسالة أخرى غير الرسالة اللتي خاصة بالاكسس ( هل تريد حذف السجل ( نعم ) (لا) 2- استبدال رسالة تحديث حقل التاريخ برسالة غير الرسالة اللتي تصاحب استعلام التحديث لذلك الحقل ( هل تريد تحديث السجلات ( نعم ) (لا) 3- استبدل رسالة استعلام الحاق ( هل تريد ........ ( نعم ) ( لا ) ولكم جزيل الشكر .......... 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
قام بالرد منذ 7 Mar 2018 السلام عليكم ورحمة الله و بركاته تفضل Dim Msg, Style, Title, Help, Ctxt, Response, MyString 'مضمون الرسالة التي ترغب بظهورها Msg = "هل تريد تنفيذ ...... ?" ' نوع و طبيعة الخيار Style = vbYesNo + vbCritical + vbDefaultButton2 ' عنوان الرسالة Title = "MsgBox Demonstration" Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes. ' في حال كانم الجواب نعم Docmd.openquery "اكسب اسم الاستعلام هنا" Else ' في حال كان الجواب لا msgbox "تم إلغاء الامر " End If 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه