تغيير الرسالة

up

آرجو من لدية أية معلومة يفيدني به مشكوراً

فى بداية الكود

ضع

 On Error GoTo errsub

و فى نهايته

قم بتعريف أرقام الأخطاء و إعطاء الرسائل التي تريد

مثل

errsub:

  'MsgBox Str(Err.Number) + Err.Description

  'Resume Next



  IF Err.Number = 3011 Then

    M = " The data table : " + MyTab + " is not available !" + Chr(10) + Chr(13) + "Please check the distination table"

    MsgBox M, 16, "Missing Data Table "

  ElseIf Err.Number = 3024 Then

    M = " The Database Source File : " + pathf + Chr(10) + Chr(13) + " is not available !" + Chr(10) + Chr(13) + "Please check the Source Database Name and Location"

    MsgBox M, 16, "Missing Data Table "

  End If

 ' Resume Next

  

End Function

, هاتين الرسالتين ، حال عدم وجود أحد الجداول ، أو حال عدم وجود ملف الداتا نفسه

مع تحياتي

الأستاذ / محمد طاهر

شكراً جزيلاً لك

وسوف أقوم بتجربة الكود