AccessTr.neT
Formda Toplama - 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ığı: Formda Toplama (/konu-formda-toplama--15492.html)

Sayfalar: 1 2 3


Formda Toplama - suleymanteber - 08/11/2012

Hayırlı akşamlar,
Kasiyer hareketleri için bir form yapmak istiyorum. Burada bir formda para birimlerini çarpmak bu sonuçları toplamak istiyorum.
Sonucu bir yerde kaçırıyorum. İlginize ve bilginize sunuyorum.
Saygılarımla


Cvp: Formda Toplama - Puletin - 08/11/2012

Function Toplam()
Me.Toplam_nakit = Me.[5 Toplam] + Me.[10 Toplam] + Me.[20 Toplam] + Me.[50 Toplam] + Me.[100 Toplam] + Me.[200 Toplam]
End Function

Private Sub Ctl5_tl_AfterUpdate()
Me.[5 Toplam] = Nz([5 tl], 0) * 5
Toplam
End Sub


Private Sub Ctl10_tl_AfterUpdate()
Me.[10 Toplam] = Nz([10 tl], 0) * 10
Toplam
End Sub


Private Sub Ctl20_tl_AfterUpdate()
Me.[20 Toplam] = Nz([20 tl], 0) * 20
Toplam
End Sub

Private Sub Ctl50_tl_AfterUpdate()
Me.[50 Toplam] = Nz([50 tl], 0) * 50
End Sub
Toplam

Private Sub Ctl100_tl_AfterUpdate()
Me.[100 Toplam] = Nz([100 tl], 0) * 100
Toplam
End Sub

Private Sub Ctl200_tl_AfterUpdate()
Me.[200 Toplam] = Nz([200 tl], 0) * 200
Toplam
End Sub


kolay gelsin


Cvp: Formda Toplama - suleymanteber - 08/11/2012

Sayın Puletin,
Çok Teşekkür ederim.
Bilginize Sağlık Saygılarımla


Cvp: Formda Toplama - suleymanteber - 08/11/2012

Sayın Puletin,
Bütün satırlara bilgi girişi olmayabiliyor. Sizin kodda toplam nakite gelinceye kadar değer değişmedi. Nasıl düzenleyebilirim


Cvp: Formda Toplama - ozanakkaya - 08/11/2012

Puletin'in eklediği kodlarda sadece Ctl50'de problem var, toplam end sub'un altına yazılmış, muhtemelen bunu düzeltmişsinizdir. Birde aşağıdaki kodu deneyin, fonksiyona recalc kodu ekledim.

Function Toplam()
Me.Toplam_nakit = Me.[5 Toplam] + Me.[10 Toplam] + Me.[20 Toplam] + Me.[50 Toplam] + Me.[100 Toplam] + Me.[200 Toplam]
Recalc
End Function

Private Sub Ctl5_tl_AfterUpdate()
Me.[5 Toplam] = Nz([5 tl], 0) * 5
Toplam
End Sub


Private Sub Ctl10_tl_AfterUpdate()
Me.[10 Toplam] = Nz([10 tl], 0) * 10
Toplam
End Sub


Private Sub Ctl20_tl_AfterUpdate()
Me.[20 Toplam] = Nz([20 tl], 0) * 20
Toplam
End Sub

Private Sub Ctl50_tl_AfterUpdate()
Me.[50 Toplam] = Nz([50 tl], 0) * 50
Toplam
End Sub


Private Sub Ctl100_tl_AfterUpdate()
Me.[100 Toplam] = Nz([100 tl], 0) * 100
Toplam
End Sub

Private Sub Ctl200_tl_AfterUpdate()
Me.[200 Toplam] = Nz([200 tl], 0) * 200
Toplam
End Sub

Private Sub Form_AfterInsert()
MsgBox ("deneme")
End Sub



Cvp: Formda Toplama - suleymanteber - 08/11/2012

Sayın ozanakkaya,
Her satıra değer girmem gerekiyor fakat bazen 100 tl veya 10 tl olmuyor ve bu değerlerin hepsini girmeden toplama yapmıyor.
Bunu yapabilirsem birde formdaki nakit alanına sonucu nasıl alabilirm.
Saygılarımla