Kod:
Private Sub AKAramaGecmisi_Change()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE vaaz SET [sec] = 0"
If IsNull(Me.AKAramaGecmisi) Or Nz(Me.AKAramaGecmisi, "") = "" Then Exit Sub
Me.TxtAra.SetFocus
Me.TxtAra.Text = Trim(Me.AKAramaGecmisi)
DoCmd.SetWarnings True
End Sub