kdv dahil tutarı kod ile textbox a yazma

[sdegirmenci]

Ekteki dosyamda Form üzerinde, " gelişhariç" kutusuna tutar yazıldığında kdv dahil tutarı "gelişdahil" kutucuğuna otomatik olarak yazsın, Miktar yazıldığında "gelişdahil" x "miktar" tutarını "toplamdahil kutusuna yazsın. Bu konuda yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[Korhan Ayhan]

Merhaba,

"gelişhariç" nesnesinde yaptırdığınız hesaplama koduna aşağıdaki satırı ekleyin.

    gelişdahilgrş = Format(Replace(gelişdahilgrş, ".", ","), "#,##0.00")

"toplamdahil" nesnesi içinde aşağıdaki kodu deneyin.

Private Sub miktarıgrş_Change()
    On Error Resume Next
    toplamdahilgrş = miktarıgrş * CDbl(gelişdahilgrş)
    toplamdahilgrş = Format(Replace(toplamdahilgrş, ".", ","), "#,##0.00")
End Sub

 

[sdegirmenci]

Değerli Korhan Hocam ,
İlginize çok teşekkür ederim. Yazdığınız kodu uyguladım, kuruş olarak ayırdı. Tekrar teşekkür ederim. Hayırlı akşamlar.