Modul 3 Pembuatan Form dengan Wizard dan Penambahan kode VBA

Praktikum Database 1 Modul 3: Pembuatan Form dengan Wizard dan Penambahan kode VBA

Modul 3 Pembuatan Form dengan Wizard dan Penambahan kode VBA

Tujuan : • • • •

Membuat Form dengan wizard Pembuatan tombol (command button) pada form Memahami pengoperasian Update dan Delete pada Form Dapat membuat kode Visual Basic Application untuk menangani pengoperasian Form

3.1. Membuat Form dengan Wizard Pembuatan form dengan wizard ini ada beberapa macam Adapun langkahlangkahnya adalah sebagai berikut : 1. Pada window Objects aktifkan tab Form. Maka akan muncul gambar seperti pada Gambar :

Setelah itu double klik pada pilihan Create form by using wizard .

Halaman - 29


2. Dari dialog tersebut pilihlah tabel yang akan dipakai sebagai acuan :

Klik tombol pull down pada tabel/queries, kemudian akan muncul menu pulldown. Lalu pilih nama tabel/queries. Misal dipilih tabel Karyawan. Kemudian pilihlah juga field yang akan dipasangkan pada form, caranya : klik field yang ada pada area Available Field, lalu klik tombol arah kanan tunggal, maka field yang terpilih akan berpindah ke area pilihan di sebelah kanan. Apabila tombol ganda yang di- klik maka semua field yang tersedia akan dipindahkan ke area pilihan, yang berarti dipilih seluruh field yang tersedia. Jika fasilitas yang diperlukan telah mencukupi maka pilihlah tombol finish. Namun kalau ingin memakai fasilitas seterusnya, klik next, kemudian akan muncul gambar berikut :

Halaman - 30


3. Pada dialog ini tersedia tiga jenis pilihan style form yaitu : Columnar, Tabular dan DataSheet. Silahkan Anda pilih yang mana Anda suka, Misalnya Columnar, Jika fasilitas yang Anda perlukan telah mencukupi, klik tombol finish, namun kalau Anda ingin memakai fasilitas seterusnya, klik tombol next, kemudian akan muncul tampilan berikutnya seperti tampak pada gambar:

4. Pada kotak dialog tersebut ada sepuluh buah pilihan style, misalnya kita pilih Standard , lalu klik tombol next. Kemudian akan muncul tampilan akhir seperti gambar :

Halaman - 31


5. Pada kotak dialog akhir ini tersedia fasilitas pengisian judul untuk form. Silahkan mengisinya dengan kata favorit Anda, Misalnya Data Karyawan , kemudian klik tombol finish dan kemudian akan muncul hasil akhir rancangan kita pada gambar :

Halaman - 32


3.2. Penambahan Kode VBA Berikut ini akan ditambahkan kode VBA untuk Form yang sudah dibuat sebelumnya. Kode Visual B asic Application (VBA) ditambahkan dengan maksud untuk menambah fungsionalitas pada form, dan untuk menghindari hal-hal yang tidak diinginkan semisal melakukan penghapusan secara tidak disengaja, atau perubahan data pada saat melakukan navigasi pada record-record yang ada pada table.

3.2.1. Membuat form dalam mode Read -Only Buka form Data Karyawan yang dibuat sebelumnya dengan menggunakan Form Wizard. Kemudian klik kanan pada kotak kecil disebelah kiri atas form, seperti yang ditunjukkan pada gambar :

Klik kanan

Setelah itu akan muncul menu pilihan, dan klik pada pilihan Build Event :

Halaman - 33


Kemudian akan tampil jendela untuk menuliskan kode VBA, dan ketik kode berikut : Me.AllowEdits=False

Penulisan kode VBA dilakukan berdasarkan suatu event. Event adalah suatu kejadian yang membutuhkan suatu aksi atau tindakan.

Seperti yang dibuat

sebelumnya, form dalam mode Read-Only. Form harus di- set dengan properti AllowEdits diisi dengan nilai False, pada saat form mulai dipanggil, sehingga event yang terkait dalam hal ini adalah event On Load pada object Form. Berikut ini akan dijelaskan cara untuk menuliskan kode VBA berdasarkan properti event yang dimiliki oleh suatu object. Cara lain untuk menuliskan kode VBA pada event Form Load seperti yang dibuat sebelumnya, dapat dilakukan dengan langkah berikut : 1. Tampilkan properti form, dengan mengklik View->Properties

