Doğru anlamışsınız.

(11/01/2012, 18:40)yunusotel yazdı: Doğru anlamışsınız.

Biraz zor oldu ama.

Uyguladınızmı

(11/01/2012, 10:13)sledgeab yazdı: Formun geçerli olduğunda olayına

Me.ADİSYON_TUTARI = [frm_adisyon].Form![TOPLAM]

Kodu ekle.

Sn.sledgeab hocanın mesajını incelerseniz
Oda Kayıt Formunun Geçerli Olduğunda olayına eklemenizi yazmış

Private Sub Form_Current()

'If Not IsNull(Me.ÇIKIŞ_TARİHİ) Then

'MsgBox ("deneme")

'End If

Call KutuRenk

End Sub

Yukarıdaki kod bloğu içine olacak yani
Sizin örneğinizde

Private Sub ADİSYON_TUTARI_BeforeUpdate(Cancel As Integer)

Me.ADİSYON_TUTARI = [frm_adisyon].Form![TOPLAM]

End Sub

Şeklinde uygulanmış

Hocam form üzerinde uygularmısınız rica etsem.

Formunuz bende hatalı açıldığı için uygulamanzı düzenleyip eklemedim.
Yukarıda verdiğim kodun sonuna eklemeyi deneyin.