كيف التخلص من رسالة الخطأ

استخدم كود تتبع الاخطأ كالتالي

'بداية معالج الخطأ
On Error GoTo ErrHandler


'هنا يوضع الكود

'إنهاء تتبع الأخطاء والخروج من الإجراء

  Exit Sub
ErrHandler:
  Dim strErr As String
  strErr = "Error " & Err.Number & " " & Err.Description 
  MsgBox strErr, vbCritical + vbOK, "Error message"

والحل الأخر .. أن تصلح الخطأ واعتقد ان الخطأ عندك أنك قمت بوضع اداوت في الفورم .. وبعدها اصبحت غير موجود عليه

ممكن تقف على الفورمة 1

ثم تذهب الي قائمة ملف

وتعمل حفظ بإسم

واحفظها بنفس الإسم

وجرب كدة

أشكركم أخواني على تفاعلكم

الحمد لله عرفت المشكلة وحليتها

والسبب هو نوع الخط المستخدم في الفورم قمت بتغيير نوع الخط وصار كله تمام