Fungsi Terbilang Di Microsoft Access

Terima kasih atas tanggapan yang menyenangkan di artikel Membuat Fungsi Terbilang di Microsoft Excel, melalui email atau komentar. Lalu di halaman ini, ada permintaan atas artikel pembuatan fungsi terbilang di Microsoft Access, kebetulan sih saya pernah membuat proyek dengan Access yang menyertakan fungsi terbilang tersebut di dalamnya (jadi saya tinggal membongkar arsip saya karena proyek ini sudah berumur 6 tahun ketika saya pertama kali menceburkan diri ke dunia programming, saya ngga begitu ingat apakah script ini dari mailing list atau buat sendiri, tetapi kalau ada yang merasa ini adalah script anda, tolong kasi comment disini agar saya pasang link-nya).

Dan inilah langkah yang harus anda ambil untuk memasang fungsi terbilang ini di Microsoft Access:

Buka Microsoft Access dulu (ya pastilah hehehe…)
Klik tab Modules, lalu buatlah satu module baru atau anda bisa memasukan script terbilang ini ke dalam module yang sudah ada. Untuk membuat module baru, klik tombol New di tab Modules.

Lalu copy-paste script dibawah ini ke dalam module baru anda atau anda bisa mengunduh script tersebut dalam bentuk teks, ketik script tersebut pada Microsoft Visual Basic for Application Editor yang sedang terbuka.

Public Function ubah_terbilang(xbil As Double)
   Dim nilai, i, j, k, hasil$, HasilAkhir$, Bilangan#, Digit, Rp$, Bil$
 
   If IsNull(xbil) Then
      ubah_terbilang = Null
      Exit Function
   End If
 
'pengelompokan
    Dim Kel$(1 To 6), Angka$(1 To 9), Sat$(1 To 3)
    Kel$(1) = "Biliun "
    Kel$(2) = "Triliun "
    Kel$(3) = "Miliar "
    Kel$(4) = "Juta "
    Kel$(5) = "Ribu "
    Kel$(6) = ""
 
'data angka
    Angka$(1) = "Satu "
    Angka$(2) = "Dua "
    Angka$(3) = "Tiga "
    Angka$(4) = "Empat "
    Angka$(5) = "Lima "
    Angka$(6) = "Enam "
    Angka$(7) = "Tujuh "
    Angka$(8) = "Delapan "
    Angka$(9) = "Sembilan "
 
'satuan
    Sat$(1) = "Ratus "
    Sat$(2) = "Puluh "
    Sat$(3) = ""
 
'mulai
   Bilangan# = Val(xbil)
   HasilAkhir$ = ""
   GoSub HitungHuruf
   If hasil$ <> "" Then
    HasilAkhir$ = hasil$ + "Rupiah"
   End If
 
'hitung pecahan
   Bilangan# = Fix((Bilangan# - Fix(Bilangan#) + 0.005) * 100#)
   If Bilangan# > 0 Then
      GoSub HitungHuruf
      If hasil$ <> "" Then
        HasilAkhir$ = HasilAkhir$ + " " + hasil$ + "Sen"
      End If
   End If
 
ubah_terbilang = HasilAkhir$
Exit Function
 
