Kode VBA Untuk Menghitung Jumlah Uang Currency

Option Compare Database

'kode ini untuk dijalankan saat tombol Hitung di klik
Private Sub cmdHitung_Click()

'mengubah type data nilai uang1 sebagai keuangan
Dim uang1 As Currency

'mengubah type data nilai uang2 sebagai keuangan
Dim uang2 As Currency

'mengubah type data nilai jumlahUang sebagai keuangan
Dim jumlahUang As Currency

'menyatakan bahwa varibel nilai uang1 diambil dari textbox uang1
uang1 = txtUang1.Value

'menyatakan bahwa varibel nilai uang2 diambil dari textbox uang2
uang2 = txtUang2.Value


'rumus untuk menghitung jumlah uang
jumlahUang = uang1 + uang2

'menampilkan hasil perhitungan rumus uang ke textbox jumlah uang
Me.txtJumlahUang = jumlahUang


End Sub

'kode ini dijalankan ketika form di load/di buka
Private Sub Form_Load()

'set textbox uang1 dengan format keuangan, sehingga muncul Rp
Me.txtUang1.Format = "Currency"

'set textbox uang2 dengan format keuangan, sehingga muncul Rp
Me.txtUang2.Format = "Currency"

'set textbox jumlahUang dengan format keuangan, sehingga muncul Rp
Me.txtJumlahUang.Format = "Currency"


End Sub