Alttaki kodu dener misiniz?
Private Sub KarOrani_Change()
DoCmd.SetWarnings False
Me.Recalc
If IsNull(Me.ParcaTeklifKari.Value) Or Me.KarOrani.Value = "" Then
Else
DoCmd.RunSQL "UPDATE UrunData set ParcaTeklifKari=" & Me.KarOrani.Value & ""
End If
Me.UrunData_alt_formu.Requery
Me.[Urun_Sorgu alt formu].Requery
DoCmd.SetWarnings True
End Sub