Maalesef durum değişmedi aynı şekilde çalışıyor. İçine girip tıklayarak tekrar seçmek gerekiyor.

Private Sub Tarih_TXT_AfterUpdate()



Me.HesapTuru_CBO.SetFocus



Me.TF_HesapHareketleriGiderAF.Requery

Me.TF_HesapHareketleriGelirAF.Requery



Me.GiderToplami_TXT = Dsum ("[CikanTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & " And [HesapTuru]='" & [HesapTuru_CBO] & "'")

Me.GelirToplami_TXT = Dsum ("[GirenTutar]", "T_HesapHareketleri", "[Tarih]= " & CLng([Tarih_TXT]) & " And [HesapTuru]='" & [HesapTuru_CBO] & "'")



Tarih_TXT.SetFocus



End Sub