the viper كتب :ضع شرط
PHP كود :
if text1.text="" then
text1.text=0
end if
ويمكن وضع الكود هذا على اي تكست لاتحط له قيمة
ان شاء الله يتشغل معك الكود تمام
لو سمح لي الأخ the viper بتعديل بسيط علي الكود السابق
if text1= trim "" then
text1="0"
end if
لاستبدال جميع الحقول الفارغة بصفر نستخدم الكود
كود :
Dim C As Control
For Each C In Me
If TypeOf C Is TextBox Then
if C.Text =trim("") then
C.Text =0
end if
end if
Next C
اخي الكريم المشاكل التي تذكرها تدل على ان هذا الحقل هو حقل المفتاح الرئيسي لو كان هكذا الغي رمزالمفتاح من على هذا الحقل وقوم بعمل حقل رقم تلقائي وجعله حقل اساسي ولو الموضوع فيه مشكله بالنسبه لك ارفع مثالك للتعديل عليه
بالتوفيق
eng كتب :ضع الكود التالي في زر الحفظ اول سطر
كود :
On Error Resume Next
مشكور أخوي eng تم حل المشكلة يعطيك العافية ماقصرت