اذا لم يعمل الزر استبدل الكود الموجود خلفه بهذا :
DoCmd.RunSQL "UPDATE ta2, qry1 SET ta2.[تاريخ الانتهاء] = [qry1].[تاريخ الانتهاء], ta2.[رقم الفترة] = [qry1].[رقم الفترة] " & vbCrLf & _
"WHERE (((ta2.[no])=Int([qry1].[no])))"
الامر هنا مباشر بدون وسيط