Formül Sonuçlarını Tabloya Kaydetme

16/09/2012, 01:16

kurt61

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.
16/09/2012, 01:29

Kur@l

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

16/09/2012, 17:38

kurt61

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.
FORMÜL SONUÇLARINI TABLOYA KAYDET.rar
20/09/2012, 14:18

kurt61

(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
20/09/2012, 23:09

ozanakkaya

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
27/10/2012, 07:43

benremix

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

Saygılar...