Private Sub Form_Current()
'If Not IsNull(Me.Cıkıstarihi) Then
'MsgBox ("deneme")
'End If
Call KutuRenk
Me.Adisyontoplami = [frm_adisyon].Form![toplam]
End Sub

Me.Adisyontoplami= [frm_adisyon].Form![TOPLAM] sevgili Sled hocam formda boş kayıt atmasının nedeni yukarıda yazmış olduğumuz kod,bu kodu kaldırdığımda normale dönüyor adisyon alt formundaki toplamı forma aktarmanın başka bir yolu varmı veya nasıl düzeltebilirim.