(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.