HitungHuruf:
    Rp$ = Right$(String$(18, "0") + LTrim$(Str$(Fix(Bilangan#))), 18)
    hasil$ = ""
 
    If Val(Rp$) = 0 Then Return
 
'blg bulat
   For i = 1 To 6
      Bil$ = Mid$(Rp$, i * 3 - 2, 3)
 
      If Val(Bil$) = 1 And i = 5 Then
         hasil$ = hasil$ + "Seribu "
 
      ElseIf Val(Bil$) <> 0 Then
         For j = 1 To 3
            Digit = Val(Mid$(Bil$, j, 1))
            If j = 2 And Right$(Bil$, 2) = "10" Then
               hasil$ = hasil$ + "Sepuluh "
               Exit For
 
            ElseIf j = 2 And Right$(Bil$, 2) = "11" Then
               hasil$ = hasil$ + "Sebelas "
               Exit For
 
            ElseIf j = 2 And Mid$(Bil$, 2, 1) = "1" Then
               hasil$ = hasil$ + Angka$(Val(Right$(Bil$, 1))) + "Belas "
               Exit For
 
            ElseIf Digit = 1 And j = 1 Then
               hasil$ = hasil$ + "Seratus "
 
            ElseIf Digit <> 0 Then
               hasil$ = hasil$ + Angka$(Digit) + Sat$(j)
 
            End If
         Next
         hasil$ = hasil$ + Kel$(i)
      End If
   Next
   Return
End Function

Ketik script-nya

Lalu tutup jendela VBA editor.
Nah sekarang tinggal mencoba fungsi ini.

Ada dua cara untuk mencoba fungsi ini di Microsoft Access, melalui Form atau Report. Nah, kita akan mencoba yang pertama yaitu melalui Form:

Buat form baru dengan cara klik tab Forms lalu klik tombol New.
Di form yang baru tersebut, buat 2 textbox baru. Secara default, maka textbox pertama akan dinamai Text0 dan teks kedua dinamai dengan Text2, anda bisa merubahnya sendiri tetapi dalam contoh ini saya menganggap kita akan memakai nama default yang diberikan.
Lalu buka Microsoft Visual Basic Editor dengan klik menu View -> Code.
Pilih control Text0 yang akan kita tangkap eventnya.
Lalu ubah event yang akan di tangkap ke Change.
Lalu ketikan script: Text2.Value = ubah_terbilang(Text0.Text) di dalam blok Private Sub Text0_Change().
Tutup jendela Microsoft Visual Basic editor-nya.
Ubah view form ke Form View.
Lalu coba ketikan angka di Text0, kalau anda melakukannya dengan benar maka hasilnya akan muncul di Text2.

Nah, dari contoh sederhana diatas anda dapat mengembangkannya sendiri menjadi aplikasi yang lebih baik. Untuk implementasi kedua adalah pada Report, penggunaannya sebagai berikut:

Buat report baru dengan klik tab Reports lalu klik New.
Setelah semua di buat, dan misalnya anda ingin mengimplementasikan fungsi terbilang (yang diwakili pada textbox txtTerbilang) ini untuk total transaksi yang tercantum di control txtTOTAL, anda tinggal mengetikan =ubah_terbilang([txtTOTAL].[Value]) di Control Source dari txtTerbilang.
Sekarang tinggal coba membuka report tersebut, kalau anda melakukannya dengan benar maka ‘penampakannya’ akan seperti gambar yang saya pasang sebagai logo artikel ini diatas.

Semoga artikel ini dapat sedikit membantu bagi rekan-rekan yang sedang mencari fungsi terbilang ini untuk proyek Microsoft Access anda.

Artikel-artikel Yang Berhubungan Dengan Artikel Ini

Mengeksekusi Macro Secara Otomatis (May 20th, 2008)

36 Komentar

Salim Banjar on February 22nd, 2009

Ass. Wr. Wb. Apakabar Mas Edi, tentu baik-baik aja bukan?….Sebelumnya terimakasih Saya Ucapkan sama Mas Edi atas Ilmu-ilmunya yang bermanfaat yang ada pada Kompoter,mudah-mudahan Allah selalu membimbing Mas Edi terus menerus dlm meningkatkan taraf dlm Ilmu kompoter yang sekarang ini semakin berkembang………..amin……..Oh,…Mas Edi disini Saya minta bantuan sama Mas Edi untuk membantu saya cara membuat toolbar “Paste For Word” dan cara-cara untuk membuat tabel excel dlm Wordpress dan HTML, karena Saya bingung dan kurang Faham. Mengapa Saya bertanya sama Mas Edi? karena Pejelasan dari Mas Edi kayanya agak mudah Saya Fahami walaupun sebagian masih ada yang masih kurang Faham. Semoga Mas Edi dengan ringan tangan mau membantu saya dalam hal ini. Dan sebelumnya saya ucapkan terima kasih, Semoga kita selalu dalam bimbingan-Nya……….amin…….Saya tunggu jawaban dari Mas Edi dengan Keterangan lengkap dan jelas.

Salim Banjar on February 22nd, 2009

Maaf mas Edi, Yang saya maksud toolbar “paste from word”

Navia Ang on March 2nd, 2009

Muantap boz..

Bart. Edi on March 2nd, 2009

@Navia Ang: Hehehehe, seneng bisa sedikit berguna artikelnya

Didik on March 9th, 2009

Ass wr.wb..Mas Edi yth:

Saya membuat database dengan menggunakan Acces..Tetapi saya tidak paham dengan Scriptnya..
Kira-kira bisa kasih info,,buku apa yang mudah dipahami untuk belajar scripnya..tks infonya..

artikel terakhir Didik | TEKNIK NEGOSIASI

Bart. Edi on March 9th, 2009

@Didik: Kalau mas Didik mau tetap di Access, pembuatan module pelajari saja Visual Basic for Application (VBA). Semoga membantu.

Jhony Andrey on March 21st, 2009

Saya sangat senang menerima artikel ini. Karena bermanfaat sekali. Ada Permasalahan yang saat ini saya hadapi dalam membuat database dgn MS ACCESS. Saya menghadapi kendala jika membuat database dimana pada salah satu field (katakan field “ID karyawan”) dimana diminta penomorannya acak (random) tetapi harus 6 digit dan tidak boleh didahului angka 0 (nol). Untuk random dengan tidak ada pengulangan nomor (123456, 453216,632415,dll) saya sudah bisa. Tetapi untuk random dengan pengulangan (spt :112562, 6532113, 441122, dll) saya belum bisa. Saya mohon bantuan dari Anda. Terima kasih sebelumnya. Hormat saya, Jhony.

nouval on April 16th, 2009

terima kasih atas artikelnya. sangat membantu.

btw, berlangganan artikel bapak ada biayanya pak? trima kasih

Bart. Edi on April 16th, 2009

@nouval: Ngga koq pak, saya senang berbagi saja. Untuk berlangganan bisa melalui email atau RSS pak di bagian bawah blog ini…

Saproen on May 5th, 2009

Saya sangat tertarik dengan artikel ini Mas, dan sudah saya praktekkan. Kalau saya perhatikan, fungsi terbilang pada Text2 hanya merespon angka yg kita masukkan pada Text0. Sekarang bagaimana seandainya Text0 merupakan hasil penjumlahan dari input angka yg lain, misalnya [Text3]+[Text4]=[Text0]. Nah, Text2 kemudian mengeluarkan output terbilang dari Text0.
Mohon bantuannya, maklum masih awam banget dengan Access. Terimakasih.

Bart. Edi on May 5th, 2009

@Saproen: Kalau saya tidak salah menangkap maksud Bapak, tinggal masukan aja ke event Change di Text3 dan Text4 -> Text0.Value=Text3.Value+Text4.Value. Maka setiap ada perubahan di Text3 atau 4, maka Text 0 akan menjumlahkannya sendiri.

Christian bayu on May 12th, 2009

Pak/ Mas. Edi..
minta bantuannya…
saya baru praktekkan.. di Access 2007..
tapi selalu ada Eror..

“can’t find project or Library …”

di soroti pada
Hitung Huruf:

Rp$=Right(String$(18…………

pada ” String$ “….

apakah ada yang salah dengan yang saya coba..
butuh urgen/….
mohon bantuannya..
terimakasih..

Budi Setiawan on May 22nd, 2009

Sangat bermanfaat informasinya. Saya punya pertanyaan, kalau untuk membaca koma dengan acces 2003 bagaimana caranya?
Contohnya: 3,51 dapat dibaca Tiga Koma Lima Satu

Terima kasih informasinya

artikel terakhir Budi Setiawan | What is Planning?

Heldy on May 26th, 2009

mantap tenan iki, mas. kalau di Delphi dari awalnya gimana mas, matur nuwun

artikel terakhir Heldy | Penyedia website instan

Boedi on June 3rd, 2009

Top abis. Kalo yang versi English ada nggak ?

Bart. Edi on June 3rd, 2009

@Boedi: ada sih, bentar ya saya cari dulu, nanti tak bikin artikel nya

linksys on June 8th, 2009

salam kenal mas…
aku mo tanya, bagaimana cara membuat fungsi terbilang 2 baris?
misal nya 1.525.645.
pada baris pertama terbilang satu juta lima ratus dua puluh
pada baris kedua lima ribu enam ratus empat puluh lima
Terima kasih atas bantuan nya mas

Abdurrahman Suryadi on June 9th, 2009

Terima kasih mas edi atas ilmunya.
Boleh nanya g mas edi? coz saya bingung nih…dah nyoba berkali-kali tapi belum bisa. maklum pemula.
Bagaimana cara membuat fungsi yang bisa menghitung angka misalnya “43530″ menjadi “empat tiga lima tiga kosong”?
Terima kasih atas bantuannya mas?

afifuddin on June 11th, 2009

Trima kasih Mas edi atas ilmunya.
saya pingin nanya Mas, gimana cara menentukan rangking nilai di MS.Access, seperti rumus RANK di Ms.Excel?
trimakasih atas bantuannya

pri on June 15th, 2009

mas.. bisa minta yang udah jadi .. gak.. soalnya saya coba gagal terus.. mau cari tau apa sih salahnya…
pri´s last blog ..Emoticon Yahoo di Blog

AGUNG on June 19th, 2009

Maaf Pa Edi saya coba scripnya kok ngga muncul apa apa yah,… di debug ga ada error tuh… ada solusi?

pri on June 30th, 2009

udah jalan :d

AGUNG on July 2nd, 2009

Pa Edy saya Masih Gagal Euy, boleh minta scrip aslinya

fahi on July 15th, 2009

Wah, ada pencerahan nih Trimakasih Mas Edi, Selama ini saya mencari artikel ini dah Alhamdulillah ketemua Blog yang bagus ini. Kebetulan selama ini saya menggunakan Acces cuma sekedar database nya aja. Angka menjadi terbilang dimanual, Sekarang berkat Pencerahan Mas Edi Jadi Tambah keren Aplikasi Acces Saya.
Trimakasih Banyak, banyak, banyak.

AeRc Group Inc on July 15th, 2009

Akhirnya Ku menemukanmu
Thank’s Bgt buat Rumusnya…….. Udah dari smster 2 kemaren nyari-nyari rumus tersebut dan bru sekarang ketemu (Sekarang udh Smstr 4)
Thank’s Bgt ya boss…… Semoga selalu sukses aja
^_^
AeRc Group Inc´s last blog ..Idle Money

masto on August 1st, 2009

thanks mas…saya dah coba….dah bisa jalan…..

Raymond on August 6th, 2009

Buat para pembaca web ini yang merasa infonya udah berguna. Di klik pasang iklannya biar mas eddynya rajin kasih ilmu gratisan. Thx mas eddy i’ve looking for it.

Bart. Edi on August 6th, 2009

@Raymond: hehehehe…. atu aja

nouva on August 19th, 2009

thx mas edy atas share ilmunya ttg ms.access,
kmrn aq sdh cb gunakan listing fungsi terbilang yg dilinkkan dr VB,awalnya berhsl sy jlnkan tp stlh sy exit dr ms.access msk kmbali ddatabase td, kok nda bs berhasil eksekusi listingnya?aq mskkan angkax,tp nda terbaca terbilangnya di textbox terbilang.
Apa kemungkinan ad listingnya yg krg? atw aq slah ktik listingnya ya? tlg bantuanya ya mas…

BRAJA on August 20th, 2009

Ini link dll untuk terbilang bisa digunakan untuk C, C++, PHP, ASP, Power Builder, VB6, .NET, Delphi, Foxpro, VBA. Dll ini tidak membutuhkan runtime dll atau tidak ada ketergantungan dengan dll lain, jadi betul2 berdiri sendiri. berbeda dengan kebanyakan dll terbilang yang membutuhkan runtime dll, misalnya dll terbilang yg dibuat pake VB6 akan membutuhkan msvbvm60.dll.

http://www.4shared.com/file/100338435/9b509b52/TerbilangTest.html?s=1

Nur Kholis on November 15th, 2009

Mas edi saya mo tanya, di acces autonumber kok sering lompat kenapa ya .. ? misalnya habis 167 langsung ke 169, ada yang bisa bantu tolong lewat email ya ……..

ade on December 6th, 2009

saya coba tdk bisa menjumlah sendiri mas,dimana saya bisa kirim mdb saya agar di analisa oleh bapak? makasih. atau langsung baca dari tabel juga tidak bisa. terimakasih bantuannya pak..

willy yanti on December 24th, 2009

tanks bngt Pak edi..
^^
koding ini berjalan dengan sangat sempurna..

maju terus ya pak..

Lukman on January 6th, 2010

mas edi,terima kasih banyak ilmunya. saya mau tanya nih. gimana caranya bikin lama masa kerja atau lama masa studi pake access. klo hanya dari query (gak pake vb) bisa gak? terima kasih.

surya on January 14th, 2010

mokasih bana pak…. tapakai bana scrip ko dek ambo…. ambo doankan apak panjang umua sehat selalu…. amin (elok bana koa apak ko… ya allah limpahan lah rasaki ka apak kok nan banyak balimpah)
surya´s last blog ..Create Your Account !

ina on February 3rd, 2010

pak mau tanya dunk..saya ingin buat ms accsess. kalau penomoran otomatis gmn ya caranya?
misal
(nomor otomatis)/bln-tahun-sekarang/
terimakasih

Feb200922

Bart. Edi

36

Access Corner

Tags: access function, terbilang