Access de kod yazarak toplama işlemi

[mlc]

Selam Arkadaşlar,
Ben oluşturduğum formumun üzerinde ki alanların toplamını toplam aldıracağım metin kutusunun denetim kaynağına Alan1+Alan2+Alan3+Alan4 şeklinde yazarak toplatabiliyorum.Fakat ben bunları kod yazarak yapmak istiyorum nasıl yapabilirim. Yani bu alanları toplayacak sonucu Alan5'e yazacak.
Ben bu şekilde bir kod yazdım ama toplamadı.

Private Sub Form_Current()
Dim AkbankToplam, Toplam As Long
AkbankToplam = Nz(Me.Metin41) + Nz(Me.Metin43)+ Nz(Me.Metin45)
If AkbankToplam > 0 Then
Me.Metin115 = Toplam
End If
End Sub

Yardımcı olursanız çok sevinirim.

 

[attila52]

kod ile toplama

formun üzerine bir buton ekle ve adına Kaydet de
sonra tıkladığında kodunu yazıver


Private Sub Kaydet_Click()
Dim AkbankToplam, Toplam As Long

'önce formun üzerindeki verileri yenile
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

'aşağıdaki işlemleri gerçekleştir

AkbankToplam = Nz(Me.Metin41) + Nz(Me.Metin43)+ Nz(Me.Metin45)
If AkbankToplam > 0 Then
Me.Metin115 = Toplam

End If
End Sub

 

[mlc]

Selam,

Atİlla52 Çok TeŞekkÜr Ederİm Bİraz GeÇ Oldu Ama Yil Sonu YaklaŞmasindan Dolayi Anca Bakabİldİm. Kodu DÜzeltİp GÖndermİŞsİnİz.