ضع هذا الكود تحت الزر .....
Me.ID.SetFocus
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO فرعى ( ID, [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس ) SELECT الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));"
DoCmd.RunSQL "DELETE الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));"
DoCmd.SetWarnings True
Me.Requery