Mengubah Format Laporan Dengan VBA

Artikel ini saya buat sebagai lanjutan artikel saya yang berjudul Menyajikan Laporan Dengan Format Word, Excel, dan HTML dan bisa dilihat di http://mugi.or.id/blogs/elang/archive/2008/08/09/menyajikan-laporan-dengan-format-word-excel-dan-html.aspx  serta beberapa e-mail yang saya dapat setelah saya menjadi dosen tamu di Unesa (Universitas Negeri Surabaya) bulan November 2008.

 

Jika pada artikel terdahulu, menyajikan laporan dalam format lain, memanfaatkan fasilitas yang sudah disediakan oleh MS Access, maka dalam artikel ini, saya akan menyajikan tehnik yang lebih rumit namun jelas hasilnya akan lebih bagus, yaitu dengan memanfaatkan VBA (Visual Basic for Application).

 

Mempersiapkan Form dan Tombol

 

  1. Pertama-tama, unduh dahulu file laporan_bag2.mdb yang sudah dipersiapkan
  2. Buka file tersebut, maka hanya akan ada sebuah tabel dengan nama penjualan dan sebuah report (laporan) dengan nama Penjualan ***. Tidak ada object apapun pada bagian form dan queries
  3. Buka bagian Object Form, dan buat sebuah form. Caranya klik tombol New, kemudian akan nampak kotak dialog New Form, pilih Design View.

 

 

 

  1. Form dibuat, yang perlu diperhatikan adalah property dari form yang akan dibuat ini. Set property sbb :

 

Scroll Bars                  : Neither

Record Selector          : No

Navigation Button        : No

Min Max Button            : No

 

            Lihat pada gambar yang ditandai dengan kotak warna merah

 

 

  1. Simpan form yang baru saja dibuat dengan nama UbahLaporan dan tekan tombol OK

 

 

 

  1. Tambahkan 3 buah tombol pada form UbahLaporan yang baru saja dibuat. Tuliskan pada masing-masing tombol seperti contoh gambar dibawah.

 

 

 

  1. Simpan hasil pekerjaan kita dan seharusnya form yang sudah dibuat nampak seperti pada gambar berikut ini.

 

 

 

Setelah selesai membuat form dan semua tombol yang diperlukan, maka saatnya untuk membuat script VBA-nya. Terlebih dahulu, kita buat script VBA untuk tombol-tombol yang ada.

 

Membuat Script VBA Pada Tombol

 

Masih pada Object Form, kali ini buka form UbahLaporan dalam mode Design dan ikuti langkah-langkah berikut :

 

  1. Klik pada tombol paliing atas (untuk merubah dalam format excel), klik kanan hingga muncul pop-up menu, kemudian klik Build Event...

 

 

 

  1. Akan muncul kotak dialog Choose Builder, pilih Code Builder seperti nampak pada gambar dan klik OK

 

 

 

  1. Jendela Visual Basic for Application (VBA) muncul. Kita bias menuliskan kode VBA disini.

 

 

 

  1. Ketikkan kode VBA pada sub routine yang sudah otomatis dibuat oleh MS Access (Lihat yang diberi tanda).

 

 

 

            Berikut ini adalah kode VBA yang dituliskan

 

       'agar langsung dalam format MS Excel

DoCmd.OutputTo acOutputReport, "penjualan", acFormatXLS, "penjualan.xls", True

 

  1. Ulangi langkah nomor 1 hingga 4 untuk kedua tombol berikutnya, hanya saja kode yang dituliskan berbeda-beda.

 

Untuk jelasnya, dua tombol berikut memerlukan kode sbb :

 

'agar langsung dalam format MS Word

DoCmd.OutputTo acOutputReport, "penjualan", acFormatRTF, "penjualan.rtf", True

 

 

 

'agar langsung dalam format HTML

DoCmd.OutputTo acOutputReport, "penjualan", acFormatHTML, "penjualan.htm", True

 

Perhatikan format yang diset pada acFormatHTML, acFormatRTF dan acFormatXLS

 

  1. Simpan hasil pekerjaan yang telah dilakukan dan kita sampai pada tahap akhir pengembangan aplikasi kita

 

Memberi "Sentuhan Akhir" Pada Aplikasi

 

Sebanarnya, aplikasi kita ini sudah selesai. Jika membuka sekaligus report Penjualan dan form UbahLaporan kemudian menekan salah satu tombol, maka otomatis laporan akan dikonversi dalam bentuk word, excel atau HTML, tergantung tombol mana yang dipilih.

 

Namun, agar memudahkan pengguna, saya sarankan kita menambahkan sebuah script VBA lagi pada laporan agar begitu laporan dibuka, maka form UbahLaporan juga terbuka.

 

  1. Buka laporan Penjualan dalam mode Design
  2. Dari pojok kiri atas, ada sebuah kotak kecil hitam (lihat gambar - dilingkari), klik kanan hingga muncul pop-up dan pilih Properties.

 

 

 

  1. Klik tab Event, dan pilih On Open, set sebuah Event Procedure seperti nampak pada contoh digambar bawah

 

 

 

  1. Berikutnya, silakan menuliskan script VBA yang akan membuka form UbahLaporan secara otomatis begitu laporan penjualan dibuka

 

 

 

            Untuk lebih jelasnya, kode VBA-nya adalah sbb :

 

'begitu laporan Penjualan dibuka, juga membuka form 'UbahLaporan

DoCmd.OpenForm "UbahLaporan"

 

  1. Simpan dan silakan mencoba hasil karya yang baru saja selesai dibuat.

 

Sebagai alat bantu, file yang sudah siap pakai bsia diunduh di sini dengan nama laporan_bag2SIAP.mdb

 


Posted Nov 20 2008, 04:01 PM by Airlangga Bhumintara Amitaba

Comments

Oke Hendradhy wrote re: Mengubah Format Laporan Dengan VBA
on 11-22-2008 15:09

Akhirnya selama beberapa bulan tidak nulis .... jadi nulis lagi.... selamat cak..... semoga jadi penulis yang rajin..... and aku doakan dirimu selalu memiliki ilham untuk menulis terus,......

heheheeeee