![Çözüldü](images/icons/cozuldu.png)
çözdüm kardeşim,emeğine sağlık,tşk.
(29/01/2012, 09:01)yunusotel yazdı: 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.
Me.Adisyontoplami = [frm_adisyon].Form![toplam]
kodunu sil.Form.Requery
Forms![Oda Kayıt]![ADİSYON TUTARI] = Me.Metin16
kodunu ekle.