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:

  1. Buka Microsoft Access dulu (ya pastilah hehehe…)
  2. 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.
    Membuat Module baru
  3. 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

  4. Lalu tutup jendela VBA editor.
  5. 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:

  1. Buat form baru dengan cara klik tab Forms lalu klik tombol New.
    Buat form baru
  2. 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.
    Form baru
  3. Lalu buka Microsoft Visual Basic Editor dengan klik menu View -> Code.
  4. Pilih control Text0 yang akan kita tangkap eventnya.
    Ubah control
  5. Lalu ubah event yang akan di tangkap ke Change.
    Ubah event-nya
  6. Lalu ketikan script: Text2.Value = ubah_terbilang(Text0.Text) di dalam blok Private Sub Text0_Change().
    script di event change
  7. Tutup jendela Microsoft Visual Basic editor-nya.
  8. Ubah view form ke Form View.
  9. Lalu coba ketikan angka di Text0, kalau anda melakukannya dengan benar maka hasilnya akan muncul di Text2.
    Hasil form

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

  1. Buat report baru dengan klik tab Reports lalu klik New.
    Buat report baru
  2. 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.
    implementasi di report
  3. 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.

107 comments

  1. 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.

  4. @Navia Ang: Hehehehe, seneng bisa sedikit berguna artikelnya 😀

  5. 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

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

  7. 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.

  8. terima kasih atas artikelnya. sangat membantu.

    btw, berlangganan artikel bapak ada biayanya pak? trima kasih

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

  10. 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.

  11. @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.

  12. 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..

  13. 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?

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

  17. 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

  18. 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?

  19. 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

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

  24. 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.

  25. 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 =-.

  27. 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.

  29. 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…

  30. 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

  31. 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 ……..

  32. @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.

    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..

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

    maju terus ya pak..

  34. 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.

  35. 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 ! =-.

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

  37. Trimakasih Bosss…..
    Database saya jadi tambah keren buanget. semoga sukses selalu

  38. Salam Kenal pada Edi.
    saya mau tanya…
    cara menghubungkan ms access ke vb gimana ya?, tetapi selain cara ad in visual data manager,
    ada ga ya bukunya, judulnya apa??
    trima kasih

  39. om,gimana buat angka menjadi huruf dgn mnggunakan acces.kirimin cpt ya om ke alamtat e mail sy makasih….

  41. dear friend,

    good script…:)

    minta izin copas scriptnya ya…
    buat cetak kwitansi…

    semoga sukses…

  42. thx eaa pak atas artikel’a . .

    kalau mau download file nya tekan “mengunduh script” itu kan pak ??

  43. sgt membantu. pas spt yg sy cari. tapi saya masih m embutuhkan cara membuat fungsi stok barang dimana penjualan dan pembelian otomasis menambah atau mengurangi stok barang. kmd fungsi utang piutang untuk penjualan atau pembelian kredit gmn?
    mohon bantuannya .
    trims.
    untuk jawaban boleh dikirim ke email saya
    bisnishalalyusuf@yahoo.com

  45. Salam Mas edY…
    Saya hampir frustasi neh mempelajari Ms. Access….., mumet pikiran saya. Emang sih saya bukan sekolah ilmu kmputer, tapi saya ingin bisa! bisa ga mas edY beri saya saran, dari mana saya mulai??
    terima kasih

  46. Thanx….ini sangat membantu buat saya yang masih pemula

    sukses terus…..

  47. saLam Mas Edy… ???
    saya mau nNya nih,, Ap saja sih Kegunaan Menu Bar yG ad Ddalm Ms. access.?? Mulai dari file sampai help.beserta is Yg ad Ddlam menu2 it..??
    dan Jg is yg ad di data type besrta pngertaian menu trsbt..??
    soalnya sya bingung wKt dtanya sm dosen.
    tolng y mas edy,,??
    trimksh sblumnya… ^_^

  48. salam kenal Mas Edi
    Saya perlukan bantuan mas untuk satu permasalahan berkaitan ms access database yang saya bina.
    saya memerlukan cara untuk mendapatkan tarikh secara automatik berdasarkan kepada 2 tarikh.

    Misalnya :
    Tempoh Kontrak : 3 Tahun
    Mula : 06/08/2010
    Tamat : 05/08/2013

    Bagaimana untuk saya mendapatkan tarikh kontrak tahun ke tahun menggunakan microsoft visual basic iaitu:

    Kontrak 1
    Mula : 06/08/2010
    Tamat : 05/08/2011

    Kontrak 2
    Mula : 06/08/2011
    Tamat : 05/08/2012

    Kontrak 3
    Mula : 06/08/2012
    Tamat : 05/08/2013

    Harap Mas Edi dapat membantu.

    Terima kasih

  49. SAYA BISA MENGUCAPKAN BANYAK TERIMA KASIH KEPADA PARA DERMAWAN ILMU, MOGA ANAK BANGSA BERTAMBAH MAJU DAN CERDAS SERA BERGUNA BAGI NUSA BANGSA AGAMA. AMIN

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.