AccessTr.neT

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.

Bu şekilde düzenleyerek iskonto alanından çıktığım anda istediğim sonucu aldım. Teşekkür ederim.