Kode Access Membuat Tombol Update

M

elanjutkan tutorial sebelumnnya Microsoft Access Tutorial (Part2 ), sekarang kita akan mencoba memberikan tambahan pada perintah tombol Save, perintah ini bertujuan untuk meg-update sebuah data informasi dari sebuah kode barang yang tersimpan dalam table, lenih gampangnya, mengedit informasi barang, namun bagi anda yang baru menemukan artikel ini saya sarankan untuk mempelajari dulu Microsoft access tutorial ( Part2 ), karena sangat berhubungan dan merupakan kelanjutan dari materi tersebut.

Pada langkah ini kita akan merubah / menambahkan kode update pada perintah di dalam tombol save yang kemarin kita buat.

Langkahnya sebagai berikut :

• Buka file yang kemarin kita buat dan kita simpan ke dalam computer
• Pada kolom object pilih Form, pada kotak isi Form Pilih Formbarang kemudian Klik Desaign
• Maka akan tampil jendela seperti gambar 1
• Klik kanan tombol save – pilih build Event, Karena tombol tersebut sudah terisi perintah, maka kita tidak di berikan pilihan Choose Builder, melainkan kita akan dlangsung diarahkan pada jendela Microsoft Visual basic tepat pada isi dari kdoe perintah Tombol save, lihat gambar 2
• Hapuslah kode yang terlihat di blok ( pada gambar 2 ) dang anti dengan kode di bawah ini :

If MsgBox("Update Data. Lanjutkan ?", vbInformation + vbYesNo) = vbYes Then

            CurrentDb.Execute "update tabel_barang set nmbrg='" + Text2 + "', jumlah=" + Str(CLng(Text3)) + ", hrg=" + Str(CLng(Text4)) + " where kdbrg='" + text1 + "'"

            List14.Requery

            cmd1_Click

        End If

• Dengan demikian susunan kode akan tampak seperti gambar 3
• Sekarang tekan Alt+F11 untuk kembali ke jendela Microsoft access ubah tampilan form pada mode Form View dan silahkan anda klik 2 kali salah satu data pada daftar barang
• Setelah data masuk pada kotak textbox, silahkan Ubah salah satu detailnya ( namun jangan mengubah Kode Barang, silahkan Ubah Naa barang atau Jumlah barang ataupun stok barang )
• Setelah itu tekan tombol save, maka akan keluar message box  seperti gambar 4
• Untuk melakukan perubahan isi Data silahkan pilih Yes pada kotak MessageBox

Selesai, langkah diatas adalah modifikasi tombol save

Selanjutnya kita akan mengubah perintah pada tombol New agar lebih unik dan multi fungsi, lanjutkan Pembelajaran pada Microsoft Access Tutorial ( Part4 )