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