AccessTr.neT

Tam Versiyon: Vba Hesaplama Formülü Hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar. Aşağıdaki kırmızı kodla hesaplama yaptırdığım ödeme tutarı değerinden 3 adet farklı metin kutusundan girilecek değerlerle txtKalan Değerini hesaplatmak istiyorum siyah alandaki formülü nasıl revize etmeli ve hangi olayın yordamına yazmalıyım.Yardımlarınız için Teşekkür ederim.

Private Sub txtİskonto_Exit(Cancel As Integer)


Me.txtOdemeTutari.Value = Me.txtHesapToplami * ((100 - Me.txtİskonto) / 100)

End Sub

Private Sub txtKalan_AfterUpdate()

Me.txtKalan.Value = txtOdemeTutari - txtNakit - txtKrediKarti - txtYemekCeki

End Sub
Sub HesaplamaYap()

Me.txtOdemeTutari.Value = Me.txtHesapToplami * ((100 - Me.txtİskonto) / 100)
Me.txtKalan.Value = txtOdemeTutari - txtNakit - txtKrediKarti - txtYemekCeki
End Sub

Şeklinde kod ekleyin, txtNakit, txtKrediKarti txtYemekCeki şeklindeki hesaplamada bulunan metin kutularının güncelleştirme sonrasında olayına

call HesaplamaYap

kodu ekleyin.
(16/01/2019, 17:52)ozanakkaya yazdı: [ -> ]Sub HesaplamaYap()

Me.txtOdemeTutari.Value = Me.txtHesapToplami * ((100 - Me.txtİskonto) / 100)
Me.txtKalan.Value = txtOdemeTutari - txtNakit - txtKrediKarti - txtYemekCeki
End Sub

Şeklinde kod ekleyin, txtNakit, txtKrediKarti txtYemekCeki şeklindeki hesaplamada bulunan metin kutularının güncelleştirme sonrasında olayına

call HesaplamaYap

kodu ekleyin.
[Resim: do.php?img=8704]
Bu şekilde düzenleyerek iskonto alanından çıktığım anda istediğim sonucu aldım. Teşekkür ederim.
[Resim: do.php?img=8705]