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