Query dan Modul Round Up 100 dalam Access

 

Saya ingat ketika beberapa tahun yang lalu, membuat function round up 100 dalam Access ini sangat rumit pemikirannya, di convert dalam text, kemudian di delete 2 from right, di kali 100, trus hasilnya di convert lagi ke number. logikanya bener tetapi ada keterbatasan karena tidak fleksible sebab kemungkinan angka yang di konversi dalam ribuan, ratusan ribu bahkan jutaan.

Mungkin ini bisa menjawab pertanyaan rekan yang dulu membuat saya bingung, ternyata sesederhana ini jawabannya:

1. buat table tblData: dengan field ID(AutoNumber), Angka (Number)


2. Buat Query qryRoundUp100 :

SELECT tblData.ID, tblData.Angka, 100*Round([angka]/100,0) AS Mendekati, 100*Int([Angka]/100) AS [Round Down], -100*Int([Angka]/-100) AS [Round Up], Pembulatan([Angka]) AS [Modul Round Up]
FROM tblData;

 atau seperti gambar sbb:

 

3. Buat Module mdlPembulatan100: (info tambahan dari mas Edy W, MBA-moderator group milist belajar-access@yahoogroups.com)

Option Compare Database

Function Pembulatan(ByVal Nilai As Double) As Double
If Nilai Mod 100 > 0 Then
Pembulatan = ((Nilai \ 100) * 100) + 100
Else
Pembulatan = Nilai
End If
End Function

4. Hasilnya akan tampak sbb:

Angka asal, Hasil Round Up dengan Query, dan Round Up dengan module

Semoga bermanfaat.

About Sumiyanto Surabaya

http://bajajbekas.wordpress.com/ berdiri sejak 7 Mei 2009. Termotivasi untuk menghabiskan stock barang tarikan dengan metode pemasaran yang konvensional memakan banyak pikiran, tenaga, dan dana untuk kampanye melalui media koran lokal yang hanya berdurasi 1-3 hari saja. Tidak cukup waktu untuk menghabiskan seluruh stock unit tarikan yang ada. Untuk alasan itulah media ini berdiri menjembatani bagi peminat motor khususnya bajaj untuk mendapatkan informasi yang tepat, tempat yang tepat, motor yang tepat. Tidak lebih. Dikelola oleh Sumiyanto, Goal Keeper Perusahaan Finance di Wilayah Jl. Jemur Andayani 50, Ruko Surya Inti Permata D 10-11, Surabaya, 031-72472523, 081 246 83700 https://cakyanto.wordpress.com/ Belajar tentang pemrograman database berbasis Ms Access

Posted on November 29, 2011, in Tutorial Ms Access and tagged , , . Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: