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