الغاء رسائل اكسس الافتراضية

السلام عليكم

اخي العزيز

اذهب الى الكود ثم انزل الى السطور الاخيرة من الكود ، سوف تجد الكود المشابه لهذا الكود :

   MsgBox Err.Description

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

او حذف هذا السطر نهائيا .

ولمزيد من كتابة الرسائل بنفسك ، يمكنك استخدام هذا البرنامج

msgbuilder.zip

الاخوةالاعزاء الف شكر لكم ولكن ليس هذا المطلوب ارجو التكرم بمشاهدة المثال المرفق واستعراض الاعطال من النموذج Main هنا تجدون رسالة اولى انا وضعتها ورسالة ثانية تفيد بانه تم الغاء اجراء فتح النموذج انا اريد منع ظهور الرسالة الثانية وتقبلوا تحياتي

db1.zip

السلام عليكم

Private Sub ÃãÑ0_Click()
On Error GoTo Err_ÃãÑ0_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmFaultsNotRepair"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ÃãÑ0_Click:
    Exit Sub

Err_ÃãÑ0_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ0_Click

End Sub

انظر في اسفل القائمة ستجد

MsgBox Err.Description

احذف السطر وترتاح من الرساله الثانية

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

db122.zip

انا عاجز عن الشكر ولكن ما لو لم يكن هذا السطر موجود اصلاً فلو تم وضع الكود في حدث ( قبل التحديث) حينها لن يكون هذا السطر موجود فهل هناك طريقة اخرى واشكركم مرة اخرى والله يجعل جهودكم في موازين حسناتكم

بالاضافة الى ما تفضل بع الاخوة يمكنك ايضا تكملة تنفيذ الاجراء متجاهلاً أي خطا قد يصدر باضافة التعليمة في بداية الكود ، ولكن كن حذرا فانه سوف يتم تجاهل كافة الاخطاء التي تقع في الاجراء مما قد يؤئر على سلامة الاجراء

On Error Resume Next