خطا عند الغاء الاستعلام

اخي الفاضل

استخدم هذا الكود مع الكود الخاص بك

On Error GoTo ErrorHandler
 
'ضع الكود الخاص بك هنا
 
Exit_ErrorHandler:
Exit Sub
 
Err_ErrorHandler:
    If Err.Number = 2001 Then
       Resume Next
    Else
    "Error " & err & ":" & err.description
    resume next
End If

اسف انا المخطئ

غلطت وحطيت الكود خاطئ

بس برضو في مشكلة 

    "Error " & err & ":" & err.description

هذا السطر يقولي غلط فيه

يا اخوان اريد حل اعتمد عليكم بعد الله في ايجاد حل

اخي الفاضل

قول آمين إن الله يهديك 

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

او على اقل تقدير ضع لنا الكود الخاص المستخدم عند فتح الإستعلام

عموما جرب هذا الكود

On Error GoTo ErrorHandler
 
'ضع الكود الخاص بك هنا
 
Exit_ErrorHandler:
Exit Sub
 
Err_ErrorHandler:
    If Err.Number = 2001 Then
       Resume Next
    End If