[Fungsi Terbilang Di Microsoft Access | Edi Susanto dot Com](^2^)

Kalau dulu saya pernah posting cara membuat fungsi terbilang di Microsoft Excell disini, kali ini saya pengen catat membuat fungsi terbilang di Microsoft Access, karena emang Microsoft tidak menyediakan fungsi terbilang. keduanya sama aja sih, tapi menurut saya Access lebih lancar dibandingkan Excell kalau bicara olah mengolah data, pengalaman pake Excell sering lemot-lemot, beda dengan Access yang lancar jaya walau data sudah mencapai ribuan.Bedanya lagi kalau di Excell, kode dimasukkan melalui menu Developer->Visual Basic, kalau di Access kode ini dimasukkan melalui menu yang namanya Create->Modul kemudian disimpan, cara menggunakannya pun juga berbeda, Excell ditulis langsung di Cellnya (inipun kalau datanya udah nyampe ribuan sering lemot-lemot), kalau Access kan masuk ke Desain Query, klik pada kolom Field lalu pilih menu Builder, nah disitulah kita nanti menemukan rumusnya tepatnya pada menu Function. Oke biar tidak panjang lebar saatnya masuk ke catatan inti.Cara pertamaCopykan kode ini pada modul kemudian jangan lupa disimpan ya :)Public Function Terbilang(x As Currency)Dim triliun As CurrencyDim milyar As CurrencyDim juta As CurrencyDim ribu As CurrencyDim satu As CurrencyDim sen As CurrencyDim baca As StringIf x > 1000000000000# ThenTerbilang = ""Exit FunctionEnd If'Jika x adalah 0, maka dibaca sebagai 0If x = 0 Thenbaca = angka(0, 1)Else'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sentriliun = Int(x * 0.001 ^ 4)milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)sen = Int((x - Int(x)) * 100)'Baca bagian triliun dan ditambah akhiran triliunIf triliun > 0 Thenbaca = ratus(triliun, 5) + "triliun "End If'Baca bagian milyar dan ditambah akhiran milyarIf milyar > 0 Thenbaca = ratus(milyar, 4) + "milyar "End If'Baca bagian juta dan ditambah akhiran jutaIf juta > 0 Thenbaca = baca + ratus(juta, 3) + "juta "End If'Baca bagian ribu dan ditambah akhiran ribuIf ribu > 0 Thenbaca = baca + ratus(ribu, 2) + "ribu "End If'Baca bagian rupiah dan ditambah akhiran rupiahIf satu > 0 Thenbaca = baca + ratus(satu, 1) + "rupiah "Elsebaca = baca + "rupiah"End If'Baca bagian sen dan ditambah akhiran senIf sen > 0 Thenbaca = baca + ratus(sen, 0) + "sen"End IfEnd IfTerbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))End FunctionFunction ratus(x As Currency, Posisi As Integer) As StringDim a100 As Integer, a10 As Integer, a1 As IntegerDim baca As Stringa100 = Int(x * 0.01)a10 = Int((x - a100 * 100) * 0.1)a1 = Int(x - a100 * 100 - a10 * 10)'Baca Bagian RatusIf a100 = 1 Thenbaca = "Seratus "ElseIf a100 > 0 Thenbaca = angka(a100, Posisi) + "ratus "End IfEnd If'Baca Bagian Puluh dan SatuanIf a10 = 1 Thenbaca = baca + angka(a10 * 10 + a1, Posisi)ElseIf a10 > 0 Thenbaca = baca + angka(a10, Posisi) + "puluh "End IfIf a1 > 0 Thenbaca = baca + angka(a1, Posisi)End IfEnd Ifratus = bacaEnd FunctionFunction angka(x As Integer, Posisi As Integer)Select Case xCase 0: angka = "Nol"Case 1:If Posisi 2 Thenangka = "Satu "Elseangka = "Se"End IfCase 2: angka = "Dua "Case 3: angka = "Tiga "Case 4: angka = "Empat "Case 5: angka = "Lima "Case 6: angka = "Enam "Case 7: angka = "Tujuh "Case 8: angka = "Delapan "Case 9: angka = "Sembilan "Case 10: angka = "Sepuluh "Case 11: angka = "Sebelas "Case 12: angka = "Duabelas "Case 13: angka = "Tigabelas "Case 14: angka = "Empatbelas "Case 15: angka = "Limabelas "Case 16: angka = "Enambelas "Case 17: angka = "Tujuhbelas "Case 18: angka = "Delapanbelas "Case 19: angka = "Sembilanbelas "End SelectEnd Functionterima kasih buat Cara keduaDownload file ini, lalau buka, tinggal copy modulnya dan paste langsung ke Navigate Pane file punyamu(menu yang ada di sisi kiri)Kemudian cara pakainya keduanya sama, yaitu seperti penjelasan di atas pada saat masuk menu Desain Query, klik kanan Field, lalu pilih menu Builder, di Menu Expression Builder, pilih Function, kalau sudah dapet rumusnya pilih juga tabel dan kolom apa yang akan kita baca terbilangnya.Update 09 Oktober 2013 ternyata setelah dicoba-coba ada eror seribu malah dibaca satu ribu, mungkin ada yang bisa memperbaiki?,

Membuat Fungsi Terbilang Di Microsoft Access

DOWNLOAD

Anda dapat mengunduh contoh buku kerja dengan semua contoh fungsi TEXT yang akan ditemukan dalam artikel ini, dengan beberapa tambahan. Anda dapat mengikutinya, atau membuat kode format fungsi TEXT sendiri.Unduh contoh fungsi TEXT Excel

