(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