=DSum("[Nakit]";"T_01";"Clng([Tarih]) =" & CLng([Metin0]))
Üstteki kod metin kutusunun denetim kaynağına yazılınca çalışır, Vba kodu iseMe.Metin149 = Dsum ("[Nakit]", "T_01", "Clng([Tarih]) =" & CLng([Metin0]))
bu kodu formun geçerli olduğunda olayına yazmalısınız.