اريد التعديل في الملف المرفق اي استبدال رسائل الاستلام برسائل انا احددها .
لكم تحياتي
استبدال رسائل الاستعلام
مغلق
ادخل على الكود ثم ضع هذا الكود قبل انطلاق كود الاستعلام
DoCmd.SetWarnings False
وبعد نهاية كود الاستعلام ضع هذا الكود
DoCmd.SetWarnings True
طبعا الكود الاول يلغي الرسائل التحذيرية والكود الثاني يفعل الرسائل التحذرية الاخرى
وانت تريد استبدال الرسائل من عندك فقط
ضع رسالتك التي تريد
بعد الكود الاول فقط اللي هو
DoCmd.SetWarnings False
سيصبح الكود هكذا
DoCmd.SetWarnings False
If MsgBox("انت على وشك تشغيل استعلام هل تريد تشغيله فعلا", _
vbExclamation + vbYesNo + vbDefaultButton2, _
"تحذير المبرمج2003") = vbYes Then
Dim stDocName As String
stDocName = "qary1"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
End Ifان شاء الله يكون هذا طلبك
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
اشكرك تم المطلوب بنجاح
هذا الموضوع مغلق.