Halaman - 34


2. Setelah itu akan tampil jendela property dari tiap object yang ada pada form.

3. Klik mouse pada sembarang area pada form atau pada kotak kecil di sebelah kiri atas form untuk memilih object form. 4. Kemudian klik pada tab Event yang ada pada jendela properti pada pilihan On Load, klik tanda …

Klik ini

Setelah itu akan tampil jendela untuk menuliskan kode VBA, dan ketik kode yang sama seperti sebelumnya : Me.AllowEdits=False Perhatikan judul dari sub procedure yaitu Form_Load yang memiliki maksud yang sama dengan pilihan event On Load.

Halaman - 35


3.2.2. Menambahkan tombol Add Recor d untuk menyisipkan Record Baru Untuk menambahkan fungsionalitas pada Form, perlu ditambahkan fasilitas semisal untuk melakukan penambahan data (Add), menghapus data (Delete), atau menyimpan data (Save).

Tombol-tombol tersebut berhubungan

dengan operasi record (record operation) dan dapat ditambahkan dengan menggunakan toolbox command button dalam mode wizard.

mode wizard

command button

Untuk menambahkan tombol pada form lakukan langkah-langkah berikut : 1. Aktifkan mode wizard (lihat gambar diatas), kemudian klik pada command button. Buat tombol pada daerah form seperti yang ada pada gambar berikut :

Halaman - 36


2. Setelah itu akan muncul dialog Command Button Wizard. Pilih Categories pada Record Operations. Dan pada kotak sebelah kanan (Actions) terdapat daftar operasi yang bisa dilakukan, diantaranya operasi untuk add, delete dan save record.

3. Pilih Add New Record, kemudian klik tombol Next. 4. Berikutnya, pilihan untuk menampilkan tombol dengan menggunakan teks (tulisan) atau gambar. Pilih teks dan beri tulisan Add Record, dan tekan Next.

Halaman - 37


5. Berikutnya, kita harus memberi nama tombol yang baru kita buat, beri nama tambahrecord, dan tekan Next.

6. Dan terakhir tekan tombol Finish.

Halaman - 38


3.2.3. Menempatkan kursor pada posisi field dengan SetFocus Tombol yang baru dibuat, berfungsi untuk menambahkan record baru. Cobalah menggunakan tombol yang baru dibuat dengan mengklik View -> Form View. Klik pada tombol Add Record, setelah itu akan tampak form dengan semua record kosong yang perlu diisi, seperti pada gambar berikut :

Arahkan kursor pada field KaryawanID, untuk mulai mengisi field yang pertama. Sehingga tampak kursor pada field KaryawanID seperti pada gambar berikut :

Halaman - 39


Pada saat menjalankan form dalam Form View, agar secara otomatis kursor berada pada Karyawan ID (tempat pertama pengisian field), maka perlu di-set dengan menggunakan properti Set Focus. Untuk itu, tambahkan kode berikut ke dalam kode VBA dari tombol Add Record. Caranya : Klik kanan tombol Add Record kemudian akan tampil menu, dan pilih Build Event, setelah itu tambahkan kode berikut :

Private Sub tambahrecord_Click() On Error GoTo Err_tambahrecord_Click DoCmd.GoToRecord , , acNewRec KaryawanID.SetFocus

// Kode yang ditambahkan

Exit_tambahrecord_Click: Exit Sub Err_tambahrecord_Click: MsgBox Err.Description Resume Exit_tambahrecord_Click End Sub

Setelah itu, coba jalankan Form View, dan sekarang secara otomatis kursor akan ditempatkan pada field KaryawanID. Setelah mengisi field ini, untuk berpindah ke field berikutnya, tekan tombol Tab pada keyboard. Masukkan data record baru, misal seperti pada contoh berikut :

Halaman - 40


Setelah mengisinya dengan lengkap, untuk berpindah ke record yang lain (record sebelumnya), klik pada tombol navigasi yang ada pada bagian bawah :

