+- 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ığı: Vba Hesaplama Formülü Hakkında (/konu-vba-hesaplama-formulu-hakkinda.html)
Vba Hesaplama Formülü Hakkında - Oğuz Türkyılmaz - 16/01/2019
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
Cvp: Vba Hesaplama Formülü Hakkında - ozanakkaya - 16/01/2019
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.
Cvp: Vba Hesaplama Formülü Hakkında - Oğuz Türkyılmaz - 16/01/2019
(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.
Bu şekilde düzenleyerek iskonto alanından çıktığım anda istediğim sonucu aldım. Teşekkür ederim.