منع رسالة واستبدالها

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

وبإمكانك الاستفادة مما في الرابط التالي :

http://arabteam.nicmatic.com/vb/showthread...&threadid=10966

لكن ما يهمني هنا فقط هو استبدال الرسالة

فكيف اضع رسالة بديلة عنها

وشكرا لتعاونك معي

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

ضع جملة

on error go to errorsub

و فى نهاية الكود ضع

errorsub:

MsgBox Str(Err.Number) + Err.Description

و نفذ لأول مرة حتي

تعرف رقم الخطاء

و بعد ذلك

عندما تعرف الرقم و ليكن 9999 مثلا

On Error GoTo errsub

errsub:

If Err.Number = 9999Then

MsgBox " errror mesage! ", 64, "messag title"

end if