AccessTr.neT
Formül Sonuçlarını Tabloya Kaydetme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formül Sonuçlarını Tabloya Kaydetme (/konu-formul-sonuclarini-tabloya-kaydetme.html)



Formül Sonuçlarını Tabloya Kaydetme - kurt61 - 16/09/2012

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


Cvp: Formül Sonuçlarını Tabloya Kaydetme - Kur@l - 16/09/2012

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




Cvp: Formül Sonuçlarını Tabloya Kaydetme - kurt61 - 16/09/2012

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



Cvp: Formül Sonuçlarını Tabloya Kaydetme - kurt61 - 20/09/2012

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


Cvp: Formül Sonuçlarını Tabloya Kaydetme - ozanakkaya - 20/09/2012

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



Cvp: Formül Sonuçlarını Tabloya Kaydetme - benremix - 27/10/2012

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

Saygılar...