Skip to main content

Mengaplikasikan Modul Global ke Form

Pada postingan sebelumnya, kita telah membuat form dalam bentuk yang paling sederhana dan belum mempunyai fitur yang dapat membuat pekerjaan menjadi lebih mudah dan cepat. Di sisi lain, kita telah membuat modul yang berisi fungsi yang dapat kita aktifkan setiap saat di mana pun obyek itu berada.

Untuk diketahui, dengan mengaktifkan Use Control Wizard dan klik tombol Button (Form Control), Access dapat memandu kita membuat Wizard tombol perintah yang memiliki kode VBA seperti yang dibuat pada sebagian isi modul di postingan yang berjudul Membuat Modul Global di Access. Contohnya adalah tombol perintah untuk kembali ke awal, ke record sebelumnya, menambah record baru, ke record berikutnya, dan sebagainya.  
Mereka semua dibuat dengan menggunakan Wizard Button (Form Control) yang kemudian diaplikasikan ke dalam event procedure sebuah form. Dengan beberapa modifikasi, kita dapat memindahkan mereka ke modul mdlGlobal, seperti yang telah dibahas di subbab sebelumnya.
Untuk mengeksekusi fungsi dalam modul standar yang telah dibuat ke sebuah form, maka kita harus membuat tombol perintah (command button). Caranya adalah sebagai berikut:
  1. Pada form, misalkan frmRekUtama, bukalah dengan Design view, lalu, pada tab Design grup Controls, non-aktifkan tombol  Use Control Wizard dan klik tombol Button (Form Control).
  2. Pada area form header, tambahkan Button (Form Control), untuk membuat command button. Lihat Gambar di bawah.
    Menyisipkan tombol perintah di forn
    .
  3. Bukalah  property sheet command button dan isikan properti berikut ini dengan:
    1. Name = Awal
    2. Caption = Awal
    3. Picture = pilihlah Go To First dari daftar gambar yang tersedia
    4. ControlTipText= Kembali ke record awal
    5. On Click = =Awal()
  4. Lakukan langkah ke dua dan ke tiga untuk perintah-perintah berikut ini:
    1. Record sebelumnya, properti:
      1. Name = RecordSebelumnya
      2. Caption = Record Sebelumnya
      3. Picture = pilihlah Go To Previous dari daftar gambar yang tersedia
      4. ControlTipText= Kembali ke record sebelumnya
      5. On Click = = Sebelumnya()
    2. Buat record baru, properti:
      1. Name = BuatRecordBaru
      2. Caption = Buat Record Baru
      3. Picture = pilihlah  Go To New dari daftar gambar yang tersedia
      4. ControlTipText= Buat record baru
      5. On Click = = BuatRecordBaru ()
    3. Record berikutnya, properti:
      1. Name = Record Berikutnya
      2. Caption = Record Berikutnya
      3. Picture = pilihlah  Go To Next dari daftar gambar yang tersedia
      4. ControlTipText= Menuju ke record berikutnya
      5. On Click = = Berikutnya ()
    4. Record akhir, properti:
      1. Name = Record Akhir
      2. Caption = RecordAkhir
      3. Picture = pilihlah  Go To Last dari daftar gambar yang tersedia
      4. ControlTipText= Menuju ke record akhir
      5. On Click = =Akhir()
    5. Tutup form, properti:
      1. Name = TutupForm
      2. Caption = Tutup Form
      3. Picture = pilihlah  Exit Doorway dari daftar gambar yang tersedia
      4. ControlTipText= Tutup form ini
      5. On Click = =Tutup()
    6. Hapus record, properti:
      1. Name = HapusRecord
      2. Caption = Hapus Record
      3. Picture = pilihlah  Delete Record dari daftar gambar yang tersedia
      4. ControlTipText= Hapus record ini
      5. On Click = = Hapus([RecordSource])
    7. Batalkan, properti:
      1. Name = Batalkan
      2. Caption = Batalkan
      3. Picture = pilihlah  Undo dari daftar gambar yang tersedia
      4. ControlTipText= Batalkan tindakan terakhir
      5. On Click = =Batalkan()
    8. Cari record, properti:
      1. Name = CariRecord
      2. Caption = Cari Record
      3. Picture = pilihlah  Binoculars (Find) dari daftar gambar yang tersedia
      4. ControlTipText= Cari record sesuai dengan kriteria
      5. On Click = =Cari()
  5. Klik properti untuk form (form properties) dan isikan properti berikut ini:
    1. Caption = Daftar Kode Rekening - Rekening Utama
    2. Record Selectors = No
    3. Navigation Button = No
  6. Tampilan form setelah ada tambahan tombol perintah akan tampak seperti gambar di bawah.
Tampilan form view setelah ada penambahan tombol perintah
Bila sudah selesai menambahkan tombol-tombol di atas, kita dapat meng-copy semua tombol itu ke form lain. Caranya, blok saja semua tombol, dari tombol Awal ke tombol Cari, tekan Ctrl C lalu paste (Ctrl V) ke form lain.

Selain mdlGlobal, ada juga modul yang dibuat sesuai dengan tujuannya pengelolaan. Untuk sekedar informasi, modul yang telah dibuat disimpan dengan nama mdlGlobal bertujuan untuk memudahkan kita mengingat fungsi-fungsi yang sifatnya global, tidak terkait dengan hal-hal yang khusus. Untuk hal-hal yang khusus seperti pengelolaan pengguna dan sofware akuntansi, maka modulnya bisa dinamai dengan mdlTransJurnal, mdlPengguna, dan sebagainya.

Comments

  1. hello pak. kok ada pesan error "microsoft access cannot find the object 'sebelumnya()."

    bagaimana cara membetulkannya ya pak?

    ReplyDelete
    Replies
    1. Di artikel di atas ada link ke http://access-terapan.blogspot.co.id/2014/12/membuat-modul-global-di-access.html. Nah, di situ ada fungsi "sebelumnya()". Salin semua fungsi dalam modul di link itu ke modul mdlGlobal. Lalu coba lagi.

      Delete

Post a Comment

Posting Terpopuler

Format Untuk Field Dengan Tipe Data Number dan Currency di MS Access

Normalisasi, Denormalisasi, dan Anomali Database

Membuat Fungsi Untuk Menghitung Pajak Penghasilan PPh 21 di MS Access