(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ış