[ تمت الإجابة ]عند ظهور رسالة الخطأ (كما في الصورة المرفقة) عند فتح النموذج أو التقرير

اخي الكريم تفضل هذا الكود

Private Sub Report_Open(Cancel As Integer)

On Error GoTo Err_Report_Open

'ضع الكود المسبب لهذه الرسالة هنا ثم بعد ظهورها ستظهر رسالة برقم الخطأ اكتبه مكان الرقم ادنا3270

Exit_Report_Open:

Exit Sub

Err_Report_Open:

MsgBox Err.Description

MsgBox Err.Number

Const conPropertyNotFound = 3270

If Err = conPropertyNotFound Then

DoCmd.Quit

Resume Exit_Report_Open

End If

End Sub

مشكور اخي العزيز

لتوضيح الطلب ارفقت المثال المرفق

حيث يوجد النموذج A , وفيه الـ aa) Lable) قد قمت بحذفه متعمداً

وهذا يسبب عند فتح النموذج ظهور رسالة الخطأ المذكورة .

هنا , وفي مثل هذه الحالة اريد كودا يقوم باغلاق القاعدة .

مشكور مرة اخرى

Compile error.rar

اخي الكريم جرب هذا الكود

Option Compare Database

Option Explicit

Private Sub Form_Open(Cancel As Integer)

On Error GoTo Err_Form_Open

Me!aa.Height = 1701

Me!aa.Width = 3402

Exit_Form_Open:

Exit Sub

Err_Form_Open:

MsgBox Err.Description

MsgBox Err.Number

Const conPropertyNotFound = 2465

If Err = conPropertyNotFound Then

DoCmd.Quit

Resume Exit_Form_Open

End If

End Sub

اخي الفاضل : طارق العيد

بارك الله بك على المشاركه

وجزاك الله كل خير

اخي الفاضل ابو منتظر

تفضل الملف بعد التعديل

حيث تم تعديل الكود الى التالي

Private Sub Form_Open(Cancel As Integer)

Const conPropertyNotFound = 2465
On Error GoTo Err_Form_Open

Me!aa.Height = 1701
Me!aa.Width = 3402

Err_Form_Open:
If Err = conPropertyNotFound Then
DoCmd.Quit
End If
End Sub

لو قمت بإضافة مربع النص او التسميه aa فلن يتم انهاء القاعدة

وعدى ذلك سيتم انهاء القاعدة بالكامل

بالتوفيق

اكرمتِ وأتممتِ وبارك الله فيك يا أستاذتنا الفاضلة