M
elanjutkan Pembelajaran
Microsoft access tutorial ( Part1 ) pada artikel sebelumnya, berikut akan saya paparkan langkah pemberian kode pada sebuah Form M. Access atau sering di sebut dengan Proses Peng-Coding-an, yaitu proses memberikan beberapa perintah pada sebuah Command Button agar dapat di fungsikan seperti yang diinginkan. Namun saya sarankan agar anda benar-benar mencermati artikel pada
Microsoft Access tutorial ( Part1 ) agar anda tidak bingung saat melakukan peng-kode-an
Pada tutor sebelumnya kita telah membuat sebuah
table dengan nama
table_barang dan sebuah form dengan nama
formbarang. Pada form Barang telah kita berikan 4 command Button yaitu New, Save, Delete dan Exit, namun belum terdapat kode apapun didalamnya
Sebagai catatan : sebenarnya ada dua cara untuk memasang tombol / Command Button, Pertama dengan mengikuti perintah command button sampai proses Finish, cara ini akan membuat sebuah command button terbentuk lengkap dengan perintahnya dan bisa digunakan. Kedua dengan meng-cancel pembuatan command button, sehingga command button yang terbentuk masih kosong ( belum terdapat kode ) dan kita harus mengisikan kode perintah agar command button tersebut dapat berfungsi. Tutorial ini menganjurkan kita untuk menggunakan langkah kedua, tujuanya agar kita bias tahu bagaimana sebenarnya penyusunan perintah pada Microsoft access.
Mari mulai pembelajaran Part2 kita :
- Pada formbarang yang telah kita bentuk, aktifkan desaign view, bukan pada form view, klik kanan pada command button New – pilih Build Event
- Maka akan muncul jendela Choose builder, pilih Code Builder dan klik tombol Ok. Lihat gambar 1
- Maka akan muncul jendela Microsoft Visual Basic perhatiakan gambar 2
Penting untuk di perhatikan :
- Lingkaran no 1 menunjukkan name dari command button yang akan kita berikan Kode
- Lingkaran no 2 menunjukkan Action yang kita pilih, Action artinya langkah yang dilakukan pada command button untuk menjalankan perintah didalamnya
- lingkaran no 3 artinya jika kita lakukan Click pada command button dengan name cmd1 maka perintah akan di lakukan
- lingkaran no 4 menunjukkan label dari command button yang sedang di tempati oleh pointer mouse
- tepat di bawah kalimat Private Sub cmd1_Click(), ketikkan kode berikut
text1 = ” ” ( tanda petik dua tanpa spasi )
Text2 = ” ” ( tanda petik dua tanpa spasi )
Text3 = ” ” ( tanda petik dua tanpa spasi )
Text4 = ” ” ( tanda petik dua tanpa spasi )
Text1.setfocus
Keterangan : text1 = “ “ artinya perintah untuk mengosongkan Textbox dengan nama Text1 dan seterusnya, sedangkan text1.setfocus artinya mengarahkan pointer ke kotak textbox text1
- sekarang tekan Alt+F11, untuk berpindah pada jendela Microsoft access
- ubah tampilan form pada mode Form View, isi semua text box yang ada kemudian tekan tombol New, jika semua kotak menjadi kosong dan pointer berpindah pada kotak kode barang artinya kode yang anda buat sudah Benar ( penulisan kode yang kurang akan membuat Debug Pada Program, meskipun hanya kurang spasi )
- berikutnya kembalikan tampilan Form pada Desaign View, klim kanan pada area Form yang kosong, pilih Build Event kemudian Code Buider dan klik OK
- pada jendela Visual Basic, ubah Detail manjadi Form dan tepat di bawah Private Sub Form_Load() ketikkan kode berikut
Text5 = Format(Date, "dd/mm/yyyy")
tujuanya agar saat program dijalankan kotak tanggal akan langsung terisi dengan tanggal sesuai tanggal yang di set pada system computer anda lihat
gambar 3- klik kanan pada Command Button Save – pilih Build Event , pada kotak Choose buider pilih Code builder, hingga tampil seperti gambar 4
- tepat di bawah Private Sub cmd2_Click() ketikkan kode barikut
Dim a As Object
If Len(text1) > 0 Then
Set a = Nothing
Set a = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + text1 + "'")
If a.recordCount > 0 Then
MsgBox ("kode Sudah Terpakai"), vbOKOnly
text1.SetFocus
Else
CurrentDb.Execute "insert into tabel_barang values('" + text1 + "','" + Text2 + "'," + Str(CLng(Text3)) + "," + Str(CLng(Text4)) + ",#" + Text5 + "#)"
List14.Requery
cmd1_Click
End If
Else
MsgBox ("Data Input Belum Lengkap"), vbOKOnly
End If
Lihat penempatan hasil penulisan kode pada
gambar 5Keterangan : kode '" + nama text + "' untuk mengisi colom table dengan type text dan kode " + Str(CLng(namatext)) + " untuk mengisi Colom pada table dengan type Number atau Currency, sedangkan Kode #" + Text5 + "# untuk mengisikan colom table dengan type Date/Time
List14 adalah name dari listBox yang kita buat di dalam Form untuk mengetahui
Kode diatas akan melakukan proses sebagai berikut :
Program akan memeriksa apakah kotak Kode sudah terisi atau belum jika belum maka akan tampil pesan “ Data Input Belum Lengkap “, jika sudah maka program akan memeriksa ke dalam table apakah kode yang ada pada text1 sudah pernah ada pada table_barang, jika sudah maka program akan memberi tahu kita bahwa “ Kode sudah Terpakai “ jika belum maka program akan memasukkan Data input ke setiap kolom yang di tuju
- Berikutnya silahkan tekan Alt+F11 untuk loncat ke jendela Microsoft Access, ubah tampilan Form pada Form View dan isikan semua textbox yang ada ( untuk kotak Stok Barang dan Harga Pembelian harus di isi dengan Angka ), kemudian klik tombol simpan, jika Data input anda tampil pada kolom list artinya kode sudah ditulis dengan Benar, jika keluar Debug maka anda harus memeriksa kembali Kode yang anda tulis, lihat contoh hasil tombol Save pada Gambar 6
- Sekarang kita akan buat data yang ada pada lixtbox akan berpindah ke kotak text box saat di double klik
- Pastikan form pada tampilan Desaign View kilk kanan Listbox yang ada di dalam Form – pilih Build Event – Code Builder dan OK
- Pada Jendela Microsoft Visual Basic , Ganti BeforeUpdate menjadi DblClick
- Tepat di bawah Private Sub List14_DblClick(Cancel As Integer) ketikkan kode berikut
Dim s As Object
Set s = Nothing
Set s = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + List14.Column(0) + "'")
With s
text1 = s!kdbrg
Text2 = s!nmbrg
Text3 = s!jumlah
Text4 = s!hrg
Text5 = s!Date
End With
- Sekarang jalankan program pada mode Form View dan klik 2 kali pada salah satu data di dalam listBox , jika terjadi Debug berarti seperti biasa, ada kesalahan saat mengetikkan kode
- Selanjutnya kita berikan kode perintah untuk tombol Delete
- Pastikan Form pada mode desaign View klik kanan cmd3 atau tombol Delete, pilih Build Event – Code Builder dan OK
- Tepat di bawah Private Sub cmd3_Click() Ketikkan Kode Berikut
Dim a As Object
If Len(text1) > 0 Then
Set a = Nothing
Set a = CurrentDb.OpenRecordset ("select * from tabel_barang where kdbrg='" + text1 + "'")
If a.RecordCount > 0 Then
CurrentDb.Execute "delete * from tabel_barang where kdbrg='" + text1 + "'"
List14.Requery
cmd1_Click
Else
MsgBox ("Data Dengan Kode '" + text1 + "' tidak ada dalam DataBase"), vbOKOnly
End If
Else
MsgBox ("Parameter Kosong, Double Klik Data Dari Daftar untuk Dihapus"), vbOKOnly
End If
- Kembali pada jendela Microsoft Access dan jalankan Form, klik 2 kali salah satu Data dari kotak Daftar barang dan tekan tombol Delete, coba Juga klik tombol Delete saat kotak Kode Barang kosong serta berikan kode Barang yang belum pernah terpakai dan klik tombol Delete, periksa kembali kode yang anda ketikkan jika terjadi Debug
- Selanjutnya kita akan memasang kode untuk menutup Form pada tombol Exit
- Kembalikan Form pada Mde Desaign View , klik kanan Tombol Exit - Pilih build Event – Code Builder dan tekan Tombol OK
- Tepat dibawah Private Sub cmd4_Click() ketikkan kode berikut
DoCmd.Close acForm, Me.Name, acSaveYes
- Tekan Alt+F11 untuk loncat ke jendela Microsoft Access dan jalankan Form Pada mode Form View, tekan Tombol Exit , jika keluar peringatan untuk menyimpan perubahan Form Pilih Yes
Sampai disini Form yang kita buat Sudah dapat menyimpan Data input dari User / operator, mengenai tampilan Form silahkan sesuai kreatifitas anda, kita sering melihat Winamp, Setiap tombol yang dimiliki akan menyimpan kode perintah layaknya yang telah kita pelajari disini, namun lebih rumit.
tutorial ini merupakan Pembelajaran Tingkat paling Dasar Microsoft Acces, Berikutnya akan kita Bahas kombinasi tombol Save dan Delete serta Update DataBase pada
Microsoft Access Tutorial ( Part3 ).
Dalam Belajar apapun, Buang Rasa Malu pada Diri kita, karena memelihara Rasa malu bisa membuat kita jadi orang yang memalukan, namun ingat !!!!!! jangan pernah membuang kemaluan Anda, karena itu satu hal paling berharga yang anda miliki ………. Iyo po ra ?
