الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل اخى الفاضل لتلافى رساله الخطأ عند ادراج فاتوره جديده قمت بوضع 0 للقيمه الافتراضيه للحقل sale_id ثم قمت بوضع الكود التالى فى حدث عند فقدان التركيز وهو ليس لى بل لاخ فاضل جزاه الله خيرا وقمت بتعديله واضافه اجزاء بسيطه عليه Dim x, z As Variant Dim rs As DAO.Recordset 'متيغر للفرعي و الرئيسي x = Me.details_Subform!sale_id z = sale_id 'تحديث Me.Requery Me.details_Subform.SetFocus Me.details_Subform.Requery 'بحث Set rs = Me.