Alttaki kodu dener misin?
Private Sub Btn_ParcaTeklif_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE UrunData set temp=0, Adett='' where temp=-1 and Adett<>null"
Me.UrunData_alt_formu.Requery
Me.[Urun_Sorgu alt formu].Requery
DoCmd.SetWarnings True
End Sub