كيف يمكن اخفاء رسالة الخطاء tdbgrid

جرب

On Error Resume Next

شكرا اخوي

حاجرب الكود

بس تقفا السؤال التالي اعتقد سهل للعنده خبرة

انا لوتمكنت من تحميل الامثلة عن طريق الفيجوال كان تسهلي الامور كثير في معرفة الفيجوال

لان الشباب الله يجزيهم خير ما قصروا في ارسال امثلة للتوضيح

ارجو من له فكرة عن السؤال الثاني لايتردد ترى يفك ضيقة لاخوه

الشكر لله ثم لك اخي matrix 2002 ثم الشكر للجميع

والله من وراء القصد

'in the general section

Dim updateFlag As Boolean

'في بطن الرساله في BeforeUpdate ضع

updateFlag = True

مثال:

if tdbgrid1.text="" then

msgbox "..."

updateFlag = True

end if

'في Error Event ضع:

If updateFlag Then ' Error triggered in BeforeUpdate

Response = 0 ' Don't display default message

updateFlag = False ' Clear flag for next update

End If