Formül Sonuçlarını Tabloya Kaydetme

Arkadaşlar;
Form üzerinde formül içeren verileri tabloya kaydetmesini istiyorum (kısmen yaptım), ekteki örneği düzeltip gönderebilirseniz çok memnun olurum, teşekkürler.

Aşağıda ki kodu Dener misiniz? Sanırım istediğiniz gibi olacaktır.

Option Compare Database



Private Sub HedefNufus_BeforeUpdate(Cancel As Integer)

'On Error Resume Next

Me.HedefNufus = ([YillikHedefNufus]) / 12

Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100

End Sub

Private Sub Form_Current()

'On Error Resume Next

Me.HedefNufus = ([YillikHedefNufus]) / 12

Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100

End Sub

Sayın Kur@l Allah sizlerden razı olsun, göndermiş olduğunuz kodu uyguladım, sorunsuz çalışıyor. Bana zaman ayırdığınız için çok teşekkür ederim, çok mutlu oldum sağ olasın.
Diğer arkadaşlar da yararlanır düşüncesiyle örnek dosyayı siteye yüklüyorum.

(16/09/2012, 01:29)Kur@l yazdı: Aşağıda ki kodu Dener misiniz? Sanırım istediğiniz gibi olacaktır.

Option Compare Database



Private Sub HedefNufus_BeforeUpdate(Cancel As Integer)

'On Error Resume Next

Me.HedefNufus = ([YillikHedefNufus]) / 12

Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100

End Sub

Private Sub Form_Current()

'On Error Resume Next

Me.HedefNufus = ([YillikHedefNufus]) / 12

Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100

End Sub

Programda hatalar çıkmaya başladı, örneğin formül sonucunda hesaplanan değer tabloya yazılmamaya başladı. Ayrıca tablo ve sorgular da yapılan veri girişleri hesaplanmıyor, kayıt gezinti tuşları çalışmıyor. Kayıtlar silinebilmeli, tablo verilerinde yapmış olduğum değişiklikler hesaplanabilmeli. Yardımlarınızdan dolayı sizlere çok teşekkür ederim

Kodları aşağıdakiler ile değiştirip deneyebilir misin ?

Option Compare Database





Private Sub AsiSayisi_AfterUpdate()

Me.Oran = ([AsiSayisi] / [HedefNufus]) * 100

End Sub





Private Sub YillikHedefNufus_AfterUpdate()

Me.HedefNufus = ([YillikHedefNufus]) / 12

End Sub

Kurt61 Ozan hocamın kodları deneyebildiniz mi? Lütfen geri bildirimde bulununuz.

Saygılar...