Fungsi TEXT jarang digunakan sendiri, dan biasanya digunakan bersama-sama dengan fungsi yang lain. Misalnya Anda ingin menggabungkan teks dan nilai angka, seperti "Laporan Tercetak pada: 14/03/12", atau "Pendapatan Mingguan: $66.348,72 ". Anda dapat mengetiknya ke dalam Excel secara manual, tetapi hal ini akan menyia-nyiakan fungsi Excel yang dapat melakukannya untuk Anda. Sayangnya, saat menggabungkan teks dan angka yang diformat, seperti tanggal, waktu, mata uang, dsb., Excel tidak mengetahui bagaimana Anda ingin menampilkannya, jadi hal ini menghilangkan fungsi pemformatan angka. Inilah bagaimana fungsi TEXT sangat bermanfaat, karena memungkinkan Anda untuk membuat Excel memformat nilai dengan cara yang diinginkan menggunakan kode format, seperti "HH/BB/TT" untuk format tanggal.

Terima kasih atas tanggapan yang menyenangkan di artikel MembuatFungsi Terbilang di Microsoft Excel, melalui email atau komentar.Lalu di halaman ini, ada permintaan atas artikel pembuatan fungsiterbilang di Microsoft Access, kebetulan sih saya pernah membuatproyek dengan Access yang menyertakan fungsi terbilang tersebut didalamnya (jadi saya tinggal membongkar arsip saya karena proyek inisudah berumur 6 tahun ketika saya pertama kali menceburkan diri kedunia programming, saya ngga begitu ingat apakah script ini darimailing list atau buat sendiri, tetapi kalau ada yang merasa iniadalah script anda, tolong kasi comment disini agar saya pasanglink-nya). Dan inilah langkah yang harus anda ambil untuk memasangfungsi terbilang ini di Microsoft Access: 1. Buka Microsoft Accessdulu (ya pastilah hehehe) 2. Klik tab Modules, lalu buatlah satumodule baru atau anda bisa memasukan script terbilang ini ke dalammodule yang sudah ada. Untuk membuat module baru, klik tombol Newdi tab Modules.

2. Setelah semua di buat, dan misalnya anda inginmengimplementasikan fungsi terbilang (yang diwakili pada textboxtxtTerbilang) ini untuk total transaksi yang tercantum di controltxtTOTAL, anda tinggal mengetikan=ubah_terbilang([txtTOTAL].[Value]) di Control Source daritxtTerbilang.

3. Sekarang tinggal coba membuka report tersebut, kalau andamelakukannya dengan benar maka penampakannya akan seperti gambaryang saya pasang sebagai logo artikel ini diatas. Semoga artikelini dapat sedikit membantu bagi rekan-rekan yang sedang mencarifungsi terbilang ini untuk proyek Microsoft Access anda.

Pengertian Microsoft Access. Bagi anda yang pernah mengenyam pendidikan komputer di Sekolah, pasti sudah tidak asing lagi dengan aplikasi Microsoft Word, Excel dan Powerpoint.Word digunakan untuk mengetik dokumen, Excel untuk membuat tabel, dan Powerpoint untuk merancang presentasi.Kebanyakan orang hanya mengetahui ketiga aplikasi Microsoft ini, padahal masih banyak aplikasi Microsoft lain yang mempunyai fungsi tak kalah penting dari Word,Excel dan Powerpoint.Salah satunya yaitu Microsoft Access.Pertama kali anda membuka Microsoft Access, pasti anda merasa asing.Gimana sih bikin tabel ,ini fungsinya buat apaan ya.Memang microsoft access agak berbeda dari aplikasi microsoft lainnya. googletag.cmd.push(function() googletag.display('div-gpt-ad-1428036354809-0'); );Microsoft Access adalah aplikasi yang berguna untuk membuat, mengolah, dan mengelola basis data atau lebih dikenal dengan database.Database adalah kumpulan arsip data berbentuk tabel yang saling berkaitan untuk menghasilkan informasi.Data digunakan sebagai masukan yang akan diolah menjadi informasi.Fungsi Microsoft Accessuntuk membuat database (basis data) untuk membuat program aplikasi persediaan baranguntuk membuat program aplikasi gaji pegawaiuntuk membuat program aplikasi kehadiranSebenernya Microsoft access itu buat ngapain sih ?Coba kita buat perumpamaan dari usaha rental DVD.Seorang pemilik rental DVD kewalahan mencatat data DVD dan transaksi sewa DVD yang terjadi setiap harinya.Lalu dia memutuskan untuk menggunakan Microsoft Access.Pertama, kumpulan data dari DVD seperti judul film, genre, sutradara, harga dvd dimasukan terlebih dulu.Nantinya data tersebut bisa dibuat form seperti gambar ini. Lalu tinggal memasukkan data para member (orang yang menyewa DVD) , serta memasukkan data transaksi penyewaanya.Jika sudah, anda bisa membuat laporan secara otomatis seperti gambar dibawah ini Pastinya pengolahan database akan lebih mudah dan cepat menggunakan aplikasi Microsoft AccessBaca juga -Belajar Microsoft Access-Buku Panduan Microsoft Access bagi pemula (GRATIS!)apa itu microsoft access, kegunaan microsof access, ms acces buat untuk bisnis, perbedaan microsoft access, kenapa pake microsoft access, tentang microsoft access, manfaat microsoft access,fungsi microsoft access 2007 2ff7e9595c