Setelah mengklik tombol navigasi untuk menuju ke record sebelumnya, maka pada pada tampilan terlihat bahwa form tidak berada dalam mode Read-Only artinya kita bisa melakukan perubahan terhadap data. Padahal diinginkan bahwa form akan kembali berada dalam mode Read-Only setelah mengisi data baru. Untuk mengembalikan form dalam mode Read-Only tambahkan kode VBA pada event After Insert yang dimiliki oleh object Form :

Klik disini

Setelah itu akan muncul menu dan pilih Code Builder. Kemudian tambahkan kode berikut pada prosedur AfterInsert :

Dengan penambahan kode tersebut, maka Form akan kembali dalam mode ReadOnly setelah pengisian record baru.

Halaman - 41


3.2.4. Menampilkan Pesan (Message) pada user Seringkali kita perlu memberi pesan (message) pada user untuk memberikan informasi tentang sesuatu. Semisal pada penambahan record baru, agar user tahu bahwa record yang baru diisi telah disimpan, maka perlu diberi pesan bahwa “Record sudah disisipkan” atau “Record baru telah disimpan”. Untuk itu, pada event After Insert yang dimiliki oleh Form, tambahkan kode berikut :

Setelah itu jalankan form, dan setelah mengisi record baru, arahkan navigasi ke record sebelumnya, akan muncul pesan bahwa record sudah disimpan seperti pada gambar berikut :

Halaman - 42


3.2.5. Menambahkan tombol Del Record untuk menyisipkan Record Baru Pada form yang sudah dibuat, baru ada satu (dua) tombol yaitu Add Record untuk menambahkan record baru. Untuk itu tambahkan satu tombol lagi yaitu Del Record yang berfungsi untuk menghapus record. Aktifkan mode wizard pada toolbox, kemudian tempatkan tombol baru di sebelah tombol Update Record.

Beri teks Del Record.

Cobalah untuk

menjalankan form dengan tombol yang baru dibuat. Pada tampilan record yang akan dihapus, klik tombol Del Record. Perhatikan apa yang terjadi. Record tidak bisa dihapus. Kenapa bisa demikian ? Hal ini dikarenakan form masih dalam mode Read-Only.

Jadi apapun perubahan yang dilakukan terhadap record

termasuk perintah penghapusan pada record, tidak memberikan berpengaruh. Bagaimana caranya agar perintah penghapusan pada saat mengklik Del Record bisa dilaksanakan, caranya dengan menambah kode berikut pada event On Clik yang ada pada tombol Del Record.

Untuk menguji kode yang sudah ditambahkan, jalankan form sekali lagi. Lakukan penghapusan pada salah satu record dan akan ditampilkan dialog untuk konfirmasi penghapusan :

Halaman - 43


Klik Yes untuk menghapus record. Setelah itu, jika kita melakukan navigasi dengan berpindah ke record sebelumnya, akan tampak bahwa form tidak dalam mode Read-Only. Untuk mengembalikan form ke mode Read-Only tambahkan kode ke dalam event After Update pada object Form :

Jalankan form sekali lagi, dan coba untuk menghapus satu record, lakukan konfirmasi dengan mengklik Yes, setelah melakukan navigasi ke record sebelumnya, form akan kembali ke mode Read-Only.

3.2.6. Menambahkan tombol Update Record untuk mengubah isi Record Berikutnya tambahkan satu tombol lagi yaitu Update Record yang berfungsi untuk melakukan perubahan terhadap isi record. Tombol ini dibuat tidak dengan menggunakan mode wizard.

Jadi non-

aktifkan mode wizard pada toolbox :

Halaman - 44


kemudian buat tombol Update Record di sebelah tombol Delete Record :

Halaman - 45


Tambahkan kode VBA pada event On Click yang dimiliki oleh tombol Update Record.

Jalankan form sekali lagi, dan coba untuk mengubah isi record dengan mengklik tombol Update Record , setelah melakukan navigasi ke record yang lain, form akan kembali ke mode Read-Only. Bisa ditambahkan pesan untuk memberi informasi bahwa telah dilakukan perubahan terhadap record.

Event yang

bersesuaian untuk keperluan ini adalah event After Update yang dimiliki oleh Form :

Halaman - 46

Modul 3 Pembuatan Form dengan Wizard dan Penambahan kode VBA

Recommend Documents