الامر الذي وضعته لك في الكود اسرع في التنفيذ من الامر اللي انت وضعته ، ولكن عندك خطأ في طريقة تنفيذ الامر ، ويجب عليك الرجوع الى ملف المساعدة Help في الاكسس لمعرفة طريقة عمل هذه الاوامر   خليني اضع لك الكود بمسمياتك ، private sub ....BeforUpdat(... dim Counter as integer 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "clndtail", "[اسم الحقل في الجدول]='" & me.[نص57] & "'") 'اذا كان نوع الحقل في الجدول، رقم Counter= dcount ("*", " clndtail", "[اسم ال